Problemas com Código SQL

Delphi

12/02/2004

Pessoal, Bom Dia. Estou tendo problemas com o seguinte código:

Q_Efetiva_Pagamento.Close;
Q_Efetiva_Pagamento.SQL.Clear;
Q_Efetiva_Pagamento.SQL.Add(´INSERT INTO Pagamentos_Efetivados VALUES(´ +char(39)+ Edit1.Text +char(39)+ ´,´ +char(39)+ DBEdit36.Text +char(39)+ ´,´ +char(39)+ DBEdit37.Text +char(39)+ ´,´ +char(39)+ DBEdit34.Text +char(39)+ ´,´ +char(39)+ DBEdit35.Text +char(39)+ ´,´ +char(39)+ DBEdit38.Text +char(39)+ ´,´ +char(39)+ DBEdit41.Text +char(39)+ ´,´ +char(39)+ DBEdit42.Text +char(39)+ ´,´ +char(39)+ DBEdit43.Text +char(39)+ ´)´);
Q_Efetiva_Pagamento.ExecSQL;

O erro que aparece é o seguinte: ´Type mismatch in expression.´

O engraçado é que, com este mesmo código, o aplicativo estava ontem rodando perfeitamente.

Pesso ajuda!


Geronildojr

Geronildojr

Curtidas 0

Respostas

Denis

Denis

12/02/2004

Só um comentário sobre a sua instrução. Vc. pode usar ´´´´ para obter as aspas ao invés de char(39).

Q_Efetiva_Pagamento.SQL.Add(´INSERT INTO Pagamentos_Efetivados VALUES(´´´´+Edit1.Text +´´´´+ ......


GOSTEI 0
Turbo Drive

Turbo Drive

12/02/2004

Colega, antes de Values vc precisa colocar os campos qdo for dar o insert.

Q_Efetiva_Pagamento.Close;
Q_Efetiva_Pagamento.SQL.Clear;
Q_Efetiva_Pagamento.SQL.Add(´INSERT INTO Pagamentos_Efetivados (codigo, nome, cpf)VALUES(´+´´´+edit1.text+´´´+´, ´+´´´+edit2.text+´´´+´, ´+´´´+edit3.text+´´´+´)´);
Q_Efetiva_Pagamento.ExecSQL;

Precisando tamos aí.


GOSTEI 0
POSTAR