ERRO NO DATAGRIDVIEW AO PREENCHER FORMULARIO
Tenho uma DataGridView que no duplo clique preenche meu Formulário. Mas minhas MaskedTextBox estão dando esse erro:
[Ô]A conversão do tipo [ô]DBNull[ô] no tipo [ô]String[ô] não é válida.[Ô]
Se eu preencher todas MSK o programa salva normalmente e eu consigo consultar pelo DataGridView, mas se uma delas ficar sem ser preenchida eu não consigo salvar e nem consultar.
Segue o código:
Private Sub dtg_localizar_consulta_DoubleClick(sender As Object, e As System.EventArgs) Handles dtg_localizar_consulta.DoubleClick
frm_cad_membro.txt_cod.Text = dtg_localizar_consulta(0, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_nome.Text = dtg_localizar_consulta(1, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_nasc.Text = dtg_localizar_consulta(2, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_civil.Text = dtg_localizar_consulta(3, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_profis.Text = dtg_localizar_consulta(4, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_email1.Text = dtg_localizar_consulta(5, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_email2.Text = dtg_localizar_consulta(6, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telres1.Text = dtg_localizar_consulta(7, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telres2.Text = dtg_localizar_consulta(8, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telcom1.Text = dtg_localizar_consulta(9, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telcom2.Text = dtg_localizar_consulta(10, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel1.Text = dtg_localizar_consulta(11, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op1.Text = dtg_localizar_consulta(12, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel2.Text = dtg_localizar_consulta(13, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op2.Text = dtg_localizar_consulta(14, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_end.Text = dtg_localizar_consulta(15, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_comp.Text = dtg_localizar_consulta(16, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_cep.Text = dtg_localizar_consulta(17, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_bairro.Text = dtg_localizar_consulta(18, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_estado.Text = dtg_localizar_consulta(19, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cidade.Text = dtg_localizar_consulta(20, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_pais.Text = dtg_localizar_consulta(21, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_obs.Text = dtg_localizar_consulta(22, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filiacao.Text = dtg_localizar_consulta(23, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel3.Text = dtg_localizar_consulta(24, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op3.Text = dtg_localizar_consulta(25, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel4.Text = dtg_localizar_consulta(26, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op4.Text = dtg_localizar_consulta(27, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_form_acad.Text = dtg_localizar_consulta(28, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_conjugue.Text = dtg_localizar_consulta(29, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho1.Text = dtg_localizar_consulta(30, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho1.Text = dtg_localizar_consulta(31, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho2.Text = dtg_localizar_consulta(32, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho2.Text = dtg_localizar_consulta(33, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho3.Text = dtg_localizar_consulta(34, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho3.Text = dtg_localizar_consulta(35, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho4.Text = dtg_localizar_consulta(36, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho4.Text = dtg_localizar_consulta(37, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho5.Text = dtg_localizar_consulta(38, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho5.Text = dtg_localizar_consulta(39, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_preenchimento.Text = dtg_localizar_consulta(40, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_arrolamento.Text = dtg_localizar_consulta(41, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_dados_batismo.Text = dtg_localizar_consulta(42, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_igreja.Text = dtg_localizar_consulta(43, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_pastor.Text = dtg_localizar_consulta(44, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_tempoCentral.Text = dtg_localizar_consulta(45, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_OutraIgreja.Text = dtg_localizar_consulta(46, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_MinisterioOutraIgreja.Text = dtg_localizar_consulta(47, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_ajudarCentral.Text = dtg_localizar_consulta(48, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.btn_excluir.Enabled = True
frm_cad_membro.btn_alterar.Enabled = True
frm_cad_membro.btn_cancelar.Enabled = True
frm_cad_membro.Visible = True
Me.Close()
End Sub
[Ô]A conversão do tipo [ô]DBNull[ô] no tipo [ô]String[ô] não é válida.[Ô]
Se eu preencher todas MSK o programa salva normalmente e eu consigo consultar pelo DataGridView, mas se uma delas ficar sem ser preenchida eu não consigo salvar e nem consultar.
Segue o código:
Private Sub dtg_localizar_consulta_DoubleClick(sender As Object, e As System.EventArgs) Handles dtg_localizar_consulta.DoubleClick
frm_cad_membro.txt_cod.Text = dtg_localizar_consulta(0, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_nome.Text = dtg_localizar_consulta(1, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_nasc.Text = dtg_localizar_consulta(2, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_civil.Text = dtg_localizar_consulta(3, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_profis.Text = dtg_localizar_consulta(4, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_email1.Text = dtg_localizar_consulta(5, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_email2.Text = dtg_localizar_consulta(6, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telres1.Text = dtg_localizar_consulta(7, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telres2.Text = dtg_localizar_consulta(8, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telcom1.Text = dtg_localizar_consulta(9, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_telcom2.Text = dtg_localizar_consulta(10, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel1.Text = dtg_localizar_consulta(11, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op1.Text = dtg_localizar_consulta(12, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel2.Text = dtg_localizar_consulta(13, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op2.Text = dtg_localizar_consulta(14, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_end.Text = dtg_localizar_consulta(15, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_comp.Text = dtg_localizar_consulta(16, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_cep.Text = dtg_localizar_consulta(17, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_bairro.Text = dtg_localizar_consulta(18, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_estado.Text = dtg_localizar_consulta(19, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cidade.Text = dtg_localizar_consulta(20, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_pais.Text = dtg_localizar_consulta(21, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_obs.Text = dtg_localizar_consulta(22, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filiacao.Text = dtg_localizar_consulta(23, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel3.Text = dtg_localizar_consulta(24, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op3.Text = dtg_localizar_consulta(25, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_cel4.Text = dtg_localizar_consulta(26, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_op4.Text = dtg_localizar_consulta(27, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_form_acad.Text = dtg_localizar_consulta(28, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_conjugue.Text = dtg_localizar_consulta(29, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho1.Text = dtg_localizar_consulta(30, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho1.Text = dtg_localizar_consulta(31, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho2.Text = dtg_localizar_consulta(32, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho2.Text = dtg_localizar_consulta(33, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho3.Text = dtg_localizar_consulta(34, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho3.Text = dtg_localizar_consulta(35, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho4.Text = dtg_localizar_consulta(36, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho4.Text = dtg_localizar_consulta(37, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_filho5.Text = dtg_localizar_consulta(38, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_filho5.Text = dtg_localizar_consulta(39, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_preenchimento.Text = dtg_localizar_consulta(40, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.combo_box_arrolamento.Text = dtg_localizar_consulta(41, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.msk_dados_batismo.Text = dtg_localizar_consulta(42, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_igreja.Text = dtg_localizar_consulta(43, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_pastor.Text = dtg_localizar_consulta(44, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_tempoCentral.Text = dtg_localizar_consulta(45, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_OutraIgreja.Text = dtg_localizar_consulta(46, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_MinisterioOutraIgreja.Text = dtg_localizar_consulta(47, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.txt_dados_ajudarCentral.Text = dtg_localizar_consulta(48, dtg_localizar_consulta.CurrentRow.Index).Value
frm_cad_membro.btn_excluir.Enabled = True
frm_cad_membro.btn_alterar.Enabled = True
frm_cad_membro.btn_cancelar.Enabled = True
frm_cad_membro.Visible = True
Me.Close()
End Sub
Tente assim para ver se resolve.
Private Sub dtg_localizar_consulta_DoubleClick(sender As Object, e As System.EventArgs) Handles dtg_localizar_consulta.DoubleClick
frm_cad_membro.txt_cod.Text = dtg_localizar_consulta(0, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_nome.Text = dtg_localizar_consulta(1, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_nasc.Text = dtg_localizar_consulta(2, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.combo_box_civil.Text = dtg_localizar_consulta(3, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_profis.Text = dtg_localizar_consulta(4, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_email1.Text = dtg_localizar_consulta(5, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_email2.Text = dtg_localizar_consulta(6, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_telres1.Text = dtg_localizar_consulta(7, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_telres2.Text = dtg_localizar_consulta(8, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_telcom1.Text = dtg_localizar_consulta(9, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_telcom2.Text = dtg_localizar_consulta(10, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_cel1.Text = dtg_localizar_consulta(11, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_op1.Text = dtg_localizar_consulta(12, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_cel2.Text = dtg_localizar_consulta(13, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_op2.Text = dtg_localizar_consulta(14, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_end.Text = dtg_localizar_consulta(15, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_comp.Text = dtg_localizar_consulta(16, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_cep.Text = dtg_localizar_consulta(17, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_bairro.Text = dtg_localizar_consulta(18, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.combo_box_estado.Text = dtg_localizar_consulta(19, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_cidade.Text = dtg_localizar_consulta(20, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_pais.Text = dtg_localizar_consulta(21, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_obs.Text = dtg_localizar_consulta(22, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filiacao.Text = dtg_localizar_consulta(23, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_cel3.Text = dtg_localizar_consulta(24, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_op3.Text = dtg_localizar_consulta(25, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_cel4.Text = dtg_localizar_consulta(26, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_op4.Text = dtg_localizar_consulta(27, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_form_acad.Text = dtg_localizar_consulta(28, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_conjugue.Text = dtg_localizar_consulta(29, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filho1.Text = dtg_localizar_consulta(30, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_filho1.Text = dtg_localizar_consulta(31, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filho2.Text = dtg_localizar_consulta(32, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_filho2.Text = dtg_localizar_consulta(33, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filho3.Text = dtg_localizar_consulta(34, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_filho3.Text = dtg_localizar_consulta(35, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filho4.Text = dtg_localizar_consulta(36, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_filho4.Text = dtg_localizar_consulta(37, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_filho5.Text = dtg_localizar_consulta(38, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_filho5.Text = dtg_localizar_consulta(39, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_preenchimento.Text = dtg_localizar_consulta(40, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.combo_box_arrolamento.Text = dtg_localizar_consulta(41, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.msk_dados_batismo.Text = dtg_localizar_consulta(42, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_igreja.Text = dtg_localizar_consulta(43, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_pastor.Text = dtg_localizar_consulta(44, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_tempoCentral.Text = dtg_localizar_consulta(45, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_OutraIgreja.Text = dtg_localizar_consulta(46, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_MinisterioOutraIgreja.Text = dtg_localizar_consulta(47, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.txt_dados_ajudarCentral.Text = dtg_localizar_consulta(48, dtg_localizar_consulta.CurrentRow.Index).value.tostring
frm_cad_membro.btn_excluir.Enabled = True
frm_cad_membro.btn_alterar.Enabled = True
frm_cad_membro.btn_cancelar.Enabled = True
frm_cad_membro.Visible = True
Me.Close()
End Sub
Cara resolveu sim, tão simples!
Muito Obrigado!
A Única coisa que está acontecendo agora é que para salvar ele continua dando erro e não deixa salvar se as MSK estiverem em branco.
Tem alguma dica para resolver isso no código?
Eu consegui apenas mudando no Banco de Dados ACCESS do tipo que era DATA/HORA para TEXTO.
Vou aproveitar e perguntar mais uma coisa.
Meu botão salvar está funcionando normalmente(tirando esse questionamento de cima), porém ele não busca código em branco. por exemplo:
Eu tenho 25 cadastros em meu sistema, se eu excluir o membro nº4 eu gostaria que a próxima entrada de dados fosse gravado no nº4....deixando sempre o Código(numeração Automática no Banco) com a quantidade de registros cadastrados no Banco.
Muito Obrigado!
A Única coisa que está acontecendo agora é que para salvar ele continua dando erro e não deixa salvar se as MSK estiverem em branco.
Tem alguma dica para resolver isso no código?
Eu consegui apenas mudando no Banco de Dados ACCESS do tipo que era DATA/HORA para TEXTO.
Vou aproveitar e perguntar mais uma coisa.
Meu botão salvar está funcionando normalmente(tirando esse questionamento de cima), porém ele não busca código em branco. por exemplo:
Eu tenho 25 cadastros em meu sistema, se eu excluir o membro nº4 eu gostaria que a próxima entrada de dados fosse gravado no nº4....deixando sempre o Código(numeração Automática no Banco) com a quantidade de registros cadastrados no Banco.
Esqueci de outra coisa....
Meu Botão excluir não está excluindo, ele sempre aponta para:
DESEJA EXCLUIR O NUMERO 0?
Porém se em limpar o Banco de Dados(pensando que iria começar do 0), ele limpa porém faz o novo primeiro cadastro no número que terminou a ultima vez, ai o Banco inicia no numero alto.
SEGUE MINHA CLASSE ADICIONAR - cls_adicionar
Public Function excluir(ByVal codigo As Integer) As Boolean
If MessageBox.Show([Ô]Deseja excluir codigo [Ô] & codigo & [Ô]?[Ô], [Ô]Menssagem[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
sql = [Ô]delete from Membros where codigo =[Ô] & codigo
objbanco.executar_comando(sql)
End If
Return True
End Function
Public Sub incluir(ByVal novo As Boolean)
If novo = True Then
sql = [Ô]insert into Membros(nome,data_nasc,est_civil,profissao,email1,email2,tel_res1,tel_res2,tel_com1,tel_com2,celular1,operadora1,celular2,operadora2,endereco,complemento,cep,bairro,estado,cidade,pais,observacoes, filiacao, celular3, operadora3, celular4, operadora4, formacaoAcademica, conjugue, filho1, niverFilho1, filho2, niverFilho2, filho3, niverFilho3, filho4, niverFilho4, filho5, niverFilho5, dataPreenchimento, arrolamento, dataBatismo, igrejaAnterior, pastorBatismo, tempoCentral, ultimaIgreja, ministerioOutraIgreja, ministerioCentral) values([ô][Ô] & m_nom & _
[Ô][ô],[ô][Ô] & m_nasc & [Ô][ô],[ô][Ô] & m_est_civil & _
[Ô][ô],[ô][Ô] & m_prof & [Ô][ô],[ô][Ô] & m_email1 & [Ô][ô],[ô][Ô] & m_email2 & [Ô][ô],[ô][Ô] & m_tel_res1 & [Ô][ô],[ô][Ô] & m_tel_res2 & [Ô][ô],[ô][Ô] & m_tel_com1 & [Ô][ô],[ô][Ô] & m_tel_com2 & [Ô][ô],[ô][Ô] & m_cel1 & [Ô][ô],[ô][Ô] & m_op1 & [Ô][ô],[ô][Ô] & m_cel2 & [Ô][ô],[ô][Ô] & m_op2 & _
[Ô][ô],[ô][Ô] & m_end & [Ô][ô],[ô][Ô] & m_comp & [Ô][ô],[ô][Ô] & m_cep & [Ô][ô],[ô][Ô] & m_bairro & [Ô][ô],[ô][Ô] & m_est & [Ô][ô],[ô][Ô] & m_cid & [Ô][ô],[ô][Ô] & m_pais & [Ô][ô],[ô][Ô] & m_obs & [Ô][ô],[ô][Ô] & m_fil & [Ô][ô],[ô][Ô] & m_cel3 & [Ô][ô],[ô][Ô] & m_op3 & [Ô][ô],[ô][Ô] & m_cel4 & _
[Ô][ô],[ô][Ô] & m_op4 & [Ô][ô],[ô][Ô] & m_forAcad & [Ô][ô],[ô][Ô] & m_conj & [Ô][ô],[ô][Ô] & m_filho1 & [Ô][ô],[ô][Ô] & m_niverFilho1 & [Ô][ô],[ô][Ô] & m_filho2 & [Ô][ô],[ô][Ô] & m_niverFilho2 & [Ô][ô],[ô][Ô] & m_filho3 & [Ô][ô],[ô][Ô] & m_niverFilho3 & [Ô][ô],[ô][Ô] & m_filho4 & _
[Ô][ô],[ô][Ô] & m_niverFilho4 & [Ô][ô],[ô][Ô] & m_filho5 & [Ô][ô],[ô][Ô] & m_niverFilho5 & [Ô][ô],[ô][Ô] & m_dataPree & [Ô][ô],[ô][Ô] & m_arrolam & [Ô][ô],[ô][Ô] & m_dataBat & [Ô][ô],[ô][Ô] & m_igrejaAnt & [Ô][ô],[ô][Ô] & m_pastorBat & [Ô][ô],[ô][Ô] & m_tempoCentral & _
[Ô][ô],[ô][Ô] & m_ultIgreja & [Ô][ô],[ô][Ô] & m_minOutIgreja & [Ô][ô],[ô][Ô] & m_minCentral & [Ô][ô])[Ô]
objbanco.executar_comando(sql)
m_cod = buscar_ultimocodigo()
Else
sql = [Ô]update Membros set nome = [ô][Ô] & m_nom & [Ô][ô], data_nasc = [ô][Ô] & m_nasc & [Ô][ô], est_civil = [ô][Ô] & m_est_civil & _
[Ô][ô], profissao = [ô][Ô] & m_prof & [Ô][ô], email1 = [ô][Ô] & m_email1 & [Ô][ô], email2 = [ô][Ô] & m_email2 & [Ô][ô], tel_res1 = [ô][Ô] & m_tel_res1 & _
[Ô][ô], tel_res2 = [ô][Ô] & m_tel_res2 & [Ô][ô], tel_com1 = [ô][Ô] & m_tel_com1 & [Ô][ô], tel_com2 = [ô][Ô] & m_tel_com2 & [Ô][ô], celular1 = [ô][Ô] & m_cel1 & _
[Ô][ô], operadora1 = [ô][Ô] & m_op1 & [Ô][ô], celular2 = [ô][Ô] & m_cel2 & [Ô][ô], operadora2 = [ô][Ô] & m_op2 & [Ô][ô], endereco = [ô][Ô] & m_end & _
[Ô][ô], complemento = [ô][Ô] & m_comp & [Ô][ô], cep = [ô][Ô] & m_cep & [Ô][ô], bairro = [ô][Ô] & m_bairro & [Ô][ô], estado = [ô][Ô] & m_est & _
[Ô][ô], cidade = [ô][Ô] & m_cid & [Ô][ô], pais = [ô][Ô] & m_pais & [Ô][ô], observacoes = [ô][Ô] & m_obs & [Ô][ô], filiacao = [ô][Ô] & m_fil & _
[Ô][ô], celular3 = [ô][Ô] & m_cel3 & [Ô][ô], operadora3 = [ô][Ô] & m_op3 & [Ô][ô], celular4 = [ô][Ô] & m_cel4 & [Ô][ô], operadora4 = [ô][Ô] & m_op4 & _
[Ô][ô], formacaoAcademica = [ô][Ô] & m_forAcad & [Ô][ô], conjugue = [ô][Ô] & m_conj & [Ô][ô], filho1 = [ô][Ô] & m_filho1 & [Ô][ô], niverFilho1 = [ô][Ô] & m_niverFilho1 & _
[Ô][ô], filho2 = [ô][Ô] & m_filho2 & [Ô][ô], niverFilho2 = [ô][Ô] & m_niverFilho2 & [Ô][ô], filho3 = [ô][Ô] & m_filho3 & [Ô][ô], niverFilho3 = [ô][Ô] & m_niverFilho3 & _
[Ô][ô], filho4 = [ô][Ô] & m_filho4 & [Ô][ô], niverFilho4 = [ô][Ô] & m_niverFilho4 & [Ô][ô], filho5 = [ô][Ô] & m_filho5 & [Ô][ô], niverFilho5 = [ô][Ô] & m_niverFilho5 & _
[Ô][ô], dataPreenchimento = [ô][Ô] & m_dataPree & [Ô][ô], arrolamento = [ô][Ô] & m_arrolam & [Ô][ô], dataBatismo = [ô][Ô] & m_dataBat & [Ô][ô], igrejaAnterior = [ô][Ô] & m_igrejaAnt & _
[Ô][ô], pastorBatismo = [ô][Ô] & m_pastorBat & [Ô][ô], tempoCentral = [ô][Ô] & m_tempoCentral & [Ô][ô], ultimaIgreja = [ô][Ô] & m_ultIgreja & [Ô][ô], ministerioOutraIgreja = [ô][Ô] & m_minOutIgreja & [Ô][ô], ministerioCentral = [ô][Ô] & m_minCentral & [Ô][ô] where codigo =[Ô] & m_cod
objbanco.executar_comando(sql)
End If
End Sub
Private Function buscar_ultimocodigo() As Integer
[ô]criei um select para me retornar o maior codigo armazenado
sql = [Ô]select max(codigo) as Codigo from Membros[Ô]
[ô]criei meu objda com parametros sql e minha conexao
Dim objda As New OleDb.OleDbDataAdapter(sql, objbanco.objconexao)
objds.Tables.Clear()
[ô]meu objda configurado eu jogo dentro do meu objds
objda.Fill(objds)
[ô]aqui eu retorno uma tabela uma linha e um campo
Return objds.Tables(0).Rows(0).Item(0)
End Function
Public Function localizar(ByVal campo As Char) As Boolean
If IsNumeric(campo) Then
sql = [Ô]select * from Membros where codigo =[Ô] & campo
Else
sql = [Ô]select * from Membros where nome =[ô][Ô] & campo & [Ô][ô][Ô]
End If
Dim objda As New OleDb.OleDbDataAdapter(sql, objbanco.objconexao)
[ô]limpo a tabela para enserir novos dados
objds.Tables.Clear()
objda.Fill(objds)
[ô]pergunto se meu data set celula[Ô]0[Ô]
[ô]contiver linhas eu conto as linhas se for maior que zero
If objds.Tables(0).Rows.Count > 0 Then
m_cod = objds.Tables(0).Rows(0).Item(0)
m_nom = objds.Tables(0).Rows(0).Item(1)
m_nasc = objds.Tables(0).Rows(0).Item(2)
m_est_civil = objds.Tables(0).Rows(0).Item(3)
m_prof = objds.Tables(0).Rows(0).Item(4)
m_email1 = objds.Tables(0).Rows(0).Item(5)
m_email2 = objds.Tables(0).Rows(0).Item(6)
m_tel_res1 = objds.Tables(0).Rows(0).Item(7)
m_tel_res2 = objds.Tables(0).Rows(0).Item(8)
m_tel_com1 = objds.Tables(0).Rows(0).Item(9)
m_tel_com2 = objds.Tables(0).Rows(0).Item(10)
m_cel1 = objds.Tables(0).Rows(0).Item(11)
m_op1 = objds.Tables(0).Rows(0).Item(12)
m_cel2 = objds.Tables(0).Rows(0).Item(13)
m_op2 = objds.Tables(0).Rows(0).Item(14)
m_end = objds.Tables(0).Rows(0).Item(15)
m_comp = objds.Tables(0).Rows(0).Item(16)
m_cep = objds.Tables(0).Rows(0).Item(17)
m_bairro = objds.Tables(0).Rows(0).Item(18)
m_est = objds.Tables(0).Rows(0).Item(19)
m_cid = objds.Tables(0).Rows(0).Item(20)
m_pais = objds.Tables(0).Rows(0).Item(21)
m_obs = objds.Tables(0).Rows(0).Item(22)
m_fil = objds.Tables(0).Rows(0).Item(23)
m_cel3 = objds.Tables(0).Rows(0).Item(24)
m_op3 = objds.Tables(0).Rows(0).Item(25)
m_cel4 = objds.Tables(0).Rows(0).Item(26)
m_op4 = objds.Tables(0).Rows(0).Item(27)
m_forAcad = objds.Tables(0).Rows(0).Item(28)
m_conj = objds.Tables(0).Rows(0).Item(29)
m_filho1 = objds.Tables(0).Rows(0).Item(30)
m_niverFilho1 = objds.Tables(0).Rows(0).Item(31)
m_filho2 = objds.Tables(0).Rows(0).Item(32)
m_niverFilho2 = objds.Tables(0).Rows(0).Item(33)
m_filho3 = objds.Tables(0).Rows(0).Item(34)
m_niverFilho3 = objds.Tables(0).Rows(0).Item(35)
m_filho4 = objds.Tables(0).Rows(0).Item(36)
m_niverFilho4 = objds.Tables(0).Rows(0).Item(37)
m_filho5 = objds.Tables(0).Rows(0).Item(38)
m_niverFilho5 = objds.Tables(0).Rows(0).Item(39)
m_dataPree = objds.Tables(0).Rows(0).Item(40)
m_arrolam = objds.Tables(0).Rows(0).Item(41)
m_dataBat = objds.Tables(0).Rows(0).Item(42)
m_igrejaAnt = objds.Tables(0).Rows(0).Item(43)
m_pastorBat = objds.Tables(0).Rows(0).Item(44)
m_tempoCentral = objds.Tables(0).Rows(0).Item(45)
m_ultIgreja = objds.Tables(0).Rows(0).Item(46)
m_minOutIgreja = objds.Tables(0).Rows(0).Item(47)
m_minCentral = objds.Tables(0).Rows(0).Item(48)
End If
Return True
End Function
Public Function popular_grade(ByVal campo As String) As DataTable
If IsNumeric(campo) Then
sql = [Ô]select codigo as Codigo, nome as Nome, data_nasc as Data, est_civil as Relacionamento, profissao as Profissão, email1 as Email1, email2 as Email2, tel_res1 as Telefone1, tel_res2 as Telefone2, tel_com1 as Comercial1, tel_com2 as Comercial2, celular1 as Cel1, operadora1 as Operadora1, celular2 as Cel2, operadora2 as Operadora2, endereco as Endereço, complemento as Complemento, cep as Cep, bairro as Bairro, estado as Estado, cidade as Cidade, pais as PaÃs, observacoes as Observações, filiacao as Filiação, celular3 as Cel3, operadora3 as Operadora3, celular4 as Cel4, operadora4 as Operadora4, formacaoAcademica as Formação, conjugue as Conjugue, filho1 as Filho1, niverFilho1 as Aniversário1, filho2 as Filho2, niverFilho2 as Aniversário2, filho3 as Filho3, niverFilho3 as Aniversário3, filho4 as Filho4, niverFilho4 as Aniversário4, filho5 as Filho5, niverFilho5 as Aniversário5, dataPreenchimento as Preenchimento, arrolamento as Arrolamento, dataBatismo as Batismo, igrejaAnterior as AntigaIgreja, pastorBatismo as Batizou, tempoCentral as TempoCentral, ultimaIgreja as UltimaIgreja, ministerioOutraIgreja as Atuou, ministerioCentral as Atuar from Membros where codigo =[Ô] & campo
Else
sql = [Ô]select codigo as Codigo, nome as Nome, data_nasc as Data, est_civil as Relacionamento, profissao as Profissão, email1 as Email1, email2 as Email2, tel_res1 as Telefone1, tel_res2 as Telefone2, tel_com1 as Comercial1, tel_com2 as Comercial2, celular1 as Cel1, operadora1 as Operadora1, c
Meu Botão excluir não está excluindo, ele sempre aponta para:
DESEJA EXCLUIR O NUMERO 0?
Porém se em limpar o Banco de Dados(pensando que iria começar do 0), ele limpa porém faz o novo primeiro cadastro no número que terminou a ultima vez, ai o Banco inicia no numero alto.
SEGUE MINHA CLASSE ADICIONAR - cls_adicionar
Public Function excluir(ByVal codigo As Integer) As Boolean
If MessageBox.Show([Ô]Deseja excluir codigo [Ô] & codigo & [Ô]?[Ô], [Ô]Menssagem[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
sql = [Ô]delete from Membros where codigo =[Ô] & codigo
objbanco.executar_comando(sql)
End If
Return True
End Function
Public Sub incluir(ByVal novo As Boolean)
If novo = True Then
sql = [Ô]insert into Membros(nome,data_nasc,est_civil,profissao,email1,email2,tel_res1,tel_res2,tel_com1,tel_com2,celular1,operadora1,celular2,operadora2,endereco,complemento,cep,bairro,estado,cidade,pais,observacoes, filiacao, celular3, operadora3, celular4, operadora4, formacaoAcademica, conjugue, filho1, niverFilho1, filho2, niverFilho2, filho3, niverFilho3, filho4, niverFilho4, filho5, niverFilho5, dataPreenchimento, arrolamento, dataBatismo, igrejaAnterior, pastorBatismo, tempoCentral, ultimaIgreja, ministerioOutraIgreja, ministerioCentral) values([ô][Ô] & m_nom & _
[Ô][ô],[ô][Ô] & m_nasc & [Ô][ô],[ô][Ô] & m_est_civil & _
[Ô][ô],[ô][Ô] & m_prof & [Ô][ô],[ô][Ô] & m_email1 & [Ô][ô],[ô][Ô] & m_email2 & [Ô][ô],[ô][Ô] & m_tel_res1 & [Ô][ô],[ô][Ô] & m_tel_res2 & [Ô][ô],[ô][Ô] & m_tel_com1 & [Ô][ô],[ô][Ô] & m_tel_com2 & [Ô][ô],[ô][Ô] & m_cel1 & [Ô][ô],[ô][Ô] & m_op1 & [Ô][ô],[ô][Ô] & m_cel2 & [Ô][ô],[ô][Ô] & m_op2 & _
[Ô][ô],[ô][Ô] & m_end & [Ô][ô],[ô][Ô] & m_comp & [Ô][ô],[ô][Ô] & m_cep & [Ô][ô],[ô][Ô] & m_bairro & [Ô][ô],[ô][Ô] & m_est & [Ô][ô],[ô][Ô] & m_cid & [Ô][ô],[ô][Ô] & m_pais & [Ô][ô],[ô][Ô] & m_obs & [Ô][ô],[ô][Ô] & m_fil & [Ô][ô],[ô][Ô] & m_cel3 & [Ô][ô],[ô][Ô] & m_op3 & [Ô][ô],[ô][Ô] & m_cel4 & _
[Ô][ô],[ô][Ô] & m_op4 & [Ô][ô],[ô][Ô] & m_forAcad & [Ô][ô],[ô][Ô] & m_conj & [Ô][ô],[ô][Ô] & m_filho1 & [Ô][ô],[ô][Ô] & m_niverFilho1 & [Ô][ô],[ô][Ô] & m_filho2 & [Ô][ô],[ô][Ô] & m_niverFilho2 & [Ô][ô],[ô][Ô] & m_filho3 & [Ô][ô],[ô][Ô] & m_niverFilho3 & [Ô][ô],[ô][Ô] & m_filho4 & _
[Ô][ô],[ô][Ô] & m_niverFilho4 & [Ô][ô],[ô][Ô] & m_filho5 & [Ô][ô],[ô][Ô] & m_niverFilho5 & [Ô][ô],[ô][Ô] & m_dataPree & [Ô][ô],[ô][Ô] & m_arrolam & [Ô][ô],[ô][Ô] & m_dataBat & [Ô][ô],[ô][Ô] & m_igrejaAnt & [Ô][ô],[ô][Ô] & m_pastorBat & [Ô][ô],[ô][Ô] & m_tempoCentral & _
[Ô][ô],[ô][Ô] & m_ultIgreja & [Ô][ô],[ô][Ô] & m_minOutIgreja & [Ô][ô],[ô][Ô] & m_minCentral & [Ô][ô])[Ô]
objbanco.executar_comando(sql)
m_cod = buscar_ultimocodigo()
Else
sql = [Ô]update Membros set nome = [ô][Ô] & m_nom & [Ô][ô], data_nasc = [ô][Ô] & m_nasc & [Ô][ô], est_civil = [ô][Ô] & m_est_civil & _
[Ô][ô], profissao = [ô][Ô] & m_prof & [Ô][ô], email1 = [ô][Ô] & m_email1 & [Ô][ô], email2 = [ô][Ô] & m_email2 & [Ô][ô], tel_res1 = [ô][Ô] & m_tel_res1 & _
[Ô][ô], tel_res2 = [ô][Ô] & m_tel_res2 & [Ô][ô], tel_com1 = [ô][Ô] & m_tel_com1 & [Ô][ô], tel_com2 = [ô][Ô] & m_tel_com2 & [Ô][ô], celular1 = [ô][Ô] & m_cel1 & _
[Ô][ô], operadora1 = [ô][Ô] & m_op1 & [Ô][ô], celular2 = [ô][Ô] & m_cel2 & [Ô][ô], operadora2 = [ô][Ô] & m_op2 & [Ô][ô], endereco = [ô][Ô] & m_end & _
[Ô][ô], complemento = [ô][Ô] & m_comp & [Ô][ô], cep = [ô][Ô] & m_cep & [Ô][ô], bairro = [ô][Ô] & m_bairro & [Ô][ô], estado = [ô][Ô] & m_est & _
[Ô][ô], cidade = [ô][Ô] & m_cid & [Ô][ô], pais = [ô][Ô] & m_pais & [Ô][ô], observacoes = [ô][Ô] & m_obs & [Ô][ô], filiacao = [ô][Ô] & m_fil & _
[Ô][ô], celular3 = [ô][Ô] & m_cel3 & [Ô][ô], operadora3 = [ô][Ô] & m_op3 & [Ô][ô], celular4 = [ô][Ô] & m_cel4 & [Ô][ô], operadora4 = [ô][Ô] & m_op4 & _
[Ô][ô], formacaoAcademica = [ô][Ô] & m_forAcad & [Ô][ô], conjugue = [ô][Ô] & m_conj & [Ô][ô], filho1 = [ô][Ô] & m_filho1 & [Ô][ô], niverFilho1 = [ô][Ô] & m_niverFilho1 & _
[Ô][ô], filho2 = [ô][Ô] & m_filho2 & [Ô][ô], niverFilho2 = [ô][Ô] & m_niverFilho2 & [Ô][ô], filho3 = [ô][Ô] & m_filho3 & [Ô][ô], niverFilho3 = [ô][Ô] & m_niverFilho3 & _
[Ô][ô], filho4 = [ô][Ô] & m_filho4 & [Ô][ô], niverFilho4 = [ô][Ô] & m_niverFilho4 & [Ô][ô], filho5 = [ô][Ô] & m_filho5 & [Ô][ô], niverFilho5 = [ô][Ô] & m_niverFilho5 & _
[Ô][ô], dataPreenchimento = [ô][Ô] & m_dataPree & [Ô][ô], arrolamento = [ô][Ô] & m_arrolam & [Ô][ô], dataBatismo = [ô][Ô] & m_dataBat & [Ô][ô], igrejaAnterior = [ô][Ô] & m_igrejaAnt & _
[Ô][ô], pastorBatismo = [ô][Ô] & m_pastorBat & [Ô][ô], tempoCentral = [ô][Ô] & m_tempoCentral & [Ô][ô], ultimaIgreja = [ô][Ô] & m_ultIgreja & [Ô][ô], ministerioOutraIgreja = [ô][Ô] & m_minOutIgreja & [Ô][ô], ministerioCentral = [ô][Ô] & m_minCentral & [Ô][ô] where codigo =[Ô] & m_cod
objbanco.executar_comando(sql)
End If
End Sub
Private Function buscar_ultimocodigo() As Integer
[ô]criei um select para me retornar o maior codigo armazenado
sql = [Ô]select max(codigo) as Codigo from Membros[Ô]
[ô]criei meu objda com parametros sql e minha conexao
Dim objda As New OleDb.OleDbDataAdapter(sql, objbanco.objconexao)
objds.Tables.Clear()
[ô]meu objda configurado eu jogo dentro do meu objds
objda.Fill(objds)
[ô]aqui eu retorno uma tabela uma linha e um campo
Return objds.Tables(0).Rows(0).Item(0)
End Function
Public Function localizar(ByVal campo As Char) As Boolean
If IsNumeric(campo) Then
sql = [Ô]select * from Membros where codigo =[Ô] & campo
Else
sql = [Ô]select * from Membros where nome =[ô][Ô] & campo & [Ô][ô][Ô]
End If
Dim objda As New OleDb.OleDbDataAdapter(sql, objbanco.objconexao)
[ô]limpo a tabela para enserir novos dados
objds.Tables.Clear()
objda.Fill(objds)
[ô]pergunto se meu data set celula[Ô]0[Ô]
[ô]contiver linhas eu conto as linhas se for maior que zero
If objds.Tables(0).Rows.Count > 0 Then
m_cod = objds.Tables(0).Rows(0).Item(0)
m_nom = objds.Tables(0).Rows(0).Item(1)
m_nasc = objds.Tables(0).Rows(0).Item(2)
m_est_civil = objds.Tables(0).Rows(0).Item(3)
m_prof = objds.Tables(0).Rows(0).Item(4)
m_email1 = objds.Tables(0).Rows(0).Item(5)
m_email2 = objds.Tables(0).Rows(0).Item(6)
m_tel_res1 = objds.Tables(0).Rows(0).Item(7)
m_tel_res2 = objds.Tables(0).Rows(0).Item(8)
m_tel_com1 = objds.Tables(0).Rows(0).Item(9)
m_tel_com2 = objds.Tables(0).Rows(0).Item(10)
m_cel1 = objds.Tables(0).Rows(0).Item(11)
m_op1 = objds.Tables(0).Rows(0).Item(12)
m_cel2 = objds.Tables(0).Rows(0).Item(13)
m_op2 = objds.Tables(0).Rows(0).Item(14)
m_end = objds.Tables(0).Rows(0).Item(15)
m_comp = objds.Tables(0).Rows(0).Item(16)
m_cep = objds.Tables(0).Rows(0).Item(17)
m_bairro = objds.Tables(0).Rows(0).Item(18)
m_est = objds.Tables(0).Rows(0).Item(19)
m_cid = objds.Tables(0).Rows(0).Item(20)
m_pais = objds.Tables(0).Rows(0).Item(21)
m_obs = objds.Tables(0).Rows(0).Item(22)
m_fil = objds.Tables(0).Rows(0).Item(23)
m_cel3 = objds.Tables(0).Rows(0).Item(24)
m_op3 = objds.Tables(0).Rows(0).Item(25)
m_cel4 = objds.Tables(0).Rows(0).Item(26)
m_op4 = objds.Tables(0).Rows(0).Item(27)
m_forAcad = objds.Tables(0).Rows(0).Item(28)
m_conj = objds.Tables(0).Rows(0).Item(29)
m_filho1 = objds.Tables(0).Rows(0).Item(30)
m_niverFilho1 = objds.Tables(0).Rows(0).Item(31)
m_filho2 = objds.Tables(0).Rows(0).Item(32)
m_niverFilho2 = objds.Tables(0).Rows(0).Item(33)
m_filho3 = objds.Tables(0).Rows(0).Item(34)
m_niverFilho3 = objds.Tables(0).Rows(0).Item(35)
m_filho4 = objds.Tables(0).Rows(0).Item(36)
m_niverFilho4 = objds.Tables(0).Rows(0).Item(37)
m_filho5 = objds.Tables(0).Rows(0).Item(38)
m_niverFilho5 = objds.Tables(0).Rows(0).Item(39)
m_dataPree = objds.Tables(0).Rows(0).Item(40)
m_arrolam = objds.Tables(0).Rows(0).Item(41)
m_dataBat = objds.Tables(0).Rows(0).Item(42)
m_igrejaAnt = objds.Tables(0).Rows(0).Item(43)
m_pastorBat = objds.Tables(0).Rows(0).Item(44)
m_tempoCentral = objds.Tables(0).Rows(0).Item(45)
m_ultIgreja = objds.Tables(0).Rows(0).Item(46)
m_minOutIgreja = objds.Tables(0).Rows(0).Item(47)
m_minCentral = objds.Tables(0).Rows(0).Item(48)
End If
Return True
End Function
Public Function popular_grade(ByVal campo As String) As DataTable
If IsNumeric(campo) Then
sql = [Ô]select codigo as Codigo, nome as Nome, data_nasc as Data, est_civil as Relacionamento, profissao as Profissão, email1 as Email1, email2 as Email2, tel_res1 as Telefone1, tel_res2 as Telefone2, tel_com1 as Comercial1, tel_com2 as Comercial2, celular1 as Cel1, operadora1 as Operadora1, celular2 as Cel2, operadora2 as Operadora2, endereco as Endereço, complemento as Complemento, cep as Cep, bairro as Bairro, estado as Estado, cidade as Cidade, pais as PaÃs, observacoes as Observações, filiacao as Filiação, celular3 as Cel3, operadora3 as Operadora3, celular4 as Cel4, operadora4 as Operadora4, formacaoAcademica as Formação, conjugue as Conjugue, filho1 as Filho1, niverFilho1 as Aniversário1, filho2 as Filho2, niverFilho2 as Aniversário2, filho3 as Filho3, niverFilho3 as Aniversário3, filho4 as Filho4, niverFilho4 as Aniversário4, filho5 as Filho5, niverFilho5 as Aniversário5, dataPreenchimento as Preenchimento, arrolamento as Arrolamento, dataBatismo as Batismo, igrejaAnterior as AntigaIgreja, pastorBatismo as Batizou, tempoCentral as TempoCentral, ultimaIgreja as UltimaIgreja, ministerioOutraIgreja as Atuou, ministerioCentral as Atuar from Membros where codigo =[Ô] & campo
Else
sql = [Ô]select codigo as Codigo, nome as Nome, data_nasc as Data, est_civil as Relacionamento, profissao as Profissão, email1 as Email1, email2 as Email2, tel_res1 as Telefone1, tel_res2 as Telefone2, tel_com1 as Comercial1, tel_com2 as Comercial2, celular1 as Cel1, operadora1 as Operadora1, c
1º - Seria interessante pesquisar um pouco antes de criar um tópico.
2º - é melhor tratar de um unico assunto em um tópico.
Mas vamos as dúvidas.
Tem que formatar a data para dd/MM/yyyy
Então, não é interessante reaproveitar um código que já foi excluÃdo, para isso seria necessário percorrer todos os registros e verificar o registro que falta, isso iria atrapalhar no desempenho do seu banco.
Caso vc limpe toda a tabela, no access tem uma opção em Ferramentas > Utilitários > Reparar e Compactar, dessa forma as tabelas que tem numeração automática e nenhum registro, a numeração será resetada.
2º - é melhor tratar de um unico assunto em um tópico.
Mas vamos as dúvidas.
Citação:
Tem alguma dica para resolver isso no código?
Tem que formatar a data para dd/MM/yyyy
Citação:Meu botão salvar está funcionando normalmente(tirando esse questionamento de cima), porém ele não busca código em branco. por exemplo:
Eu tenho 25 cadastros em meu sistema, se eu excluir o membro nº4 eu gostaria que a próxima entrada de dados fosse gravado no nº4....deixando sempre o Código(numeração Automática no Banco) com a quantidade de registros cadastrados no Banco.
Então, não é interessante reaproveitar um código que já foi excluÃdo, para isso seria necessário percorrer todos os registros e verificar o registro que falta, isso iria atrapalhar no desempenho do seu banco.
Citação:DESEJA EXCLUIR O NUMERO 0?
Porém se em limpar o Banco de Dados(pensando que iria começar do 0), ele limpa porém faz o novo primeiro cadastro no número que terminou a ultima vez, ai o Banco inicia no numero alto.
Caso vc limpe toda a tabela, no access tem uma opção em Ferramentas > Utilitários > Reparar e Compactar, dessa forma as tabelas que tem numeração automática e nenhum registro, a numeração será resetada.
Tópico encerrado , respostas não são mais permitidas