【新手入門(mén)】之十二：淺談ADO之Connection

roych · 發(fā)表于 2014-11-12 10:29:39

ADO有五個(gè)子集。分別是Connection（連接）、Command（命令）、Recordset（記錄集）、Record（記錄）和Stream（數(shù)據(jù)流）。

現(xiàn)在，開(kāi)始談?wù)勥B接對(duì)象。

連接對(duì)象為用戶定義數(shù)據(jù)源的會(huì)話，用于建立起數(shù)據(jù)源與當(dāng)前程序之間的鏈接。這些數(shù)據(jù)源包括多種類(lèi)型，例如SQL Server、Access、Oracle，甚至Excel數(shù)據(jù)表和文本文件等等。

前期綁定（即引用ADO庫(kù)）后,在當(dāng)前數(shù)據(jù)庫(kù)中，我們可以用CurrentProject.Connection來(lái)建立數(shù)據(jù)連接。事實(shí)上，我們常常都是把這一句作為打開(kāi)記錄集的一個(gè)參數(shù)來(lái)用的。例如，Rst.Open strSQL, CurrentProject.Connection,adOpenKeyset,AdLockOptimistic

但是使用外部數(shù)據(jù)庫(kù)時(shí)就不能使用這個(gè)方法，而必須使用常規(guī)方法了。通�？梢酝ㄟ^(guò)下面的方法來(lái)創(chuàng)建一個(gè)連接：

Dim cnn As ADODB.Connection
Set cnn=New ADODB.Connection

復(fù)制代碼

或者用New關(guān)鍵字來(lái)創(chuàng)建一個(gè)連接：

Dim cnn As New ADODB.Connection

復(fù)制代碼

雖然不建議后期綁定，這里還是給出所對(duì)應(yīng)的后期綁定語(yǔ)句：

Dim cnn As Object
Set cnn=CreateObject(“ADODB.Connection”)

復(fù)制代碼

建立好連接之后，還需要為連接指定相應(yīng)屬性：引擎提供者，數(shù)據(jù)源位置，數(shù)據(jù)類(lèi)型，用戶ID和密碼（這一點(diǎn)在安全性更高的SQLServer中最為常用）。例如：

Cnn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=E:\myExcel.xls”

復(fù)制代碼

上述語(yǔ)句通過(guò)對(duì)一個(gè)2003版本Excel文件建立起數(shù)據(jù)連接。這一點(diǎn)可以用于建立不太規(guī)范的數(shù)據(jù)表�！惶�(guī)范的意思是說(shuō)，與標(biāo)準(zhǔn)表相比，可能會(huì)存在一行“xx公司銷(xiāo)售報(bào)表”之類(lèi)的表頭，而不是說(shuō)字段可以數(shù)值文本混編，更不是說(shuō)字段名可以含有特殊字符。這類(lèi)數(shù)據(jù)表導(dǎo)入或者鏈接都不太方便。Access 2003版本有TransferSpreadsheet宏，可以指定Excel表范圍來(lái)導(dǎo)入或者鏈接表，不過(guò)到了2007版本以上，就只能編程了�！凑覜](méi)找到過(guò)。說(shuō)到2007，順便說(shuō)一句，2007版本的Jet引擎已經(jīng)改為Microsoft.ACE..OLEDB.12.0了，對(duì)應(yīng)的2007版本Excel也成為 “Excel 12.0”了。也有人這樣寫(xiě)，覺(jué)得這樣似乎更規(guī)整：

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
With cn
.ConnectionString =”Extended Properties=Excel 8.0;Data Source=E:\myExcel.xls”
.Provider = " Microsoft.Jet.OLEDB.4.0"
.Open
End With

復(fù)制代碼

更多連接字符串見(jiàn)下面鏈接：

建立好連接之后，便可以執(zhí)行命令了。例如，刪除表數(shù)據(jù)：Cnn.Excecute “Delete * From MyTable”。從操作上來(lái)說(shuō)，跟Docmd.RunSQL幾乎沒(méi)有太大區(qū)別，唯一的不同是，后者只能在Access里使用，而且執(zhí)行前會(huì)彈出警告框（設(shè)置了Setwarning屬性的除外）。

當(dāng)然，它也可以執(zhí)行選擇查詢。不過(guò)，這往往很少單獨(dú)使用，而是與Recordset聯(lián)合起來(lái)使用。因?yàn)橹挥匈x值給記錄集了，我們才可以從中獲取所需信息。例如：

Sub test()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.Execute("select * from MyTable")
Debug.Print rst(0)
End Sub

復(fù)制代碼

songgpljh · 發(fā)表于 2015-10-10 17:01:00

學(xué)習(xí)學(xué)習(xí)

風(fēng)中漫步 · 發(fā)表于 2014-11-19 12:56:19

試了下,可以的

roych · 發(fā)表于 2014-11-17 14:44:57

風(fēng)中漫步發(fā)表于 2014-11-17 13:48
ACC不支持手工事務(wù)嗎?

沒(méi)測(cè)試成功。下次回家再找找那個(gè)示例測(cè)試下。

風(fēng)中漫步 · 發(fā)表于 2014-11-17 13:48:37

ACC不支持手工事務(wù)嗎?

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access經(jīng)典源碼培訓(xùn)群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒(méi)設(shè)置居住地]

[ADO/DAO] 【新手入門(mén)】之十二：淺談ADO之Connection

本帖被以下淘專輯推薦:

群介紹
主題無(wú)相 (隨機(jī)顯示版	同地區(qū)群塊其他地區(qū))