Ir para conteúdo
Fórum CódigoFonte.net

FREITAS

Membros
  • Total de itens

    52
  • Registro em

  • Última visita

  1. Boa tarde, Consegui resolver o problema da Máscara Fiz assim: selcom.CommandText = "UPDATE tb_Cad_Clientes SET nome = '" & (txtnome.Text & Space(50)).Substring(0, 50) & "', endereco = '" & txtend.Text & "', numero = " & txtnum.Text _ & ", complemento = '" & txtcompl.Text & "', bairro = '" & txtbairro.Text & "', cidade = '" & txtcidade.Text & "', uf = '" & cmbuf.Text _ & "', cep = '" & Maskedcep.Text & "', telefone = '" & txttel.Text & "', telefone_tipo = '" & cmbtel.Text _ & "', celular = '" & txtcel.Text & "', celular_tipo = '" & cmbcel.Text & "', celular1 = '" & txtcel1.Text & "', celular1_tipo = '" & cmbcel1.Text _ & "', paciente = '" & cmbpaciente.Text & "', cpf = '" & (Maskedcpf.Text.Replace(",", "")).Replace("-", "") & "', ci = '" & txtci.Text _ & "', orgao_emissor = '" & txtoe.Text & "', estado_civil = '" & cmbeciv.Text & "', sexo = '" & cmbsex.Text _ & "', data_nascimento = '" & Maskeddt_nasc.Text & "', e_mail ='" & txte_mail.Text & "', data_cadastro ='" & Maskeddt_cad.Text & "', observacoes = '" & txtobservacoes.Text & "' " _ & "WHERE cod_cliente = " & acod_cliente(dgvestoque.CurrentRow.Index + 1) Obrigado FREITAS
  2. Boa noite, Pessoal, Tenho no meu Form, um MaskedBox onde tenho uma máscara de CPF___.___.___-__. Até aqui tudo Ok. Acontece que criei uma consulta no BDAccess pelo CPF e preciso que no BDAccess o CPF fique gravado sem máscara, só os números:tipo: 12789521560. Como posso conseguir isso, por favor? VISUAL STUDIO 2010 Obrigado FREITAS
  3. Bom dia, Alguém sabe se tem como eu inserir dados em um BD Access e colocar um código no Botão "OK" do Form para que ao clicar no "OK" trazer para o DBGrid somente os dados inseridos por último, deixando os demais registros do BD sem aparecer no DBGrid? Se puderem me ajudar com o código ou um exemplo, desde já meu muito Obrigado. FREITAS
  4. FREITAS

    VB.NET - GERADOR DE PARCELAS

    Boa noite, Galera, l Estou precisando de ajuda para o seguinte: Se alguém puder postar um código para eu calcular valor de parcelas e no DBGid aparecer os vencimentos na mesma coluna. Se a venda é em 1, 2, 3, 4 ou 12 vezes, eu digito o valor total da venda, coloco num cmbbox o nª de parcelas e o resultado aparece no DBGrid na mesma coluna, tipo: Vr da venda: 375,00 nº parcelas 05 No DBGrid ficaria: VENCTª VALOR DA PARCELA 02/08/2013 125,00 02/09/2013 125,00 02/10/2013 125,00 02/11/2013 125,00 02/12/2013 125,00 Obrigado FREITAS
  5. FREITAS

    VB.NET - GERADOR DE PARCELAS

    Boa noite, Galera l Estou precisando de ajuda para o seguinte: Se alguém puder postar um código para eu calcular valor de parcelas e no DBGid aparecer os vencimentos na mesma coluna. Se a venda é em 1, 2, 3, 4 ou 12 vezes, eu digito o valor total da venda, coloco num cmbbox o nª de parcelas e o resultado aparece no DBGrid na mesma coluna, tipo: Vr da venda: 375,00 nº parcelas 05 No DBGrid ficaria: VENCTª VALOR DA PARCELA 02/08/2013 125,00 02/09/2013 125,00 02/10/2013 125,00 02/11/2013 125,00 02/12/2013 125,00 Obrigado FREITAS
  6. FREITAS

    VB.NET - GERADOR DE PARCELAS

    Boa noite, Uso o Visual Studio 2010 Galera, Estou precisando de ajuda para o seguinte: Se alguém puder postar um código para eu calcular valor de parcelas e no DBGid aparecer os vencimentos na mesma coluna. Se a venda é em 1, 2, 3, 4 ou 12 vezes, eu digito o valor total da venda, coloco num cmbbox o nª de parcelas e o resultado aparece no DBGrid na mesma coluna, tipo: Vr da venda: 375,00 nº parcelas 05 No DBGrid ficaria: VENCTª VALOR DA PARCELA 02/08/2013 125,00 02/09/2013 125,00 02/10/2013 125,00 02/11/2013 125,00 02/12/2013 125,00 Obrigado FREITAS
  7. Por favor, o que está errado nesse código? Eu tenho uns dados cadastrados num BD Access nas seguintes datas: 05/05/2012 07/05/2012 25/05/2012 10/06/2012 25/06/2012 Acontece que quando faço a pesquisa entre datas com o Código abaixo (estou usando DateTimerPicker na Pesquisa), se eu seleciono no primeiro DateTimerPicker: Data Inicial: a data de 01/05/2012 e no outro DateTimerPicker a Data Final:10/06/2012 Só aparece do DataGridView a linha com a data: 05/05/2012 Se eu seleciono Data Final 11 ou 12/06/2012 continua mostrando só a linha com a data 05/05/2012 quando seleciono no DateTimerPicker de Data Final: 13/06/2012 aparecem no DBGrid as linhas: 05/05/2012 07/05/2012 e 10/06/2012 Se eu seleciono no DateTimerPicker a data inicial 08/06/2012 e data final 30/06/2012, ou seja só data dentro do mes de junho, me mostra as linhas no DataGridView com as datas: 07/05/2012 10/06/2012 25/05/2012 25/06/2012 Ou seja a Data Inicial é no mes de junho e mostra as datas 05/05/2012 e 25/05/2012 que são de maio porque está acontecendo esse erro? Podem me ajudar, por favor? Obrigado FREITAS Private Sub btn_Consult_Click(sender As System.Object, e As System.EventArgs) Handles btn_Consult.Click Dim css As String = My.Settings.EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = css conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "SELECT * FROM tb_saidas_estoque WHERE data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "# order by data_de_saida" '"Select * from tb_saidas_estoque WHERE data_de_saida between >= DTPIni.text and data_de_saida <= DTPFin.text Order by data_de_saida"   '"SELECT * FROM tb_saidas_estoque WHERE data_de_saida >= #DTPIni#" And "<= #DTPFin#" '"select * from tb_saidas_estoque where data_de_saida >= #DTPIni#" And "<= #DTPFin#" '"select * from tb_saidas_estoque where data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "#" Dim vleitor As OleDb.OleDbDataReader vleitor = selcom.ExecuteReader() Dim c As Integer = 0 DgvConsulta.Rows.Clear() Do While vleitor.Read c = c + 1 ReDim Preserve avalor_materiais_produtos© ReDim Preserve amateriais_produtos© ReDim Preserve adata_de_saida© ReDim Preserve asaidas© avalor_materiais_produtos© = vleitor( "valor_materiais_produtos") amateriais_produtos© = vleitor( "materiais_produtos") adata_de_saida© = vleitor( "data_de_saida") asaidas© = vleitor( "saidas") DgvConsulta.Rows.Add(avalor_materiais_produtos©, amateriais_produtos©, adata_de_saida©, asaidas©) Loop conect.Close() End Sub End Class
  8. Bom dia, VB.NET BD Access Olha eu peço a ajuda de vocês, para o seguinte: Quero criar um Form onde consultarei os vencimentos por período. Entre datas. Exemplo: Os recebimentos de eu tiver para o período de 20/06/2012 a 10/07/2012, Então quero que o código, faça a busca no Banco de Dados nesse período e coloque no DBGridView só os recebimentos desse período pesquisado e num txtbox me dê o valor total da coluna valor a receber no período pesquisado. Pode me dar mais essa força, por favor? Obrigado FREITAS
  9. Bom dia, Estou tentando fazer uma busca no meu BD Access para o seguinte: a- Quero que no Load do meu Form seja feita automaticamente uma busca no BD Acces que me dê uma mensagem "Recebimentos para Hoje". b- Coloquei no meu Form um campo "txtHoje.text" onde fica a data do dia de hoje automaticamente. Preciso que ao dar o Load no meu Form o programa busque no Banco de Dados, na coluna "data de vencimnto" se tem algum registro com vencimento para o dia que está no "txtHoje.text" e numa label me dê a mensagem = "Recebimentos para Hoje". Como implementar um código para essa busca, por favor. VB.NET BD Access Obrigado FREITAS
  10. Bom dia, Uso o VB.NET Banco de Dados : Access Tem como eu criar uma forma de cadastrar as senhas separadas por: - Senha Funcional e - Senha Master Sendo que só quem tiver a senha master terá acesso a todo o programa, tipo: - Para excluir ou alterar um lançamento só quem tem senha Master terá acesso - A senha Funcional só dá acesso a lançamentos de Cadastro, Entradas e Saídas, por exemplo Já quebrei cabeça pensando como cadastrar as senhas sem que outra pessoa possa fazer cadastros de senhas novas ou alterar as existentes. Dá pra alguém postar algum código nesse sentido, por favor. Desde já Muito Obrigado FREITAS
  11. FREITAS

    NUMERAÇAO AUTOMATICA - VB.NET

    Boa noite, Estou querendo incrementar no meu Form um codigo ID com numeraçao automatica, por isso peço a voces que postem aqui um codigo para me ajudar, por favor. Uso o VB.NET Banco de dados ACCESS O Acces tem a numeraçao automatica, mas e simplesmente um numero - 1, 2, 3, 4 etc eu quero para criar numeracao automatica tipo: 0001,0002,0003,0004 etc. Podem me ajudar? Aguardo a colaboraçao de todos. Um abraço FREITAS
  12. Boa tarde, Resolvido assim: Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click vmodo = "I" Try If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then RadioButton1.Enabled = True RadioButton2.Enabled = True RadioButton3.Enabled = True RadioButton4.Enabled = False RadioButton5.Enabled = False RadioButton6.Enabled = False btnCancelar.Enabled = True If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then MessageBox.Show("Selecionar uma opção no Tipo de Movimentação") Else hab_campos() hab_campos_em_comum() hab_btn() txtEmpenho.Text = "" MaskedData_empenho.Text = "" Maskedprocesso.Text = "" txtNotas_fiscais.Text = "" MaskedData_nota_fiscal.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedData_de_entrada.Text = "" txtEntradas.Text = "" lblMateriais_produtos.Text = "" txtEmpenho.Focus() End If End If If CmbEnt_sai_estoque.Text = "Saidas no Estoque" Then RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False RadioButton4.Enabled = True RadioButton5.Enabled = True RadioButton6.Enabled = True btnCancelar.Enabled = True If RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then MessageBox.Show("Selecionar uma opção no Tipo de Movimentação") Else hab_campos_saidas() hab_campos_em_comum() hab_btn() MaskedRequisicoes.Text = "" MaskedData_de_saida.Text = "" txtsaidas.Text = "" txtDepartamento_requisitante.Text = "" txtSupervisao_requisitante.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedRequisicoes.Focus() 'Para colocar o cursor depois dmáscara SE no MaskedRequisicoes Me.MaskedRequisicoes.SelectionStart = 2 End If End If Catch ex As Exception MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Sub Obrigado aos que ajudaram FREITAS
  13. FREITAS

    RADIO BUTTON EM VB.NET

    Bom dia, Estou solicitando, por favor, a ajuda de vocês para a solução do seguinte problema: Estou trabalhando em um programa de Controle de Estoque onde preciso do seguinte: 1 - Quando eu der ENTRADA ou SAÍDA em algum Material devo selecionar num ComboBox a opção ENTRADA ou SAÍDA. Se eu selecionar entrada no ComboBox os campos referentes aos dados de entradas, tipo: Nº NFiscal, Data NFiscal, Valor Unitário etc devem ficar ATIVOS e os dados de saídas como: Requisição, dataRequisição, Depto Requisitante etc devem ficar DESATIVADOS e se eu selecionar no ComboBox a opção Saídas lógicamente acontecerá o contrário. Até aí tudo está funcionando legal. 2 - Só que preciso também que ao selecionar a opção ENTRADAS, e ao clicar no Botão INCLUIR, o programa ative as opções de entradas e deixe desativadas as opções de saídas. Ative por Exemplo: Entrada Normal, ative Entrada por Recebimento de Empréstimo Concedido, ative Entrada por Empréstimo Tomado E eu macarei a opção que se fizer necessária e Desative as opções de Saídas, como por exemplo: Saída Normal, desative Saída por Empréstimo Concedido e desative Saída por Pagamento Empréstimo Tomado e ao mesmo tempo verifique se tem uma dessas opções selecionada no RadioButton, de acordo como seja : ENTRADA ou SAÍDA, e isso está funcionando também, e caso não tenha nenhuma dessas opções marcadas no RadioButton, dará a mensagem "Selecionar uma Opção no Tipo de Movimentação". Acontece que com o código que estou postando abaixo, dá a mensagem, então eu marco uma das opções e clico no Botão INCLUIR e continua sem reconhecer que uma opção está marcada no RadioButton e a Mensagem acima é mostrada novamente. Eu estava usando o CheckedListBox e funciona legal só que o CheckedListBox eu posso preencher mais de uma opção ao mesmo tempo o que poderá me fazer errar por esquecimento de desmarcar a opção anterior e selecionar a nova, ficando mais de uma opção selecionada, já no RadioButton eu posso selecionar apenas uma opção, se clicar em outro RadioButton ele automaticamente desmarca a opção anterior. Dá pra ajudar a resolver onde está errado no meu código? Ou me passar um código que eu possa usar nesse caso e resolver esse problema? Trabalo com: VB.NET BANCO DE DADOS : Accesss Abaixo está o código que estou usando. Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click ' modo de inclusão vmodo = "I" If RadioButton1.Checked = False Or RadioButton2.Checked = False Or RadioButton3.Checked = False Or RadioButton4.Checked = False Or RadioButton5.Checked = False Or RadioButton6.Checked = False Then MessageBox.Show ( "Selecionar uma opção no Tipo de Movimentação " ) Else Try If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then hab_campos() hab_campos_em_comum() hab_btn() txtEmpenho.Text = "" MaskedData_empenho.Text = "" Maskedprocesso.Text = "" txtNotas_fiscais.Text = "" MaskedData_nota_fiscal.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedData_de_entrada.Text = "" txtEntradas.Text = "" lblMateriais_produtos.Text = "" txtEmpenho.Focus() Else hab_campos_saidas() hab_campos_em_comum() hab_btn() MaskedRequisicoes.Text = "" MaskedData_de_saida.Text = "" txtsaidas.Text = "" txtDepartamento_requisitante.Text = "" txtSupervisao_requisitante.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedRequisicoes.Focus() 'Para colocar o cursosr depois de SE no MaskedRequisicoes Me.MaskedRequisicoes.SelectionStart = 2 End If Catch ex As Exception MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End If End Sub Aguardo a costumeira ajuda de todos. Um abraço FREITAS
  14. FREITAS

    CheckListBox em VB NET

    Boa tarde, VB NET BD - Access Gostaria que me indicassem, por favor, um código para que eu ao colocar no meu Form um CheckListBox pudesse selecionar alguns ítens ou todos de acordo com a minha necessidade e que eles ficassem marcados, podendo depois desmarcar uns e marcar outros, etc. Obrigado FREITAS
×
×
  • Criar Novo...