ADO數(shù)據(jù)庫連接

1、ADO數(shù)據(jù)庫連接ADO數(shù)據(jù)庫連接DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI常用連接數(shù)據(jù)庫方式:DBE、ADO兩種方式BDE：由波藍公司開發(fā)，針對DELPHI開發(fā)的連接數(shù)據(jù)庫引擎。ADO：由微軟公司開發(fā)的通用連接數(shù)據(jù)庫引擎（DELPHI7.0中很常用，現(xiàn)已推出ADO.NET數(shù)據(jù)庫引擎）。DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式。ADOConnection數(shù)據(jù)庫連接ADOCommandADODataSetADOTableADOQueryADOStoredProcRDSConnectionDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式AD

2、OConnection：數(shù)據(jù)庫連接ADOCommand：無返回數(shù)據(jù)集的sql命令。ADODataSet：集合和表、查詢、存儲過程集合。ADOTable：通過表查詢ADOQuery：通過sql命令查詢或執(zhí)行。ADOStoredProc ：存儲過程。注： ADODataSet集合了ADOTable、 ADOQuery、 ADOStoredProc 所有功能。DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接ADOTABLEDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用A

3、DOTable ）adoconnectionADOTableStringGridDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADOTable ）雙擊DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADOTable ）procedure TForm1.Button1Click(Sender: TObject);var i:integer;begini:=0;while not(form1.ADOTable1.Eof) dobegin StringGrid1.Rowsi.Add(ADOTable1.Fi

4、eldByName(xingming).AsString); StringGrid1.Rowsi.Add(ADOTable1.FieldByName(xuehao).AsString); StringGrid1.Rowsi.Add(ADOTable1.FieldByName(rxzf).AsString); StringGrid1.Rowsi.Add(ADOTable1.FieldByName(dy).AsString); ADOTable1.Next; i:=i+1;end;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接ADODATASETDBE數(shù)據(jù)庫連接DELP

5、HI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADODATASET）adoconnectionADODatasetStringGridDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADODATASET）連接狀態(tài)命令字符命令類型數(shù)據(jù)庫連接DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADODATASET）procedure TForm1.Button1Click(Sender: TObject);var i:integer;begini:=0;while not(form1.A

6、DODataSet1.Eof) dobegin StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xingming).AsString); StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xuehao).AsString); StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(rxzf).AsString); StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(dy).AsString); ADODataSet1.Next; i:

7、=i+1;end;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接ADOQUERYDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADOQUERY）ADOConnectionADOQueryDBGridDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADOQUERY）procedure TForm1.Button1Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.Connection:=ADOConnection1;

8、 ADOQuery1.Parameters.Clear; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from xuesheng where rxzf:fs); ADOQuery1.Parameters.ParamByName(fs).Value:=edit1.Text; ADOQuery1.Active:=true;end;帶參數(shù)DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接ADODatasetDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADODATASET）ADOCon

9、nectionADODataSetDBGridDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式ACCESS的連接（使用ADODATASET）procedure TForm1.Button1Click(Sender: TObject);beginADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandText:=select * from xuesheng where rxzf:fs;ADODataSet1.Par

10、ameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Active:=true;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集的排序和篩選排 序DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集的排序ADOConnectionADODataSetDBGridDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集的排序procedure TForm1.Button1Click(Sender: TObject);Var i:integer;beginADODataSet1.C

11、lose;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandText:=select * from xuesheng where rxzf:fs;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Active:=true;form1.ADODataSet1.First;for i:=0 to form1.ADODataSet1.Fields.Count-1 dobegin fo

12、rm1.ComboBox1.Items.Add(ADODataSet1.Fieldsi.FieldName);end;end;procedure TForm1.Button2Click(Sender: TObject);begin ADODataSet1.IndexFieldNames:=ComboBox1.Text;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集的排序和篩選篩 選DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 篩選ADOConnectionADODataSetDBGridDBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 篩選proce

13、dure TForm1.Button1Click(Sender: TObject);begin ADODataSet1.Close; ADODataSet1.Filtered:=false; ADODataSet1.Connection:=ADOConnection1; ADODataSet1.CommandType:=cmdText; ADODataSet1.CommandText:=select * from xuesheng; ADODataSet1.Active:=true; ADODataSet1.First;end;procedure TForm1.Button2Click(Sen

14、der: TObject);beginADODataSet1.Filtered:=true;ADODataSet1.Filter:=rxzf=+Edit1.Text;end;procedure TForm1.Button3Click(Sender: TObject);beginform1.ADODataSet1.Filtered:=false;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集的插入、刪除和更新插 入DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 記錄的插入方法一：使用 ADOCommand插入記錄。ADOConnectionADOData

15、SetADOCommandDBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 記錄的插入方法一：使用 ADOCommand插入記錄。procedure TForm1.Button2Click(Sender: TObject);var sql_insert:string;Begin sql_insert:=insert into xuesheng(xingming,xuehao,rxzf,dy) values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+booltostr(form1.CheckBox1.Checked)+); ADOCom

