EXIBIR DADOS DO BANCO FIREBIRD NO FORMULARIO

JPAULO101 27/05/2015 16:45:24
#447097
Olá pessoal, estou executando a rotina abaixo para exibir os dados da tabela em formulário, mais está dando o seguinte erro como mostra a figura. Alguém me ajudar e verificar a rotina abaixo se existe algum erro de sintaxe. Fico grato.

Public Sub Exibir_Dados()

txtCodigo.Text = [Ô][Ô] & rs.Fields([Ô]CODIGO[Ô])

If Not IsNull(rs.Fields([Ô]NOME[Ô])) Then txtNome.Text = rs.Fields([Ô]NOME[Ô])
If Not IsNull(rs.Fields([Ô]RG[Ô])) Then txtRG.Text = rs.Fields([Ô]RG[Ô])
If Not IsNull(rs.Fields([Ô]CPF[Ô])) Then txtCPF.Text = rs.Fields([Ô]CPF[Ô])
If Not IsNull(rs.Fields([Ô]DTNASCIMENTO[Ô])) Then txtdata_nascimento.Text = rs.Fields([Ô]DTNASCIMENTO[Ô])
If Not IsNull(rs.Fields([Ô]DTADMISSAO[Ô])) Then txtData_admissao.Text = rs.Fields([Ô]DTADMISSAO[Ô])
If Not IsNull(rs.Fields([Ô]DTCADASTRO[Ô])) Then txtData_cadastro.Text = rs.Fields([Ô]DTCADASTRO[Ô])
If Not IsNull(rs.Fields([Ô]CTPS[Ô])) Then txtCTPS.Text = rs.Fields([Ô]CTPS[Ô])
If Not IsNull(rs.Fields([Ô]SERIE[Ô])) Then txtSerie.Text = rs.Fields([Ô]SERIE[Ô])
If Not IsNull(rs.Fields([Ô]TELEFONE1[Ô])) Then txtTelefone1.Text = rs.Fields([Ô]TELEFONE1[Ô])
If Not IsNull(rs.Fields([Ô]TELEFONE2[Ô])) Then txtTelefone2.Text = rs.Fields([Ô]TELEFONE2[Ô])
If Not IsNull(rs.Fields([Ô]CELULAR[Ô])) Then txtCelular.Text = rs.Fields([Ô]CELULAR[Ô])
If Not IsNull(rs.Fields([Ô]CARGO[Ô])) Then Txtcargo.Text = rs.Fields([Ô]CARGO[Ô])
If Not IsNull(rs.Fields([Ô]SETOR[Ô])) Then txtSetor.Text = rs.Fields([Ô]SETOR[Ô])
If Not IsNull(rs.Fields([Ô]EMAIL[Ô])) Then txtEmail.Text = rs.Fields([Ô]EMAIL[Ô])

If rs.Fields([Ô]ATIVO[Ô]) = True Then OptAtivo.Value = 1 Else OptAtivo.Value = 0
If rs.Fields([Ô]INATIVO[Ô]) = True Then OptInativo.Value = 1 Else OptInativo.Value = 0

If Not IsNull(rs.Fields([Ô]CEP[Ô])) Then txtEmail.Text = rs.Fields([Ô]CEP[Ô])
If Not IsNull(rs.Fields([Ô]LOGRADOURO[Ô])) Then txtEmail.Text = rs.Fields([Ô]LOGRADOURO[Ô])
If Not IsNull(rs.Fields([Ô]TIPOVIA[Ô])) Then txtEmail.Text = rs.Fields([Ô]TIPOVIA[Ô])
If Not IsNull(rs.Fields([Ô]MUNICIPIO[Ô])) Then txtEmail.Text = rs.Fields([Ô]MUNICIPIO[Ô])
If Not IsNull(rs.Fields([Ô]NUMERO[Ô])) Then txtEmail.Text = rs.Fields([Ô]NUMERO[Ô])
If Not IsNull(rs.Fields([Ô]BAIRRO[Ô])) Then txtEmail.Text = rs.Fields([Ô]BAIRRO[Ô])
If Not IsNull(rs.Fields([Ô]COMPLEMENTO[Ô])) Then txtEmail.Text = rs.Fields([Ô]COMPLEMENTO[Ô])
If Not IsNull(rs.Fields([Ô]UF[Ô])) Then txtEmail.Text = rs.Fields([Ô]UF[Ô])
If Not IsNull(rs.Fields([Ô]CIDADE[Ô])) Then txtEmail.Text = rs.Fields([Ô]CIDADE[Ô])

