国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

1.工程--引用---"Microsoft Active Data Object 2.6 Library"(不同環(huán)境可能不同)；

在訪問數(shù)據(jù)庫時，首先要創(chuàng)建一個connection對象，通過它建立到數(shù)據(jù)庫的連接。創(chuàng)建connection對戲那個的方法如下：

Dim cnn as ADODB.Connection

創(chuàng)建connection對象后，還需要設(shè)置具體的屬性，連接到指定的數(shù)據(jù)庫，下面介紹常用的屬性和方法。

connectionString是連接字符串，指定用于連接數(shù)據(jù)源的信息。可以使用ODBC數(shù)據(jù)源來表示連接字符串，代碼如下：

dim cnn as new ADODB.Connection

cnn.connectionstring ="DSN=mydata;"

mydata是創(chuàng)建ODBC數(shù)據(jù)源名?？梢赃x擇“控制面板”/"管理工具"/"數(shù)據(jù)源（ODBC）"，打開“ODBC數(shù)據(jù)源管理器”創(chuàng)建數(shù)據(jù)源。如果通過ODBC數(shù)據(jù)源訪問數(shù)據(jù)庫，則要在運行數(shù)據(jù)庫應用程序的計算機上配置ODBC數(shù)據(jù)源，這是一項比較繁瑣的工作。（當時我就是這樣搞的，浪費了不少時間）

可以通過直接設(shè)置數(shù)據(jù)源提供者（Provider）和數(shù)據(jù)庫文件的方法表示連接字符串，代碼：

Dim cnn as New ADODB.connection

cnn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jxgl.mdb"

還可以直接指定數(shù)據(jù)庫驅(qū)動程序(Driver)和數(shù)據(jù)庫文件來表示連接字符串，代碼如下：

Dim cnn as New ADODB.connection

cnn.ConnectionString="Driver={Microsoft Access Driver(.*mdb)};Data Source=jxgl.mdb;"

connectionTimeout屬性：指示在終止嘗試和產(chǎn)生錯誤之前執(zhí)行命令需等待的時間，默認值為30s。

Mode屬性：Mode屬性指定connection對象修改數(shù)據(jù)的權(quán)限.

State屬性

state屬性返回connection對象的狀態(tài)。

open方法

connection.open connectionstring,userid,password,options

如果設(shè)置了connection對象的connectionstring屬性，open方法就不需要設(shè)置參數(shù)了

close方法

close方法用于關(guān)閉數(shù)據(jù)源的連接，訪問數(shù)據(jù)庫完成后，為了節(jié)省資源，通常需要將數(shù)據(jù)庫連接關(guān)閉。

下面的程序演示了使用connection對象連接到數(shù)據(jù)庫的方法。這里的數(shù)據(jù)庫放在了C盤。

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
If Dir("c:\jxgl.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + "c:\jxgl.mdb;"
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "打開數(shù)據(jù)庫"
End If
cnn.Close
If cnn.State = adStateClosed Then
MsgBox ("關(guān)閉數(shù)據(jù)庫了")
End If
Else
MsgBox ("找不到啊，主人?。?！")
End If

End Sub

recordset對象的使用方法

Private Sub Form_Load()
Dim cnn As New ADODB.Connection'這里千萬別忘了new
'創(chuàng)建Record對象rs1
Dim rs1 As New ADODB.Recordset'這里也別忘了new，否則實時錯誤91。
'設(shè)置查詢記錄集的SQL語句，從表jsb中讀取數(shù)據(jù)
Dim varSource As String
varSource = "SELECT*FROM jsb"

If Dir("c:\jxgl.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + "c:\jxgl.mdb;"
cnn.Open

Set rs1.ActiveConnection = cnn
'設(shè)置游標類型
rs1.CursorType = adOpenStatic
'打開記錄集，將從表jsb中讀取的結(jié)果集保存到記錄集rs1中
rs1.Open varSource
'顯示記錄集中的數(shù)量
MsgBox "當前記錄集中共有記錄" + Trim(rs1.RecordCount) + "個"
'將指針移動到記錄集的最后
rs1.Move rs1.RecordCount
If rs1.EOF = True Then
MsgBox "已經(jīng)到達結(jié)尾"
End If
rs1.Close
cnn.Close
Else
MsgBox "找不到啊"
End If
'If cnn.State = adStateOpen Then
'MsgBox "打開數(shù)據(jù)庫"
'End If
'cnn.Close
'If cnn.State = adStateClosed Then
'MsgBox ("關(guān)閉數(shù)據(jù)庫了")
'End If
'Else
'MsgBox ("找不到啊，主人?。?！")
'End If

End Sub