【发布时间】:2011-03-30 04:27:03
【问题描述】:
我在 VB6 中做了一个应用程序(sybase 11 作为后端)。 现在,当我尝试在用户机器上登录时,它给了我以下错误:
“无法初始化数据提供者。” 我正在使用以下代码连接到后端:
'/***** Procedure to establish connection to the back-end
On Error Resume Next
If pCon.State = 1 Then pCon.Close
pCon.Errors.Clear
pDSN = "TESTDSN"
pDatabase = "TESDB"
pCon.Open "Provider=MSDataShape;ODBC;Database=" & Trim(pDatabase) & ";UID="&
Trim( pUID) & ";PWD=" & pPWD & ";DSN=" & Trim(pDSN)
If pCon.Errors.Count > 0 Then
interr = 0
Do Until interr = pCon.Errors.Count
MsgBox pCon.Errors.Item(interr).Description
interr = interr + 1
Loop
fnCon = False
Else
fnCon = True
End If
谢谢。
【问题讨论】: