delphi(pascal) code
var
sqlstr:string;
begin
sqlstr:= ' begin '
sqlstr:= sqlstr+ 'update table1 set col1 = ''test'' where 1=2;';
sqlstr:= sqlstr+ 'update table1 set col1 = ''test2'' where 1=2;';
sqlstr:= sqlstr+ ' end ';
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add(sqlstr);
adoquery1.execsql;
end;
把sql語句用begin...end包起來，再提交給db處理,就ok了！
5.批處理方式其它例項:
procedure tform1.button1click(sender: tobject);
begin
adoconnection1.begintrans;
try
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add(insert 語句)；
adoquery.execsql;
如果還有insert 語句則：
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add(insert 語句)；
adoquery.execsql;直到所有insert 語句完成.
adoconnection1.committrans;
except
adoconnection1.rollbacktrans;
end;
end;
用adoquery取指定字段所有值問題
我要在在dbcombobox裡顯示出來啊
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fieldbyname('id').asstring); //id改為你要指定的字段
adoquery1.next;
end;
在dbcombobox裡顯示出來啊
如果是dbcombobox
procedure tform1.formcreate(sender: tobject);
begin
adoquery1.sql.add('select * from test);
adoquery1.open;
dbcombobox1.datafield:='id';
while not adoquery1.eof do
begin
dbcombobox1.items.add(adoquery1.fieldbyname(dbcombobox1.datafield).asstring);
adoquery1.next;
end;
end;
***.sql.text := 'insert into t_log3(name,czsj,czlog)values('''+a +''','''+ b+''','''+c+''')';
或***.sql.text := 'insert into t_log3(name,czsj,czlog)values(:a1,:b1,:c1)';
***.parameters.parambyname('a1').values := a;
***.parameters.parambyname('b1').values := b;
***.parameters.parambyname('c1').values := c;
Delphi ADOQuery查詢使用者是否存在
procedure tform1.bt findclick sender tobject var i,count integer result boolean begin adoquery1.close adoquery1.sql.clear adoquery1.sql.add select fro...
delphi adoquery 判斷字段是否存在
使用adoquery資料集運算元據庫，一般情況下使用adoquery.fieldbyname columnname asstring來訪問資料，如果columnname不存在，系統會報錯columnname not found，如何提前判斷columnname是否存在呢？1.使用fieldlist....
delphi adoquery的增刪查改
delphi adoquery查詢 插入 刪除 修改 查詢記錄 procedure tform1.button1click sender tobject begin adoquery.close adoquery.sql.clear adoquery.sql.add select from your...