用vb6創建odbc為什麼不行？進入看代碼 ？

[leotan_yang]

#If Win32 Then
Dim intRet As Long
#Else
Dim intRet As Integer
#End If
Dim strDriver As String
Dim strAttributes As String

'Set the driver to SQL Server because it is most common.
strDriver = "SQL Server"
'Set the attributes delimited by null.
'See driver documentation for a complete
'list of supported attributes.
strAttributes = "SERVER=(local)" & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=TempDSN" & Chr$(0)
strAttributes = strAttributes & "DSN=TEM" & Chr$(0)
strAttributes = strAttributes & "DATABASE=trade" & Chr$(0)
strAttributes = strAttributes & "UID=sa" & Chr$(0)
strAttributes = strAttributes & "PWD=" & Chr$(0)

'strAttributes = "SERVER=(local) DSN=ttt DATABASE=trade UID=sa"

'show dialog, use Form1.Hwnd instead of vbAPINull.
intRet = SQLConfigDataSource(vbAPINull, 4, strDriver, strAttributes)
If intRet Then
MsgBox "DSN Created"
Else
MsgBox "Create Failed"
End If

[yoki]

要用;分隔
'strAttributes = "SERVER=(local) DSN=ttt DATABASE=trade UID=sa"
改成
'strAttributes = "SERVER=(local);DSN=ttt ;ATABASE=trade;UID=sa"

即将 Chr$(0)改成";"

[leotan_yang]

試過啦，系2000系統中，不是不行