Fórum SQL com ADO é Diferente do BDE??? #179995
05/09/2003
0
Não estou conseguindo fazer uma consulta em SQL usando o ADOQuery usando por exemplo campo=(´´+edit1.text+´´´), o mais engraçado é que dentro do ADOQuery nas propriedades o código funciona pois eu consigo ativar a query, se eu coloco dentro do comando adoquery1.sql.add(´´) ou sql.text dá pau, vou colocar os comandos que estou tentando fazer em ADO para vocês verem se tem alguma coisa errada porque eu já não sei mais nda..
adoquery1.clear;
Adoquery1.sql.add (´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´);
Adoquery1.sql.add (´From Tabvendas, Produtos where mesa = (´´+edit1.text+´´)´);
Adoquery1.open;
Adoquery1.sql.add (´SELECT Sum(QTD) AS QTD1,SUM(VALOR * qtd) AS CUSTOTOT´);
Adoquery1.sql.add (´FROM Produtos, tabvendas where mesa = (´´+edit1.text+´´)´);
Valeu denovo gente só vcs mesmo para me ajudarem to perdido no ADO sou Paradoxista, só estou fazendo isso por extrema necessidade estou achando muito complicado.!
adoquery1.clear;
Adoquery1.sql.add (´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´);
Adoquery1.sql.add (´From Tabvendas, Produtos where mesa = (´´+edit1.text+´´)´);
Adoquery1.open;
Adoquery1.sql.add (´SELECT Sum(QTD) AS QTD1,SUM(VALOR * qtd) AS CUSTOTOT´);
Adoquery1.sql.add (´FROM Produtos, tabvendas where mesa = (´´+edit1.text+´´)´);
Valeu denovo gente só vcs mesmo para me ajudarem to perdido no ADO sou Paradoxista, só estou fazendo isso por extrema necessidade estou achando muito complicado.!
Shuljenko
Curtir tópico
+ 0
Responder
Posts
05/09/2003
Mauricinho
Utilize um ADoDataSet desta Maneira :
With ADoDataSet1 do Begin
Close;
CommandText := ´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´
+ ´ From Tabvendas, Produtos´
+ ´ where mesa = ´+Edit1.text;
Open;
End;
Ou Desta Maneira :
With ADoDataSet1 do Begin
Close;
CommandText := ´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´
+ ´ From Tabvendas, Produtos´
+ ´ where mesa = :pMesa´;
Parameters.paramByName(pMesa).Value := Edit1.text;
Open;
End;
With ADoDataSet1 do Begin
Close;
CommandText := ´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´
+ ´ From Tabvendas, Produtos´
+ ´ where mesa = ´+Edit1.text;
Open;
End;
Ou Desta Maneira :
With ADoDataSet1 do Begin
Close;
CommandText := ´Select Mesa,CodProdvendas, Descricao, Qtd, Valor´
+ ´ From Tabvendas, Produtos´
+ ´ where mesa = :pMesa´;
Parameters.paramByName(pMesa).Value := Edit1.text;
Open;
End;
Responder
Gostei + 0
05/09/2003
_nekinho_
Salve Queradores de plantão =) Tô aqui gente uhuuuuu,
Seguinte olhei sua Query aê mas não tô com tempo de analisar vim so apresentar a função do Delphi QuotedStr(String):String
Cara essa função vai deixar seu codigo muito mais legivel pq ela substtui as ´´´ ou ainda aquela tal de Velha39 (#39) <- Isso morreu pra quem leu essa messagem heheheh Usem QuotedStr. Tá conconcordo é maior porem mais legivel.
Abração galera,
Nelson Lima
Seguinte olhei sua Query aê mas não tô com tempo de analisar vim so apresentar a função do Delphi QuotedStr(String):String
Cara essa função vai deixar seu codigo muito mais legivel pq ela substtui as ´´´ ou ainda aquela tal de Velha39 (#39) <- Isso morreu pra quem leu essa messagem heheheh Usem QuotedStr. Tá conconcordo é maior porem mais legivel.
Abração galera,
Nelson Lima
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)