16、mand1.Connection:=form1.ADOConnection1; ADOCommand1.CommandType:=cmdText; ADOCommand1.CommandText:=sql_insert; ADOCommand1.Execute;end;DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 記錄的插入方法一：使用 ADOCommand插入記錄。procedure TForm1.Button1Click(Sender: TObject);var sql_insert:string;Begin sql_insert:=delete from xue

17、sheng where id= +form1.ADODataSet1.FieldByName(id).AsString; ADOCommand1.Connection:=ADOConnection1; ADOCommand1.CommandType:=cmdText; ADOCommand1.CommandText:=sql_insert; ADOCommand1.Execute;end;DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 記錄的插入方法二：使用 數(shù)據(jù)集實現(xiàn)插入記錄。(可實現(xiàn)多表查詢結(jié)果或視圖的插入)DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)

18、庫ADO方式 記錄的插入方法二：使用 數(shù)據(jù)集實現(xiàn)插入記錄。procedure TForm1.Button2Click(Sender: TObject);beginADODataSet1.InsertRecord(nil,edit1.text,edit2.text,edit3.text,checkbox1.checked);end;procedure TForm1.Button1Click(Sender: TObject);begin ADODataSet1.Delete;end;DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQL SERVERDBE數(shù)據(jù)庫連接DELPHI查詢SQL SERVER表DB

19、E數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI數(shù)據(jù)庫連接例:DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI數(shù)據(jù)庫連接例:DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI數(shù)據(jù)庫連接例:procedure TForm1.Button1Click(Sender: TObject);var sql_cx:string;Begin sql_cx:=select * from xuesheng,qkb where xuesheng.xuehao=qkb.xuehao and xuesheng.rxzf=:fs; ADODataSet1.Close; ADODataSet1.Conn

20、ection:=ADOConnection1; ADODataSet1.CommandType:=cmdText; ADODataSet1.CommandText:=sql_cx; ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text; ADODataSet1.Active:=true;end;DBE數(shù)據(jù)庫連接DELPHI執(zhí)行SQL SERVER存儲過程無 參 數(shù)DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI執(zhí)行SQL SERVER存儲過程無參數(shù)ADODataSet DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI執(zhí)

21、行SQL SERVER存儲過程無參數(shù)procedure TForm1.Button1Click(Sender: TObject);var sql_cx:string;begin sql_cx:=xs1; /存儲過程名 ADODataSet1.Close; ADODataSet1.Connection:=ADOConnection1; ADODataSet1.CommandType:=cmdStoredProc; /存儲過程 ADODataSet1.CommandText:=sql_cx; ADODataSet1.Active:=true;end;DBE數(shù)據(jù)庫連接DELPHI執(zhí)行SQL SERV

22、ER存儲過程輸 入 參 數(shù)DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI執(zhí)行SQL SERVER存儲過程輸入?yún)?shù)ADODataSet DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI執(zhí)行SQL SERVER存儲過程輸入?yún)?shù)procedure TForm1.Button1Click(Sender: TObject);var sql_cx:string;begin sql_cx:=xs1; /存儲過程名 ADODataSet1.Close; ADODataSet1.Connection:=ADOConnection1; ADODataSet1.CommandType:=cmdSt

23、oredProc; /存儲過程 ADODataSet1.CommandText:=sql_cx; ADODataSet1.Parameters.Clear; ADODataSet1.Parameters.AddParameter.Name:=fs; /添加參數(shù) ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text; /參數(shù) ADODataSet1.Active:=true;end;DBE數(shù)據(jù)庫連接DELPHI執(zhí)行SQL SERVER存儲過程輸 出 參 數(shù)DBE數(shù)據(jù)庫連接DELPHI數(shù)據(jù)庫連接SQLDELPHI執(zhí)行SQL SERVER存

24、儲過程輸出參數(shù)procedure TForm1.Button1Click(Sender: TObject);var sql_cx:string;begin sql_cx:=xs1; /存儲過程名 ADODataSet1.Close; ADODataSet1.Connection:=ADOConnection1; ADODataSet1.CommandType:=cmdStoredProc; /存儲過程 ADODataSet1.CommandText:=sql_cx; ADODataSet1.Parameters.Clear; ADODataSet1.Parameters.AddParamete

25、r.Name:=fs; /添加參數(shù) ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text; /參數(shù) ADODataSet1.Parameters.AddParameter.Name:=zong; ADODataSet1.Parameters.ParamByName(zong).Direction:=pdOutput; ADODataSet1.Parameters.ParamByName(zong).Value:= ; ADODataSet1.Active:=true; Label2.Caption:=返回 + ADODataSet1.

26、Parameters.ParamByName(zong).Value+條;end;DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集主要事件DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集主要事件DELPHI數(shù)據(jù)庫連接SQL事 件 功 能Append表尾添加新的空記錄AppendRecord表尾添加新記錄 例:appendrecord(12,張三)Cancel取消修改Close關(guān)閉數(shù)據(jù)集Delete擅長當前記錄Edit使當前記錄進入編輯狀態(tài)First指針指向第一條記錄Last指針指向最后一條記錄Getbookmark獲取當前記錄標簽. 標簽類: tbookmarkGotobookma

