Delphi ADOQuery连接数据库的查询、插入、删除、修改

发布时间：2020-12-15 09:53:25 所属栏目：大数据来源：网络整理

导读：//查询记录 procedure ? TForm1 . Button1Click(Sender: TObject); begin ADOQuery . Close; ADOQuery . SQL . Clear; ADOQuery . SQL . Add( ‘select * from YourTABLE where 查询条件‘ ); ADOQuery . Open; ? //插入记录 procedure ? TForm1 . Button2Cl

 
  
 
        //查询记录 
       
 
        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等。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!