SELECT - PORQUE NAO FUNCIONA

PITERGALDIANO 19/12/2012 12:19:46
#416187
Bom dia pessoal, mas um dúvida boba.... mas lá vai

Uso o seguinte comando para filtrar registros:

Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn
.CommandText = [Ô]SELECT * FROM usuarios WHERE codigo=[Ô] & txtcodigo.text [ô] Campo Integer
[ô] .CommandText = [Ô]SELECT * FROM usuarios WHERE codigo=228[Ô] [ô] Campo Integer - já tentei assim também para ver ser era erro na forma de montar o select
.Execute
End With
rst.requery
txtCodigo.Text = rst!codigo
txtNome.Text = rst!nome

não busca o registro, sempre mantém no primeiro registro do banco, porque?
ALEVALE 19/12/2012 13:06:17
#416189
[Ô]SELECT * FROM usuarios WHERE codigo=[Ô] & [Ô] [ô] [Ô] & 228 & [Ô] [ô] [Ô]
FEDERHEN 19/12/2012 13:56:34
#416194
Eu costumo usar assim:

Set Rs = New ADODB.Recordset
Rs.open [Ô]SELECT * FROM usuarios WHERE codigo = [Ô] & txtcodigo.text, Cnn, adOpenDynamic, adLockReadOnly
If Rs.EOF = False Then
txtCodigo.Text = rst!codigo
txtNome.Text = rst!nome
End If
Rs.Close
OMAR2011 19/12/2012 16:38:21
#416203 Resposta escolhida
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn
.CommandText = [Ô]SELECT * FROM usuarios WHERE codigo=[Ô] & txtcodigo.text [ô] Campo Integer
[ô] .CommandText = [Ô]SELECT * FROM usuarios WHERE codigo=228[Ô] [ô] Campo Integer - já tentei assim também para ver ser era erro na forma de montar o select
.Execute
End With
[ô][txt-color=#e80000]rst.requery[/txt-color] [ô]Não sei o que é isto.Se já tem rst declarado então faça isto

[txt-color=#007100]Set rst = Cmd.Execute[/txt-color]
txtCodigo.Text = rst!codigo
txtNome.Text = rst!nome
PITERGALDIANO 19/12/2012 17:21:51
#416206
Omar2011... obrigado. funcionou
LLAIA 20/12/2012 09:23:51
#416227
Não esqueça de duas coisas:

1 - Ao trabalhar com SELECT, vc precisa de um RecordSet.

2 - Encerre sempre o tópico quando sua dúvida for esclarecida.
Tópico encerrado , respostas não são mais permitidas
Voltar