推薦：Access通用-自動替換數據庫中的字符串
自己可以修改myreplace函數,實現復雜的替換.呵呵,好象用處不大.主要是看看如何讀取access表和字段列表 % '#################################### '替換數據庫內容 lamking 2005-8-22 'http://www.lamking.com QQ:628557 '###################################

ADO數據對象用來連接數據庫的方式有兩種,分別是ODBC和OLE DB方式

(一) 使用OLE DB方式
********************************************************
*** OLE DB Provider for Microsoft Jet
********************************************************
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn= "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\myDb.mdb;" & _
"User Id=admin;" & _
"Password=;"
oConn.Open strConn

********************************************************
*** OLE DB Provider for ODBC Databases
********************************************************
訪問MS Access數據庫
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn= "Provider=MSDASQL;" & _
"Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=c:\somepath\mydb.mdb;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"
oConn.Open strConn

(二) 使用ODBC方式
********************************************************
*** ODBC Driver for Access
********************************************************
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn= "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq="&Server.MapPath("Testdb.mdb"); & _
"Uid=AdminAccount;" & _
"Pwd=Password;"
oConn.Open strConn

分享：Access隨機顯示不重復記錄
看了很多人討論關于access隨機取記錄的帖子，不才,寫了一個隨機顯示記錄的解決方法,希望大家指正。數據庫里有5條記錄，隨機抽取4條。 code -------------------------------------- % '-------------------------數據庫連接----------------------- Set objCo