[Delphi] ADO 訪問數據庫的方法

admin

(1) 選取 test 數據表的所有記錄
With ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from test');
    open;
  end;

(2) 刪除 test 數據表的所有記錄
With ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('delete from test');
    ExecSQL;
end;

(3) 編輯 test 數據表的所有記錄
With ADOQuery1 do
begin
  first;  // 到第一個記錄
  while not (eof) do  // 未到數據最後一個
      begin
         edit;  // 開始編輯數據
         FieldbyName('name').AsString := tmpname;
         FieldbyName('age').Value := tmpage'
         post; // 更新記錄
         next; // 到下一記錄
      end;
end;

(4) 在 test 數據表新增一個記錄
With frmMain.ADOQuery1 do
   begin
      close;
      SQL.Clear;
      SQL.Add('select * from test);
      open;
      append;  //加一新記錄
      FieldbyName('name').AsString := tmpname;
      FieldbyName('age').Value := tmpage'
      post;  // 更新記錄
  end;

(5) 其它常用 ADOQuery 命令
ADOQuery1.last;  // 到最後一個記錄
ADOQuery1.prior;  // 到上一個記錄
ADOQuery1.bof;  //到第一個記錄
ADOQuery1.recordcount; // 共有多少個記錄
ADOQuery1.deleterecord(arCurrent);   //刪除當前記錄
ADOQuery1.insert //在當前記錄之後插入一個新記錄

(6) SQL statement with variable

var strDate, strTime : String
SQL.Add('Select * from stockin where date = "'  +strDate + '" AND time = "'+strTime+'"');

最後
adoquery.sql.text 是 Select * from stockin where date="2012/04/13" AND time="20:49:59"