Delphi中的ADOquery 用法2007-11-04 22:30
都知道Delphi在資料庫操作是非常好用的,delphi把ADO一些方法屬性都整合了,以下是我的一些總結:***************************************通過sql的預存程序來實現:添加
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Insert Into Table1(Field1,Field2)')
SQL.Add(' Values(10,20)');
ExecSQL;
end; 修改
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Update Table1 Set Field1=20,Field2=30)')
ExecSQL;
end; 刪除
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Delete From Table1')
SQL.Add(' Where Field1=20 and Field2=30');
ExecSQL;
end; 查詢
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Select Field1,Field2 From Table1')
SQL.Add(' Where Field1=20 and Field2=30');
Open;
end;***************************************************通過Delphi自有的方法屬性實現: 添加：
with ADOQuery1 do
append;
......
post;
刪除：
with ADOQuery1 do
delete（選擇刪除的記錄）; //預設刪除記錄指標指向的記錄
修改：
with ADOQuery1 do
edit;
......
post; adotable1.Append; //添加
ADotable1.Fields.FieldByName('gxid1').Value:=gx;
adotable1.Post; adotable1.delete; //刪除 adotable1.edit; //修改
ADotable1.Fields.FieldByName('gxid1').Value:=gx;
adotable1.post; WITHI adoquery do
begin//添加
adoquery.open;//motice set adoquery.sql
adoquery.append;//OR adoquery.insert;
fieldbyname(fieldname).asstring:=trim(edit1.text);
......
adoquery.post;
end; 刪除:
adoquery.delete 修改:
adoquery.edit;
fieldbyname(fieldname).asstring:=trim(edit1.text);
有關細節可以參看協助OR DEMO |
