Fórum Erro ao Inserir dados por sql #350128
05/12/2007
0
ae pessoal
trago mais uma duvida a vocês
que acho que pode clarear a visão de muitos assim como eu =)
estou tentando inserir os dados em uma tabela atravez de uma query
atravéz de parametros da seguinte forma :
query2.ParamByName(´pnome´).asstring:=edit1.text;
query2.parambyname(´pfunc´).asstring:=edit2.Text;
query2.parambyname(´pobra´).asstring:=LCBobraselect.Text;
query2.ParamByName(´pvalor´).asstring:=edit3.text;
query2.SQL.clear;
query2.SQL.add(´INSERT INTO empreiteiros (nome, func, obra, valor)´);
query2.SQL.add(´VALUES´);
query2.sql.Add(´(:pnome, :pfunc, :pobra, :pvalor)´);
query2.sql.execsql;
no momento do execsql tenho a mensagem : [color=red:1bbd0da2ff]´Query2: Field ´pnome´ is of an unknown type´[/color:1bbd0da2ff]
alguem saberia me dizer oque se passa?
trago mais uma duvida a vocês
que acho que pode clarear a visão de muitos assim como eu =)
estou tentando inserir os dados em uma tabela atravez de uma query
atravéz de parametros da seguinte forma :
query2.ParamByName(´pnome´).asstring:=edit1.text;
query2.parambyname(´pfunc´).asstring:=edit2.Text;
query2.parambyname(´pobra´).asstring:=LCBobraselect.Text;
query2.ParamByName(´pvalor´).asstring:=edit3.text;
query2.SQL.clear;
query2.SQL.add(´INSERT INTO empreiteiros (nome, func, obra, valor)´);
query2.SQL.add(´VALUES´);
query2.sql.Add(´(:pnome, :pfunc, :pobra, :pvalor)´);
query2.sql.execsql;
no momento do execsql tenho a mensagem : [color=red:1bbd0da2ff]´Query2: Field ´pnome´ is of an unknown type´[/color:1bbd0da2ff]
alguem saberia me dizer oque se passa?
Pips_btos
Curtir tópico
+ 0
Responder
Posts
05/12/2007
Silviogs
Olá
query2.SQL.clear;
query2.SQL.add(´INSERT INTO empreiteiros (nome, func, obra, valor)´);
query2.SQL.add(´VALUES´);
query2.sql.Add(´(:pnome, :pfunc, :pobra, :pvalor)´);
query2.ParamByName(´pnome´).asstring:=edit1.text;
query2.parambyname(´pfunc´).asstring:=edit2.Text;
query2.parambyname(´pobra´).asstring:=LCBobraselect.Text;
query2.ParamByName(´pvalor´).asstring:=edit3.text;
query2.sql.execsql;
creio que a ordem de atribuição dos parametros está invertida
Silvio Guedes
query2.SQL.clear;
query2.SQL.add(´INSERT INTO empreiteiros (nome, func, obra, valor)´);
query2.SQL.add(´VALUES´);
query2.sql.Add(´(:pnome, :pfunc, :pobra, :pvalor)´);
query2.ParamByName(´pnome´).asstring:=edit1.text;
query2.parambyname(´pfunc´).asstring:=edit2.Text;
query2.parambyname(´pobra´).asstring:=LCBobraselect.Text;
query2.ParamByName(´pvalor´).asstring:=edit3.text;
query2.sql.execsql;
creio que a ordem de atribuição dos parametros está invertida
Silvio Guedes
Responder
Gostei + 0
05/12/2007
Bebeketo
Uma enxugadinha no código...
With Query2 do
begin
if prepared then unprepare;
SQL.clear;
SQL.add(´INSERT INTO empreiteiros e (e.nome, e.func, e.obra, e.valor)´);
SQL.add(´VALUES´);
sql.Add(´(´+quotedstr(edit1.text)+´, ´
+quotedstr(edit1.text)+´, ´
+quotedstr(edit2.text)+´, ´
+quotedstr(LCBobraselect.text)+´, ´
+quotedstr(edit3.text)+´)´);
prepare;
execsql;
end;
With Query2 do
begin
if prepared then unprepare;
SQL.clear;
SQL.add(´INSERT INTO empreiteiros e (e.nome, e.func, e.obra, e.valor)´);
SQL.add(´VALUES´);
sql.Add(´(´+quotedstr(edit1.text)+´, ´
+quotedstr(edit1.text)+´, ´
+quotedstr(edit2.text)+´, ´
+quotedstr(LCBobraselect.text)+´, ´
+quotedstr(edit3.text)+´)´);
prepare;
execsql;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)