請教：執(zhí)行如下代碼出現(xiàn)錯誤（有截圖）

dorenmi

Option Compare Database
Sub ShowUserRosterMultipleUsers()
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long

    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=c:\Northwind.mdb"

    cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
             & "Data Source=c:\Northwind.mdb"

    'cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    'cn.Open "Data Source=c:\Northwind.mdb"

    'cn2.Open "provider=Microsoft.Jet.OLEDB.4.0;" _
     '& "Data Source=c:\Northwind.mdb"

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
                           , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, "", rs.Fields(2).Name, "", rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend
End Sub

roych

好吧，我承認(rèn)，ADO的這個方法我很少用。但是，據(jù)我所知，應(yīng)該是你漏寫參數(shù)了：

1.    Set rs = cn.OpenSchema(adSchemaProviderSpecific,, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

復(fù)制代碼

當(dāng)QueryType由數(shù)據(jù)庫引擎指定時，應(yīng)該指定GUID，根據(jù)參數(shù)順序的話，GUID是最后一個參數(shù)。為了避免出錯，也可以這樣寫：

1. Set rs = cn.OpenSchema(schema:=adSchemaProviderSpecific, schemaID:="{947bb102-5d43-11d1-bdbf-00c04fb92675}")

復(fù)制代碼

admin

你看看是否在
cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
             & "Data Source=c:\Northwind.mdb"

在這句出錯，如果這句出錯，可能是數(shù)據(jù)庫格式 或OLEDB驅(qū)動有問題

dorenmi

admin 發(fā)表于 2014-12-23 10:18
你看看是否在
cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
             & "Data Source=c:\Northwi ...

出錯在 cn.Open "Data Source=c:\Northwind.mdb"這行了
另外：請問，格式出錯什么概念？
我是將"羅斯文.accbd" 改名為“Northwind.mdb”后，拷貝到c盤下的

dorenmi

roych 發(fā)表于 2014-12-23 10:11
好吧，我承認(rèn)，ADO的這個方法我很少用。但是，據(jù)我所知，應(yīng)該是你漏寫參數(shù)了：

當(dāng)QueryType由數(shù)據(jù)庫引擎 ...

試著改成你的語句，但執(zhí)行還是在下面語句就出問題了
cn.Open "Data Source=c:\Northwind.mdb"

roych

怎么會呢？如果出錯，你應(yīng)該重裝office了^_^

此外，如果沒別的需要，建議還是打開一個數(shù)據(jù)連接要好一些，畢竟引用的都是同一個文件。

dorenmi

roych 發(fā)表于 2014-12-23 11:12
怎么會呢？如果出錯，你應(yīng)該重裝office了^_^

此外，如果沒別的需要，建議還是打開一個數(shù)據(jù)連接要好一些 ...

頭痛啊   我在試試~~~
謝謝roy！

風(fēng)中漫步

那個.acc用你的連接是打不開的.你得費點工夫去找點資料,這個格式好象要用NET級的,我多年不用ACC,說不到點上,給你些建議吧:看你的引用中有更高級的ADO嗎;裝個ACCESS RUNTIME 2007試試

accessir

dorenmi 發(fā)表于 2014-12-23 10:38
出錯在 cn.Open "Data Source=c:\Northwind.mdb"這行了
另外：請問，格式出錯什么概念？
我是將"羅斯文 ...

出錯在 cn.Open "Data Source=c:\Northwind.mdb"這行了
另外：請問，格式出錯什么概念？
我是將"羅斯文.accbd" 改名為“Northwind.mdb”后，拷貝到c盤下的

這樣改名

dorenmi

風(fēng)中漫步 發(fā)表于 2014-12-23 14:06
那個.acc用你的連接是打不開的.你得費點工夫去找點資料,這個格式好象要用NET級的,我多年不用ACC,說不到點上 ...

謝謝指點~~~