Delphi ADOQuery連接數據庫的查詢、插入、刪除、修改
阿新 • • 發佈:2019-01-20
cor sel 有一個 close update you phi cell 條件
//查詢記錄
procedure TForm1 . Button1Click(Sender: TObject);
begin
ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Add( ‘select * from YourTABLE where 查詢條件‘ );
ADOQuery . Open;
//插入記錄
procedure TForm1 . Button2Click(Sender: TObject);
begin
ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= ‘insert into YourTABLE(字段1,字段2) values(:字段1,:字段2)‘ ;
// ADOQuery.SQL.Add(‘insert into YourTABLE values(:字段1)‘);
ADOQuery . Parameters . ParamByName( ‘字段1‘ ).Value:=trim(Edit1 . Text);
ADOQuery . Parameters . ParamByName( ‘字段2‘ ).Value:=trim(Edit2 . Text);
ADOQuery . ExecSQL;
end ;
//刪除記錄
procedure TForm1 . Button3Click(Sender: TObject); begin
ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= ‘Delete from YourTABLE where 字段3=:字段3‘ ;
//這裏沒有添加where的條件判斷,實際使用時,註意添加判斷
// ADOQuery.SQL.Add(‘Delete from NEW_TABLE where 字段3=:字段3‘);
ADOQuery . Parameters . ParamByName( ‘字段3‘ ).Value:=trim(Edit3 . Text);
ADOQuery . ExecSQL;
//刪除記錄也可用DeleteRecords()函數 procedure DeleteRecords(AffectRecords: TAffectRecords = arAll);
這個函數有一個參數:AffectRecords可以取如下的值:
1 、arCurrent :刪除當前記錄
2 、arFiltered :刪除符合Filter過濾後的所有記錄(如果你使用Filter過濾的話)
3 、arAll :刪除所有記錄
4 、arAllChapters :Delete affects all chapters(ADO chapters)
//修改記錄
procedure TForm1 . Button4Click(Sender: TObject);
begin
ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= ‘Update YourTABLE SET 字段4=:字段4‘ ;
//這裏沒有添加where的條件判斷,實際使用時,註意添加判斷
// ADOQuery.SQL.Add(‘Update YourTABLE SET 字段4=:字段4‘);
ADOQuery . Parameters . ParamByName( ‘字段4‘ ).Value:=trim(Edit4 . Text);
ADOQuery . ExecSQL;
//即時更新插入、刪除、修改後的記錄
在上面插入、刪除、修改的語句後添加如下代碼即可:
ADOQuery . Close;
ADOQuery . SQL . Add( ‘select * from YourTABLE where 查詢條件‘ );
ADOQuery . Open;
//使用ADOQuery時註意:
|
1、如果你需要更改數據,query.requestlive必須為true
2、如果有輸入參數的時候,容易出錯,通常的錯法是這樣:
比如:“WHERE abc = : abc”
改正如下:“WHERE abc=:abc”就是說=:前後都不能留空格。
3、ADOQuery.Open與ADOQuery.ExecSQL 有不同之處。
ADOQuery.Open一般用在查詢,select時候;而ADOQuery.ExecSQL用在insert,delete,update等。
Delphi ADOQuery連接數據庫的查詢、插入、刪除、修改