推荐: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