Delphi ADOQuery處理多條SQL語句

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了！

ADOQuery的批處理方式
比如在一個窗體里有一個“取消”和“確定”按鈕,“取消”按鈕批次取消所有修改,“確定”按鈕批次提交：
1.設置QryDef(數據集)的LockType為ltBatchOptimistic,CursorType為ctStatic,CursorLocation為clUseClient
2.“確定”按鈕的單擊事件為:
  if QryDef.Connection.InTransaction then
  begin
    try
      QryDef.UpdateBatch();
      QryDef.Connection.CommitTrans;
    except
      QryDef.Connection.RollbackTrans;
    end;
  end;
3.“取消”按鈕的單擊事件為:
  QryDef1.CancelBatch; 
4.初始插入數據:
  Qry.LoadFromFile(ExtractFilePath(Application.ExeName) + 'ClassifyDefine');
  {$IFDEF Test}codesite.SendMsg('3'); {$ENDIF}
  while not Qry.Eof do
  begin
    QryDef.Append;
    QryDef.FieldByName('name').AsString := Qry.FieldByName('name').AsString;
    if not Qry.FieldByName('Money1').IsNull then
   QryDef.FieldByName('Money1').AsCurrency := Qry.FieldByName('Money1').AsCurrency;
    if not Qry.FieldByName('Money2').IsNull then
   QryDef.FieldByName('Money2').AsCurrency := Qry.FieldByName('Money2').AsCurrency;
    QryDef.Post;
    Qry.Next;
  end;
  QryDef.UpdateBatch(); 

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;

xxx.sql.text := 'insert into t_log3(name,czsj,czlog)values('''+a +''','''+ b+''','''+c+''')';
或
xxx.sql.text := 'insert into t_log3(name,czsj,czlog)values(:a1,:b1,:c1)';
xxx.parameters.parambyname('a1').values := a;
xxx.parameters.parambyname('b1').values := b;
xxx.parameters.parambyname('c1').values := c;