请教这段代码是什么意思 - 编程论坛

#2

mchrui2009-12-01 13:43

为什么运行的时候老提示“数据库连接出错，请检查数据库名称
及路径是否正确”
请大家指点。

#3

aspic2009-12-01 14:40

你的SqlNo=1吗？

#4

yms1232009-12-01 14:47

为什么连接SQL数据库后又要连接Access?

#5

aspic2009-12-01 15:44

程序代码：

    if SqlNo =1 then
    On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr
    else
    Data=""&SitePath&"DataBase/"&DataName&""
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver
(*.mdb)};uid=;password="&Psd()&";"
    conn.Open connstr
    end if

人家有做判断的

#6

mchrui2009-12-01 16:16

我也不知道，别人写的代码

#7

chenguoxing5172009-12-01 16:47

可能因为你的sqlno没有赋值
如果你的数据库为sqlserver，则将
if SqlNo =1 then
    On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr
    else
    Data=""&SitePath&"DataBase/"&DataName&""
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver
(*.mdb)};uid=;password="&Psd()&";"
    conn.Open connstr
    end if

直接替换为
On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr

同时检查你的数据库名称，用户名和密码是否正确，如果不正确，设置成对应的

若你的数据库为access则将
if SqlNo =1 then
    On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr
    else
    Data=""&SitePath&"DataBase/"&DataName&""
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver
(*.mdb)};uid=;password="&Psd()&";"
    conn.Open connstr
    end if
直接替换为
Data=""&SitePath&"DataBase/"&DataName&""
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver
(*.mdb)};uid=;password="&Psd()&";"
    conn.Open connstr
同时找到dataname的值