其实就是去掉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 "完毕" |