If Not IsNull(rs.Fields([Ô]E1[Ô])) Then txtentrada1.Text = rs.Fields([Ô]E1[Ô])
If Not IsNull(rs.Fields([Ô]E2[Ô])) Then txtentrada1.Text = rs.Fields([Ô]E2[Ô])
If Not IsNull(rs.Fields([Ô]S1[Ô])) Then txtsaida1.Text = rs.Fields([Ô]S1[Ô])
If Not IsNull(rs.Fields([Ô]S2[Ô])) Then txtsaida2.Text = rs.Fields([Ô]S2[Ô])

If rs.Fields([Ô]SEGUNDA[Ô]) = True Then chkSegunda.Value = 1 Else chkSegunda.Value = 0
If rs.Fields([Ô]TERCA[Ô]) = True Then chkTerca.Value = 1 Else chkTerca.Value = 0
If rs.Fields([Ô]QUARTA[Ô]) = True Then chkQuarta.Value = 1 Else chkQuarta.Value = 0
If rs.Fields([Ô]QUINTA[Ô]) = True Then chkQuinta.Value = 1 Else chkQuinta.Value = 0
If rs.Fields([Ô]SEXTA[Ô]) = True Then chkSexta.Value = 1 Else chkSexta.Value = 0
If rs.Fields([Ô]SABADO[Ô]) = True Then chkSabado.Value = 1 Else chkSabado.Value = 0
If rs.Fields([Ô]DOMINGO[Ô]) = True Then chkDomingo.Value = 1 Else chkDomingo.Value = 0

