这个错误是那里有问题呀？？37000:[Microsoft][ODBC SQL Server Driver][SQL Server]Connect Error.

Question

37000:[Microsoft][ODBC SQL Server Driver][SQL Server]Connect Error.

Answer 1

哈哈。当然肯定是连接错误了：）
你用的是什么？
ado吗？
最好把你的连接代码贴出来。

Answer 2

mdbPath = App.Path + "\file.mdb"
 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"

Answer 3

mdbPath = app.path & IIf(right(app.path,1)="\","","\") & "file.mdb"

Answer 4

错误好象不在这里。。
你是不是还有其它的数据库连接，看你的错误提示，好象是通过SQL Server注册的ODBC 数据源进行连接，而你的连接串是连接ACCESS数据库
不明白。

Answer 5

代码是：Label2.Caption = "收费信息..."
Set db1 = OpenDatabase(mulu + "\usedata\sfxx.mdb")
Set data1 = db1.OpenRecordset("sfxx", dbOpenDynaset)
Set Cn = New rdoConnection
With Cn
    .Connect = "Uid=ma;pwd=ma;database=sfxx;driver={SQL Server};server=ky\master;dsn=''"
    .LoginTimeout = contime
    .CursorDriver = rdUseClientBatch
    .EstablishConnection rdDriverNoPrompt
End With
Set cqy = Cn.CreateQuery("cdsf", "{ ? = call prosfsc (?,?,?,?,?,?,?,?) }")If data1.RecordCount > 0 Then
    data1.MoveFirst
    Do While data1.EOF = False
        cqy(0).Direction = rdParamReturnValue
        cqy(1) = data1.Fields("sf_ph")                 '票号
        cqy(2) = Trim(data1.Fields("sf_dkh"))          '道口号
        cqy(3) = Trim(data1.Fields("sf_czygh"))        '操作员工号
        cqy(4) = Trim(data1.Fields("sf_bzbh"))
        cqy(5) = Trim(data1.Fields("sf_lb"))
        cqy(6) = data1.Fields("sf_dw")
        cqy(7) = data1.Fields("sf_je")
        cqy(8) = data1.Fields("sf_sj")                 '时间
        Set rdore = cqy.OpenResultset(rdOpenDynamic)
        If cqy(0) = 0 Then
            data1.Delete
        End If
        rdore.Close
        data1.MoveFirst
    Loop
End If
data1.Close
db1.Close
Cn.Close