|
|
Postada em 12/03/2006 21:19 hs
Boa noite.. Preciso de uma ajuda dos colega... estou tentando fazer uma consulta Sql com mais de 2 parâmetros e esta dando erro.. Segue o código: Public Sub AtualizaGrade() Sql = ""
Sql = "SELECT PLU,DESCRICAO,SC,GRU,SGR FROM Banco Where (SC = TxtSC.text)and (GR = TxtGR.text)"
Set RS = Banco.OpenRecordset(Sql) i = 1 Do While Not RS.EOF
With GrdPesquisa
.Rows = i + 1
.TextMatrix(i, 0) = RS!PLU
.TextMatrix(i, 1) = RS!DESCRICAO
.TextMatrix(i, 2) = RS!SC
.TextMatrix(i, 3) = RS!GRU
.TextMatrix(i, 4) = RS!SGR
End With
i = i + 1 RS.MoveNext
Loop End Sub
Obrigado Marcelo Freitas |
|
|
|
|
|
|
|
Postada em 12/03/2006 21:45 hs
Sql = "SELECT PLU,DESCRICAO,SC,GRU,SGR FROM Banco Where (SC = " & TxtSC.text & ")and (GR = " & TxtGR.text & ")" vc deve concatenar com o texto da string SQL o VALOR dos textboxs... lembra que se no banco os campos forem string, vc precisa colocar entre APOSTROFOS o conteudo dos texts... assim: "... (SC = '" & TxtSC.Text & "') ..."
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 13/03/2006 21:44 hs
ELIESER Fiz Conforme vc me passou.. mais ainda esta dando erro: Erro : Run-Time Error '3061' Parâmetros Insuficientes. Eram Esperado 1. Vc pode me ajudar.. Grato, Marcelo |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/03/2006 03:14 hs
Se quer usar uma consulta tente assim: Sql = "SELECT PLU,DESCRICAO,SC,GRU,SGR FROM Banco Where (SC =' " & TxtSC.text & "'" ssql=ssql & ")and (GR =' " & TxtGR.text & ")" & "'" Isto no caso dos campos pesquisados serem do tipo string, se forem datas ou valores o comando tem que ser diferente. Espero que o fórum não engula as aspas simples e duplas. Vlu// |
|
|
|
|
