请问vbscript如何连接Access数据库?
求完整的连接语句,主要是想知道Conn应该如何定义回答前请看清题目,我问的是vbscript如何连接,而不是如何用asp连接那些回答Server.CreateObject...
求完整的连接语句,主要是想知道Conn应该如何定义
回答前请看清题目,我问的是vbscript如何连接,而不是如何用asp连接
那些回答Server.CreateObject的就请不要浪费彼此的时间了,谢谢 展开
回答前请看清题目,我问的是vbscript如何连接,而不是如何用asp连接
那些回答Server.CreateObject的就请不要浪费彼此的时间了,谢谢 展开
展开全部
其实就是去掉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 "完毕"
比如 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 "完毕"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询