请问各位高手，vb怎么连sqlserver2000？

Question

我是刚学的，麻烦高手们告诉我，我急用！
非常感谢！

Answer 1

用ado,
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=数据库名"
cnn.CursorLocation = adUseClient
cnn.Open
rst.Open "select * from 数据库名.StudentsInfo.dbo.表", cnn, adOpenStatic, adLockPessimistic

Answer 2

新建一个模块把这个放进出就OK了！Public Function ExeSql(ByVal SQL As String, Msg As String) As ADODB.Recordset
    Dim Cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    '发生错误时跳转
    On Error GoTo ExeSql_Error
    '将查询语句转化为字符串
    sTokens() = Split(SQL)
    '连接到指定的数据源
    Set Cnn = New ADODB.Connection
    Cnn.Open ConnectString
    '判断查询语句
    If InStr("insert,delete,update", UCase$(sTokens(0))) Then
        '执行语句
        Cnn.Execute SQL
        '返回查询信息
        Msg = sTokens(0) & " query successful"
    Else
        Set rst = New ADODB.Recordset
        '执行查询语句
        rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic
        '返回数据集对象
        Set ExeSql = rst
        '返回查询记录
        Msg = "查询到" & rst.RecordCount & "条记录"
    End IfExeSql_Exit:
    '释放资源
    Set rst = Nothing
    Set Cnn = Nothing
    Exit FunctionExeSql_Error:
    '显示错误信息
    Msg = "查询错误:" & Err.Description
    Resume ExeSql_Exit
End Function
'指定数据源字符串
Public Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=data\aaa.mdb"
    '我这里是引用的Access中的一个表，打开SQL Sever用下面的语名
    'ConnectString = "fileDSN=***.dsn;UID=sa;PWD="
End Function

Answer 3

Dim CN   As New adodb.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New adodb.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic
    Set MSHFlexGrid1.DataSource = Rs

Answer 4

Dim CN   As New adodb.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New adodb.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
  '‘   Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop
   CN.Close

Answer 5

请问一下那个ado部件在哪里的？