Consulta Sql


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Consulta Sql

Marcelo(mfc)

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 07/12/2006 00:02 hs

Caros Colega do Forum.

Estou precisando de mais uma ajuda..

Estou tentando fazer com que a minha textBox, ao digitar o código ele traga a descrição do produto. mais está dando esse erro( Run-Time erro '3075': - Erro de sintaxe na sequÇencia de caracteres na expresão de consulta 'Produto.IdPlu ='251952'.

Segue a rotina que estou usando

Private Sub TxtPlu_LostFocus()
Dim Var As String
Var = Trim(TxtPlu.Text)
Set RS = Banco.OpenRecordset(" Select * From Produtos Where Produtos.IdPlu = '" & Var)

Do While Not RS.EOF
LblDesc = RS!DescPlu
CboCateg.AddItem RS(0)
RS.MoveNext
Loop

End Sub

Obrigado,

CSRocha

BRASILIA
DF - BRASIL

ENUNCIADA !

Postada em 07/12/2006 01:43 hs

altere aqui:

Set RS = Banco.OpenRecordset(" Select * From Produtos Where Produtos.IdPlu = '" & Var & "'")
RS.MoveMin
Do While Not RS.EOF

Cardoso G

PATOS DE MINAS
MG - BRASIL

Postada em 08/12/2006 17:34 hs

marcelo faça o seguinte: vc tem que comparar o nome e nao o ID, produto.nome e ta faltando aspas simples no final tb

entendeu ?

Private Sub TxtPlu_LostFocus()
Dim Var As String
Var = Trim(TxtPlu.Text)
Set RS = Banco.OpenRecordset(" Select * From Produtos Where Produtos.Nome = '" & Var & "'")

Do While Not RS.EOF
LblDesc = RS!DescPlu
CboCateg.AddItem RS(0)
RS.MoveNext
Loop

End Sub

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR