一起探讨数据库问题！！

Question

在VB中如何用代码实现VB和SQL2000连接起来？？？？

Answer 1

connect_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & SysName & ";password=" & sysPassword & ";"
        
  connect_str = connect_str & "Initial Catalog=" & sysDataBase & ";Data Source=" & sysSource & ";Connect Timeout=30;Application Name=ListenEZ"
  
  conn.CursorLocation = adUseClient

Answer 2

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
End SubPrivate Sub Form_Load()
    cn.ConnectionString = ""
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub