首頁(yè) 猿問(wèn) 請(qǐng)問(wèn)vbscript如何連接Acc...

請(qǐng)問(wèn)vbscript如何連接Access數(shù)據(jù)庫(kù)？

JavaScript

一只萌萌小番薯 2019-07-11 06:06:55

求完整的連接語(yǔ)句，主要是想知道Conn應(yīng)該如何定義回答前請(qǐng)看清題目，我問(wèn)的是vbscript如何連接，而不是如何用asp連接那些回答Server.CreateObject的就請(qǐng)不要浪費(fèi)彼此的時(shí)間了，謝謝

查看完整描述

3 回答

哈士奇WWW

TA貢獻(xiàn)1799條經(jīng)驗(yàn) 獲得超6個(gè)贊

其實(shí)就是去掉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")'這里是循環(huán)輸出標(biāo)題,vbs能用msgbox彈出.
rs.movenext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
msgbox "完畢"

反對(duì) 回復(fù) 2019-07-12

千萬(wàn)里不及你

TA貢獻(xiàn)1784條經(jīng)驗(yàn) 獲得超9個(gè)贊

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

反對(duì) 回復(fù) 2019-07-12

陪伴而非守候

TA貢獻(xiàn)1757條經(jīng)驗(yàn) 獲得超8個(gè)贊

ASP連接Access<%
dim conn,mdbfile
mdbfile=server.mappath("數(shù)據(jù)庫(kù)名稱(chēng).mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=數(shù)據(jù)庫(kù)密碼;dbq="&mdbfile
%>

反對(duì) 回復(fù) 2019-07-12