Fórum Problemas com Código SQL #213493
12/02/2004
0
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!
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
Curtir tópico
+ 0
Responder
Posts
12/02/2004
Denis
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 +´´´´+ ......
Q_Efetiva_Pagamento.SQL.Add(´INSERT INTO Pagamentos_Efetivados VALUES(´´´´+Edit1.Text +´´´´+ ......
Responder
Gostei + 0
13/02/2004
Turbo Drive
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í.
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í.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)