ADO问题，请教，在线求救。

& GetAppPath() + "Record.mdb"
改为:
& app.path & "\Record.mdb"

解决方案 »

  1.   

    & GetAppPath() + "Record.mdb"
    改为:
    & app.path & "\Record.mdb"
    你的路径错误啊。
      

  2.   

    各位，路径没有错误，GetAppPath()是我自己定义的一个函数
    就是App.Path+"\"  或App.Path
      

  3.   

    怎么用sqloledb打开mdb文件？
    provider改为microsoft.jet.oledb.4.0
      

  4.   

    怎么知道机器上安装了哪些Provider?
      

  5.   

    你先测试一下GetAppPath()返回的值，我觉得是你的GetAppPath()函数返回值有问题，或是数据库有密码
      

  6.   

    '**************************
    '获得应用程序所在路径
    '**************************
    Public Function GetAppPath()
       Dim Path As String
       Path = App.Path
       If Right(Path, 1) = "\" Then
          GetAppPath = Path
       Else
          GetAppPath = Path + "\"
       End If
    End Function
      

  7.   

    直接这样写
    con.provider="microsoft.jet.oledb.4.0"
    if right(app.path,1)<>"\" then
       app.path=app.path & "\"
    end if
    con.open app.path & "record.mdb"
      

  8.   

    cnn1="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & session("LoginName") & ";pwd=" & session("LoginPwd") & ";Initial Catalog=" & session("DataBase") & ";Data Source=" & session("ip")cnn1="DBQ="+server.mappath("db/sys.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
      

  9.   

    Data Source 中少了 服务器名称看你的代码好像是连SQL SERVER ,连接串:   strConnectString = "Provider=SQLOLEDB.1" & ";Server=" & strServerName & _
     ";database=" & strDBName & ";UID=" & strUID & ";PWD=" & strPassWord '& ";DistribTx=1"