大侠帮忙 用VBscript脚本语言怎么连接Access数据库（直接连接，不通过ODBC)？？？

大侠帮忙 用VBscript脚本语言怎么连接Access数据库（直接连接，不通过ODBC)？？？

8 个解决方案

#1

Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" 
StrDSN = StrDSN & Server.MapPath("aaa.mdb")
Cn.Open strDSN

#2

VBscript主是客户端脚本语言，并不能连接数据库，只能通过ASP连接

#3

同意类leiaming(630178)具体的方式
如下！vbscript是没有办法的！！！慢慢看，使全部方法

两种方法我认为还是直接用驱动的好，它灵活，可移植性强。。
我这有有ASP连接数据库的5种方法。。
ASP连接数据库的5种方法  
 
第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二种－这种方法用在SQL SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;" 
set conn = server.createobject("adodb.connection")
conn.open strconn



第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"



第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3  第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

#4

用asp连接，然后选择结果利用函数传递。

#5

yclr(雪阳) ( ) :你的建议很好，不过，你是不是不明白版主的问题呀，他也许比有你还知道联接数据库的方法，现在的问题，是如何用VBScipt脚本语言连接一下数据库，哈哈！

#6

dim conn
dim connstr
dim db
db="数据库文件"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rsmap = Server.CreateObject("ADODB.Recordset")
mapsql = "SELECT * FROM 表名"
rsmap.Open mapsql,conn

#7

这样我也不知道什么意思了

#8

使用wsh
set cn=wscript.createobject("adodb.connection")
set rs=wscript.createobject("adodb.recordset")

cn.open connectionstring
rs.open "select * from xxx",cn,1,3