End Sub
MARCELOKROL 27/05/2015 17:55:27
#447100
Este erro esta acontecendo por que você digitou um nome de um campo que não existe ou um erro de ortográfica do campo. Revise no seu método de abertura do objeto RS com os nomes dos campos que você esta tentando carregar!
OMAR2011 27/05/2015 21:04:14
#447105 Resposta escolhida
é isto do MARCELOKROL.
Não precisa de tudo isto.
txtCodigo.Text = [Ô][Ô] & rs.Fields([Ô]CODIGO[Ô])
If Not IsNull(rs.Fields([Ô]NOME[Ô])) Then txtNome.Text = rs.Fields([Ô]NOME[Ô])
Basta,
txtCodigo.Text = [Ô][Ô] & rs([Ô]CODIGO[Ô])
txtNome.Text = [Ô][Ô] & rs([Ô]NOME[Ô])
txtdata_nascimento.Text = [Ô][Ô] & rs([Ô]DTNASCIMENTO[Ô])
JPAULO101 27/05/2015 21:46:32
#447108
[txt-color=#0000f0]Boa noite amigos, fiz as alterações conforme dicas de OMAR2011 e ficou assim, mais continua dando o mesmo erro. Estou coloca o exemplo caso fique melhor visualizar o erro. Desde já agradeço.
[/txt-color]

[txt-color=#0000f0]Public [/txt-color]conexao [txt-color=#0000f0]As New[/txt-color] ADODB.Connection [ô]variavel objeto de controle do banco de dado como o data
[txt-color=#0000f0]Public[/txt-color] rs [txt-color=#0000f0]As New [/txt-color]ADODB.Recordset [ô]recordset da tabela


Function Conectar()
On Error GoTo erro

conexao.ConnectionString = [Ô]DRIVER=Firebird/InterBase(r) driver;[Ô] & _
[Ô]DBNAME=[Ô] & App.Path & [Ô]\Dados\LAVANDERIA.FDB;[Ô] & _
[Ô]UID=SYSDBA;[Ô] & _
[Ô]PWD=masterkey[Ô]
conexao.Open
Exit Function
erro:
MsgBox [Ô]Impossivel estabelecer conexão com o banco de dados[Ô] + Chr$(13) + [Ô]O Sistema sera finalizado[Ô], vbInformation, App.EXEName
End
End Function

Function Desconectar()
Set conexao = Nothing
Set rst_conexao = Nothing
End Function

Private Sub Form_Load()
Call Conectar
Call Exibir_Dados
SSTab1.Tab = 0
End Sub


Public Sub Exibir_Dados()

txtCodigo.Text = [Ô][Ô] & rs([Ô]CODIGO[Ô])
txtNome.Text = [Ô][Ô] & rs([Ô]NOME[Ô])
txtdata_nascimento.Text = [Ô][Ô] & rs([Ô]DTNASCIMENTO[Ô])
txtRG.Text = [Ô][Ô] & rs([Ô]RG[Ô])
txtCPF.Text = [Ô][Ô] & rs([Ô]CPF[Ô])
txtdata_nascimento.Text = [Ô][Ô] & rs([Ô]DTNASCIMENTO[Ô])
txtData_admissao.Text = [Ô][Ô] & rs([Ô]DTADMISSAO[Ô])
txtData_cadastro.Text = [Ô][Ô] & rs([Ô]DTCADASTRO[Ô])
txtCTPS.Text = [Ô][Ô] & rs([Ô]CTPS[Ô])
txtSerie.Text = [Ô][Ô] & rs([Ô]SERIE[Ô])
txtTelefone1.Text = [Ô][Ô] & rs([Ô]TELEFONE1[Ô])
txtTelefone2.Text = [Ô][Ô] & rs([Ô]TELEFONE2[Ô])
txtCelular.Text = [Ô][Ô] & rs([Ô]CELULAR[Ô])
Txtcargo.Text = [Ô][Ô] & rs([Ô]CARGO[Ô])
txtSetor.Text = [Ô][Ô] & rs([Ô]SETOR[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]EMAIL[Ô])

If rs([Ô]ATIVO[Ô]) = True Then OptAtivo.Value = 1 Else OptAtivo.Value = 0
If rs([Ô]INATIVO[Ô]) = True Then OptInativo.Value = 1 Else OptInativo.Value = 0

txtEmail.Text = [Ô][Ô] & rs([Ô]CEP[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]LOGRADOURO[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]TIPOVIA[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]MUNICIPIO[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]NUMERO[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]BAIRRO[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]COMPLEMENTO[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]UF[Ô])
txtEmail.Text = [Ô][Ô] & rs([Ô]CIDADE[Ô])

txtentrada1.Text = [Ô][Ô] & rs([Ô]E1[Ô])
txtentrada1.Text = [Ô][Ô] & rs([Ô]E2[Ô])
txtsaida1.Text = [Ô][Ô] & rs([Ô]S1[Ô])
txtsaida2.Text = [Ô][Ô] & rs([Ô]S2[Ô])

If rs([Ô]SEGUNDA[Ô]) = True Then chkSegunda.Value = 1 Else chkSegunda.Value = 0
If rs([Ô]TERCA[Ô]) = True Then chkTerca.Value = 1 Else chkTerca.Value = 0
If rs([Ô]QUARTA[Ô]) = True Then chkQuarta.Value = 1 Else chkQuarta.Value = 0
If rs([Ô]QUINTA[Ô]) = True Then chkQuinta.Value = 1 Else chkQuinta.Value = 0
If rs([Ô]SEXTA[Ô]) = True Then chkSexta.Value = 1 Else chkSexta.Value = 0
If rs([Ô]SABADO[Ô]) = True Then chkSabado.Value = 1 Else chkSabado.Value = 0
If rs([Ô]DOMINGO[Ô]) = True Then chkDomingo.Value = 1 Else chkDomingo.Value = 0

End Sub
OMAR2011 28/05/2015 09:44:24
#447118
Public Sub Exibir_Dados()
[ô]Tem que abrir a tabela.
Dim Rs as new ADODB.Recordset
Rs.Open [Ô]Select * From TblFuncionario[Ô],conexao,3,3

End Sub
Não existe o Txtcargo.Text no seu formulário.
JPAULO101 28/05/2015 10:58:58
#447120
Obrigado OMAR201, funfou legal, uma dúvida para corrigir o erro, caso não exista nenhum cadastro banco, como seria?. Pois quando executei o projeto deparei com esse erro.
OMAR2011 28/05/2015 11:51:37
#447124
Outra dica.
Este erro acontece, devido não ter nenhum registro para ser exibido.
Para corrigir faça isto.
Dim Rs As New ADODB.Recordset
[txt-color=#e80000]Rs.CursorLocation = adUseClient[/txt-color] Este aqui tem que existir,caso contrário ira apresentar um registro negativo e vai ocorrer o erro.retire para ver
Set Rs.ActiveConnection = conexao
Rs.Open [Ô]Select * From TblFuncionario[Ô]
If Rs.RecordCount = 0 Then
[ô]Aqui coloca uma msgbox ou nada
Else
txtcodigo.text= rs([Ô]Cdoigo[Ô])
end if
JPAULO101 28/05/2015 13:25:29
#447128
Olá OMAR2011, acrescentei essa sua rotina, mais depois do msgox mostra novamente o erro.
OMAR2011 28/05/2015 15:39:16
#447132
Verifica
JPAULO101 28/05/2015 16:24:54
#447138
Agora funcionando normal, muito obrigado OMAR2011.
Tópico encerrado , respostas não são mais permitidas
Voltar