关于连接远程的SyBase数据库的问题

[ElminsterMerlin]

我用VB6.0编一个程序，需要连接远程的SyBase数据库，已经知道IP地址和端口，用户名和密码，请问在VB中该怎样连接？

[faysky2]

'在工程菜单中引用Microsoft ActiveX Data Object 2.X Library

Dim cnTest As New Adodb.Connection
Public Function connectSybase() As Boolean
　　 On Error GoTo ErrHandle 　
Dim strConnect As String 　
'通过下句与ODBC数据源进行连接，不需用户选择数据源
　　 strConnect = "Provider=MSDASQL.1;Persist Security Info=False;" _
　　　　　　 & " Extended Properties='DSN=chs;SRVR=服务器IP;DB=数据库;UID=用户名;PWD='"
　　 cnTest.Open strConnect
　　 '注意：如果你不想建立DSN,可采取无DSN连接方法如下：
　　 '将上句改为 strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=服务器IP;DB=数据库;UID=用户名;PWD=密码"
　　 'Persist Security是否采用集成安全机制
　　 connectSybase = True
　　 Exit Function
　　ErrHandle:
　　connectSybase = False
End Function

Private Sub Form_Load()
　　 Dim rsTest As New ADODB.Recordset
　　 Dim strSQL As String
　　 If connectSybase Then
　　　　 strSQL = "Select * from yourTable" 'strSQL可以是SQL语句（块），存储过程
　　　　 rsTest.CursorLocation = adUseClient
　　　　 rsTest.Open strSQL, cnTest　　　　 'cnTest为打开的活动的连接
　　 Else
　　　　 MsgBox "打开数据库失败"
　　　　 Exit Sub
　　 End If
　　 Do Until rsTest.EOF
　　　　 Debug.Print rsTest.Fields(0), rsTest.Fields(1)
　　　　 rsTest.MoveNext
　　 Loop
End Sub