27、rk指針指向標簽指向記錄Insert插入一條空記錄Insertrecord插入一條新記錄DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集主要事件DELPHI數(shù)據(jù)庫連接SQL事 件功 能Moveby指針相對移動Next指針指向下一條記錄Open打開數(shù)據(jù)集Post提交修改數(shù)據(jù)Prior指針指向上一條記錄Refresh刷新數(shù)據(jù)集Setfields設(shè)置一行數(shù)據(jù)注:ADO事件的使用方法和BDE事件的使用方法相同。DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集主要屬性DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式 數(shù)據(jù)集主要屬性DELPHI數(shù)據(jù)庫連接 SQL事 件功 能CommandTim

28、eout等待命令執(zhí)行的時間(以秒為單位)CacheSize緩存大小CursorLocation指針類型（服務(wù)器、客戶端的）CursorType指針移動類型IndexFieldNames排序字段LockType鎖定類型Readonly只讀TableDirect直接指向表Filter篩選字段Filtered是否篩選DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集鎖定方式DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集鎖定方式DELPHI數(shù)據(jù)庫連接 SQLLockType 鎖類型 常數(shù) 說明 - ltReadOnly 只讀 ltPessimistic 悲觀鎖 ltOptimistic 樂

29、觀鎖 ltBatchOptimistic 樂觀批更新(緩存) - ltOptimistic：多個用戶可以同時訪問和編輯數(shù)據(jù). ltPessimistic：數(shù)據(jù)庫表同時只能有一個用戶打開。(CursorLocation必須是服務(wù)器端游標) ltBatchOptimistic只能和游標類型ctStatic或一起使用,使用時不會立即把更新過的記錄寫入數(shù)據(jù)源中,而是把對許多記錄的改動先放在客戶端中,然后把更新過的記錄一齊寫入數(shù)據(jù)源中,或者一齊取消掉.DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存DELPHI數(shù)據(jù)庫連接 SQLADO數(shù)

30、據(jù)集緩存必須將其LockType屬性設(shè)置為： ltBatchOptimistic（CursorType屬性設(shè)置：ctStatic）設(shè)置方法DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存DELPHI數(shù)據(jù)庫連接 SQLADO數(shù)據(jù)集緩存必須將其LockType屬性設(shè)置為： ltBatchOptimistic（CursorType屬性設(shè)置：ctStatic）ADO數(shù)據(jù)集將緩存提交給數(shù)據(jù)庫：ADOTable1.UpdateBatch ( 參數(shù) );-ADO數(shù)據(jù)集將緩存提交給數(shù)據(jù)庫：ADOTable1. CancelBatch ( 參數(shù) );ADOTable1. CancelUpdates;-

31、ADO數(shù)據(jù)集顯示緩存相關(guān)信息：ADOTable1.FilterGroup參數(shù)說明：Arcurrent : 將當前記錄提交更新到數(shù)據(jù)庫。Arfiltered : 將符合過濾條件的記錄提交更新到數(shù)據(jù)庫。Arall : 將所有記錄提交更新到數(shù)據(jù)庫。DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存DELPHI數(shù)據(jù)庫連接 SQLADOTable1.UpdateBatch ( 參數(shù) );參數(shù)說明：Arcurrent : 將當前記錄提交更新到數(shù)據(jù)庫。Arfiltered : 將符合過濾條件的記錄提交更新到數(shù)據(jù)庫。Arall : 將所有記錄提交更新到數(shù)據(jù)庫。DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫AD

32、O方式數(shù)據(jù)集緩存DELPHI數(shù)據(jù)庫連接 SQLADOTable1.FilterGroup ( 參數(shù) );參數(shù)說明：fgNone：取消過濾，類似于filtered:=falsefgPendingRecords：顯示修改數(shù)據(jù)且未提交給數(shù)據(jù)庫或取消更新。DBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存 例：DELPHI數(shù)據(jù)庫連接 SQLDBE數(shù)據(jù)庫連接DELPHI連接數(shù)據(jù)庫ADO方式數(shù)據(jù)集緩存 例：DELPHI數(shù)據(jù)庫連接 SQLprocedure TForm1.Button1Click(Sender: TObject);begin ADOTable1.UpdateBatch();end;p

33、rocedure TForm1.Button2Click(Sender: TObject);begin ADOTable1.FilterGroup:=fgPendingRecords ;end;procedure TForm1.Button3Click(Sender: TObject);begin ADOTable1.CancelUpdates;end;DBE數(shù)據(jù)庫連接獲取DELPHI當前應(yīng)用程序路徑：ExtractFilePath(ParamStr(0)例： showmessage(ExtractFilePath(ParamStr(0);showmessage( ExtractFileDir(Application.Exename);ShowMessage(ExtractFilePath(Application.Exename); 如果要得到系統(tǒng)的當前目錄使用Path := GetCurrentDir; 如果要得到程序的當前目錄使用Path := ExtractFilePath( Application.ExeName ); str:=GetCurrentDir(); 如果要得到系統(tǒng)的當前目錄使用Path := GetCurr