Delphi ADOQuery 연결 데이터베이스에 대한 조회, 삽입, 삭제, 수정

2100 단어

//    
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   :
<pre class="delphi" name="code">1、         ,query.requestlive   true

2、          ,    ,        :
  :“WHERE abc = : abc”
    :“WHERE abc=:abc”   =:        。
3、ADOQuery.Open ADOQuery.ExecSQL      。
ADOQuery.Open      ,select  ; ADOQuery.ExecSQL  insert,delete,update 

좋은 웹페이지 즐겨찾기