PROBLEMA COM BANCO DE DADOS
Bom pessol, ao tentar abrir uma tabela do BD e jogar os dados pra uns textbox eu estou recebendo um erro, eu estou usando o seguinte código pra abrir a tabela:
Set mrsClientes = New Recordset
mrsClientes.Open "SELECT * FROM Clientes WHERE Código = '" & txtCódigo.Text & "'", mcnDados, adOpenKeyset, adLockOptimistic, adCmdText
txtNome.Text = mrsClientes!Nome & ""
txtCrédito.Text = mrsClientes!Crédito & ""
txtNick.Text = mrsClientes!Nick & ""
txtSenha.Text = mrsClientes!Senha & ""
mrsClientes.Close
Antes que perguntem, eu ja tenho pronta a parte que abre o bd. Mas aà vai erro:
Com esse código eu só consuigo mandar os dados pra duas textbox! ou seja, eu tenho apagar as primeiras duas, ou ultimas duas atribuições de valores ao textbox para o codigo não retornar um erro que o seguinte:
"Erro "3021" BOF ou EOF são verdadeiros, ou o registro atual foi excluido"
Isso é intrigante pq se atribuir valores a somente dois text box, o codigo funciona perfeitamente.
Acho que deve ser algo q eu deixei passar despercebido, ou um algum bug, bom não sei, espero a ajuda de vcs
Abraços
LEOx
Set mrsClientes = New Recordset
mrsClientes.Open "SELECT * FROM Clientes WHERE Código = '" & txtCódigo.Text & "'", mcnDados, adOpenKeyset, adLockOptimistic, adCmdText
txtNome.Text = mrsClientes!Nome & ""
txtCrédito.Text = mrsClientes!Crédito & ""
txtNick.Text = mrsClientes!Nick & ""
txtSenha.Text = mrsClientes!Senha & ""
mrsClientes.Close
Antes que perguntem, eu ja tenho pronta a parte que abre o bd. Mas aà vai erro:
Com esse código eu só consuigo mandar os dados pra duas textbox! ou seja, eu tenho apagar as primeiras duas, ou ultimas duas atribuições de valores ao textbox para o codigo não retornar um erro que o seguinte:
"Erro "3021" BOF ou EOF são verdadeiros, ou o registro atual foi excluido"
Isso é intrigante pq se atribuir valores a somente dois text box, o codigo funciona perfeitamente.
Acho que deve ser algo q eu deixei passar despercebido, ou um algum bug, bom não sei, espero a ajuda de vcs
Abraços
LEOx
Leox
Se Código for Numérico altere para
"SELECT * FROM Clientes WHERE Código = " & txtCódigo.Text
Teste e veja se funciona, do contrário poste aqui novamente.
Se Código for Numérico altere para
"SELECT * FROM Clientes WHERE Código = " & txtCódigo.Text
Teste e veja se funciona, do contrário poste aqui novamente.
Leox
Qual foi o erro desta vez?
O Código é Numérico?
[S22]
Qual foi o erro desta vez?
O Código é Numérico?
[S22]
Leox
Verifique na Estrutura da Tabela, porque eu acredito que deva estar declarado como Texto.
Não precisa declarar assim:
txtNome.Text = mrsClientes!Nome & ""
bastaria [txt-color=cyan]txtNome.Text = mrsClientes!Nome[/txt-color], mas isto não geraria erro.
[S40]
Verifique na Estrutura da Tabela, porque eu acredito que deva estar declarado como Texto.
Não precisa declarar assim:
txtNome.Text = mrsClientes!Nome & ""
bastaria [txt-color=cyan]txtNome.Text = mrsClientes!Nome[/txt-color], mas isto não geraria erro.
[S40]
Tópico encerrado , respostas não são mais permitidas