紅皮書ADO七大對象總結

文章目錄

分類

獨立對象

依賴對象

組合

1 Connection: + Recordset:

2.Connection:+command

連接方式

1.數據庫的具體路徑

2.ODBC（OpenDatabaseConnectivity）

總結：

分類

獨立對象

Connection:

用來和數據庫建立連接，后面的操作都是基于connection連接。

Command：

用來執行查詢命令，和strSQL里執行的SQL語句一樣。只不過strSQL是直接把，查詢命令以字符串形式傳遞到數據進行執行。然后反饋出結果，而command是接收參數，然后執行查詢命令這個是封裝好的。

Recordset:

用于保存，strSQL和command 反饋回來的結果。Recordset 是前兩個獨立對象共同要用到的。保存數據集，這是一個集合。

依賴對象

Field：

字段依賴于recordset集合來實現調用，數據庫返回的數據。

Parameter：

參數對象，依賴于命令對象使用，用于為參數查詢提供數據。同

時使用參數對象和命令對象，可是數據庫對查詢進行預編譯，從而提高執行速

度。

Property:

屬性是每一個對象和命令都有的是

error:

錯誤對象依賴以，連接對象的使用。

大體的可以從這兩個角度區分，在使用過程中error：會 發生conection:鏈接失敗的時候出現錯誤，才觸發的一個依賴對象。

組合

：

1 Connection: + Recordset:

'定義在窗體各個事件過程中使用的公用變量 Dim objrs As New Recordset Dim objcn As New Connection Dim intpage As Integer '顯示當前記錄頁數過程 Public Sub showdata(ByVal inpage As Integer) '實現分頁顯示記錄功能 Dim intpagecount As Integer Dim intrecord As Integer Dim objdatasource As New Recordset '創建一個局部recordset對象保存objrs當前記錄數據 For intrecord = 0 To objrs.Fields.Count - 1 objdatasource.Fields.Append objrs.Fields(intrecord).Name, adVarChar, _ objrs.Fields(intrecord).DefinedSize Next objdatasource.Open '打開局部對象 objrs.PageSize = Val(txtPageSize) '重新設置每頁記錄條數 objrs.AbsolutePage = intpage '重新設置當前記錄頁 For intrecord = 1 To objrs.PageSize '將當前記錄頁中數據寫入objdatasource objdatasource.AddNew objdatasource!用戶名 = objrs!用戶名 objdatasource!口令 = objrs!口令 objdatasource.MoveNext If objrs.EOF Then Exit For Next Set DataGrid1.DataSource = objdatasource '設置為數據網格的數據源 txtPageMsg = intpage & "/" & objrs.PageCount '刷新當前記錄信息 End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

2.Connection:+command

‘定義connection 與command對象 Dim objcn As Connection, objcmd As Command Private Sub Form_Load() Dim strcn As String Set objcn = New Connection '實例化connention對象objcn strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist security info=false;" & _ "data source=" & App.Path & "\實例4.mdb" objcn.ConnectionString = strcn '創建數據鏈接 objcn.Open '執行參數查詢的command對象objcmd Set objcmd = New Command Set objcmd.ActiveConnection = objcn With objcmd .CommandText = "select * from 系統用戶 where 用戶名 like?" & _ "and 身份 like ?" .CommandType = adCmdText End With '為commadn對象objcmd創建參數 Dim parm As New Parameter Set parm = objcmd.CreateParameter("用戶名", adVarChar, adParamInput, 10) objcmd.Parameters.Append parm Set parm = objcmd.CreateParameter("身份", adVarChar, adParamInput, 10) objcmd.Parameters.Append parm Label4 = "" '清空標簽4 End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

連接方式

1.數據庫的具體路徑

Dim strsql As String, strcn As String txtPageSize = "5" intpage = 1 '建立數據庫鏈接 易錯 strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\實例4.mdb; Mode=ReadWrite|Share Deny None;Persist Security Info=False" objcn.ConnectionString = strcn objcn.Open

1

2

3

4

5

6

7

8

9

2.ODBC（OpenDatabaseConnectivity）

Set objcn = New Connection '實例化connection對象 objcn.Open "DSN=實例2DSN" ' 建立數據庫鏈接 Set objrs = New Recordset '創建客戶端的記錄集

1

2

3

總結：

其實具體連接和通過ODBC連接，最后都是連接到了具體的數據庫路徑。ODBC的優點是 方便數據共享，多個程序使用一個數據庫 。

數據庫

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。