2,508
社区成员
发帖
与我相关
我的任务
分享Tquery.sql语句
表a.
insert into a values("a","a"）
select * from a
delete from a where name="a"
Update a set name="c" where name="a"
在sql explorer执行正确，
sql:='insert into a values("a","a")';
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add(sql);
qry1.ExecSQL ;
怎么就错了呢？
insert into a values("a","a"）
select * from a
delete from a where name="a"
Update a set name="c" where name="a"
在sql explorer执行正确，
sql:='insert into a values("a","a")';
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add(sql);
qry1.ExecSQL ;
怎么就错了呢？
...全文
请发表友善的回复…
发表回复
award 2010-01-31
- 打赏
- 举报
sql:='insert into a values(:a,:a)';
==>sql:=format('insert into a values(%s,%s)',[a,a]);
==>sql:=format('insert into a values(%s,%s)',[a,a]);
Dreamsly 2010-01-31
- 打赏
- 举报
sql:='insert into a values(:a,:a)'; 参数前要加:
mggdafh 2010-01-31
- 打赏
- 举报
//打开数据表函数
procedure QueryOpen(Query:TADOQuery; SQLstr:string);
begin
Query.close;
Query.sql.text:=SQLstr;
try
Query.Open;
except
showmessage('SQL语句有误!'+#13+SQLstr);
end;
end;
//数据表执行语句函数
procedure QueryEXEC(Query:TADOQuery; SQLstr:string);
begin
Query.close;
Query.sql.text:=SQLstr;
try
Query.ExecSQL;
except
showmessage('SQL语句有误!'+#13+SQLstr);
end;
end;
procedure QueryOpen(Query:TADOQuery; SQLstr:string);
begin
Query.close;
Query.sql.text:=SQLstr;
try
Query.Open;
except
showmessage('SQL语句有误!'+#13+SQLstr);
end;
end;
//数据表执行语句函数
procedure QueryEXEC(Query:TADOQuery; SQLstr:string);
begin
Query.close;
Query.sql.text:=SQLstr;
try
Query.ExecSQL;
except
showmessage('SQL语句有误!'+#13+SQLstr);
end;
end;
suuuu 2010-01-28
- 打赏
- 举报
[Quote=引用 4 楼 magicjove 的回复:]
Delphi(Pascal) code
sql:='insert into a values(''a'',''a'')';with qry1dobegin
Close;
SQL.Clear;
SQL.Add(sql);
ExecSQL ;end;
[/Quote]
Up~
Delphi(Pascal) code
sql:='insert into a values(''a'',''a'')';with qry1dobegin
Close;
SQL.Clear;
SQL.Add(sql);
ExecSQL ;end;
[/Quote]
Up~
wanglaibing 2010-01-28
- 打赏
- 举报
lz 应该是你这里的写错了
sql:='insert into a values("a","a")';
sql:='insert into a values("a","a")';
magicjove 2010-01-28
- 打赏
- 举报
sql:='insert into a values(''a'',''a'') ';
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add(sql);
ExecSQL ;
end;
yct0605 2010-01-28
- 打赏
- 举报
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('select * from a');
qry1.open;
qry1.SQL.Clear;
qry1.SQL.Add('select * from a');
qry1.open;
youjianwanlei 2010-01-28
- 打赏
- 举报
如何把新的结果更新出来？
bdmh 2010-01-28
- 打赏
- 举报
sql:='insert into a values('+QuotedStr('a')+','+QuotedStr(a)+')';
