关于查询数据库

Question

小弟在VB中调用查询语句，查询sybase数据库，建立的连接是 
Set ODBC = CreateWorkspace("odbchist", "admin", "", dbUseODBC) 
Set ConnectSyb = ODBC.OpenConnection(...) 
Set Records= ConnectSyb.OpenRecordset(...) 
可能是数据库太大，vb产生错误退出。请问如何延长其查询时间,或是提高查询速度。（我把此查询语句放在sql advantage中可以执行，只是慢一点).谢谢

Answer 1

如果使用ado对象，可以设置响应时间。
    Dim con As New ADODB.Connection
    con.ConnectionTimeout = 100

Answer 2

修改
ConnectionTimeout数值～

Answer 3

可以说的具体一点吗？怎么使用ado对象，小弟实在不太懂

Answer 4

看这里
http://www.connectionstrings.com

Answer 5

建议使用ADO来操作数据库!!
如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
   
    rs.AddNew
    rs!ID = "编号"
    rs!Memo = "备注"
    rs.Update
End SubPrivate Sub Form_Load()
    '连接 SYBASE 数据库
    cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
    cn.ConnectionTimeout = 0 '将时间设置为不超时
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 6

小弟的意思是，Dim con As New ADODB.Connection
    con.open(...)因该怎么写，特别是Provider=？怎么填？
我调用的是sybase