请问vbscript如何连接Access数据库？

Question

求完整的连接语句，主要是想知道Conn应该如何定义回答前请看清题目，我问的是vbscript如何连接，而不是如何用asp连接那些回答Server.CreateObject的就请不要浪费彼此的时间了，谢谢

Answer 1

其实就是去掉server就可以了.
比如 connstr="DBQ=db.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=CreateObject("ADODB.CONNECTION") '这里只是去掉server,照样可以连接
conn.open connstr
'连接试试看
set rs=createobject("Adodb.RecordSet")
sql="select * from news"
rs.open sql,conn,1,1
do while not rs.eof
msgbox rs("title")'这里是循环输出标题,vbs能用msgbox弹出.
rs.movenext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
msgbox "完毕"

 

Answer 2

Dim conn,rs,sqlstr
Set conn = CreateObject("ADODB.Connection")
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source="F:/datebase/11.mdb""
conn.open

Answer 3

ASP连接Access<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>