SQL FUNCIONA NO ACCES E NO VISDATA MAS NAO NO VB

USUARIO.EXCLUIDOS 19/07/2005 14:41:35
#95029
Fiz um relacionamento de tabelas no Acces e visualizei no modo Folha de Dados, deu tudo certinho, fis a mesma coisa no Visdata, mas quando tento jogar para a programação dá o seguinte erro: Too Few Parameters expected 1
O código é o seguinte: "SELECT TblPec.DescPec, TblQVend.QuantQVend, TblPec.GrupoEstoPec, TblPec.CodPec, TblQVend.DataQVend
FROM TblPec INNER JOIN TblQVend ON TblPec.CodPec = TblQVend.PecQVend
WHERE (((TblPec.GrupoEstoPec)="R"))
ORDER BY TblPec.DescPec;"

Aguem saberia decifrar o erro???
USUARIO.EXCLUIDOS 19/07/2005 14:48:51
#95032
Resposta escolhida
"SELECT TblQVend.QuantQVend, TblPec.DescPec, TblPec.GrupoEstoPec, TblPec.CodPec, TblQVend.DataQVend FROM TblPec INNER JOIN TblQVend ON TblPec.CodPec = TblQVend.PecQVend WHERE TblPec.GrupoEstoPec Like 'R' ORDER BY TblPec.DescPec"

veja se resolve, se não é só avisar.
USUARIO.EXCLUIDOS 19/07/2005 14:51:44
#95034
errei [S55]
"SELECT TblQVend.PecQVend , TblQVend.QuantQVend, TblQVend.DataQVend, TblPec.DescPec, TblPec.GrupoEstoPec, TblPec.CodPec FROM TblPec INNER JOIN TblQVend ON TblPec.CodPec = TblQVend.PecQVend WHERE TblPec.GrupoEstoPec Like 'R' ORDER BY TblPec.DescPec"
JEAN.JEDSON 19/07/2005 15:02:15
#95035
SELECT TblQVend.PecQVend, TblQVend.QuantQVend, TblQVend.DataQVend, TblPec.DescPec, TblPec.GrupoEstoPec, TblPec.CodPec
FROM TblPec
INNER JOIN TblQVend ON TblQVend.PecQVend = TblPec.CodPec
WHERE TblPec.GrupoEstoPec LIKE 'R'
ORDER BY TblPec.DescPec
USUARIO.EXCLUIDOS 19/07/2005 15:32:38
#95040
Obrigado pela ajuda, funcionou, mas deu pau em outra rotina um pouco mais complexa, escrevi esse SQL e dá o mesmo erro; Too Few Parameters expected 1

"SELECT TblPec.DescPec, TblQVend.QuantQVend, CDate([DataQVend]) AS Expr1, TblPec.GrupoEstoPec, TblPec.CodPec FROM TblPec INNER JOIN TblQVend ON blPec.CodPec = TblQVend.PecQVend WHERE (((CDate([DataQVend])) Between " & CDate(Format(TxtDat1.Text, "#")) & " AND " & CDate(Format(TxtDat2.Text, "#")) & ") AND ((TblPec.GrupoEstoPec) like " & TxtCod.Text & ")) ORDER BY TblPec.DescPec;"
USUARIO.EXCLUIDOS 19/07/2005 15:39:07
#95044
voce esta fazendo
ON blpec.codpec = tblqvend.pecqvend
primeiro errou faltou um t no blpec
ON tblpec.codpec = tblqvend.pecqvend

segundo voce nao esta selecionando o tblqvend.pecqvend no inicio da SQL, coloque no inicio:

"SELECT TblPec.DescPec, TblQVend.QuantQVend, tblqvend.pecqvend, blablabla"

este erro tambem estava ocorrendo na rotina anterior sempre selecione os campos da duas tabelas que fazem o relacionamento
USUARIO.EXCLUIDOS 19/07/2005 15:56:14
#95047
Valeu Wilian, mas a falta do t do tbl acho que foi erro ao colar, eu coloquei no sistema, quanto a selecionar todos os campos agora selecionei o campo, mas continua com o erro informado.
Uso uma rotina pperecida no sistema e nunca tive esse problema, se puder me ajudar eu agradeço
WEBER 19/07/2005 21:59:16
#95088
JLIMA vc ja percebeu q todas as suas clausulas SQL estão terminando com um ponto e virgula ;
Tópico encerrado , respostas não são mais permitidas