关于数据库的连接

Question

谁能给我一个在VB中连接SQl Server数据库的准确代码呀？？
急，菜鸟在线等。

Answer 1

Option Explicit
Public SqlConn As New ADODB.Connection'功能简介：建立SQL数据库公共链接
'参数一：服务器名或IP
'参数二：数据库名称
'参数三：登陆用户名称
'参数四：登陆用户密码
'参数五：延时
'返回值："ok"--成功, 否则返回错误信息
Function PulbicSQLConn(StrServerName As String, StrDataName As String, StrUserName As String, StrPassword As String, IntOutTime As Integer) As String
    On Error GoTo SQLConnErr
    Dim StrSql As String
    StrSql = "Provider=sqloledb;Data Source=" & StrServerName & ",1433;Initial Catalog=" & StrDataName & ";User ID=" & StrUserName & ";Password=" & StrPassword & ";"
    If SqlConn.State <> 0 Then SqlConn.Close
    SqlConn.ConnectionTimeout = IntOutTime
    SqlConn.Open StrSql
    PulbicSQLConn = "ok"
    Exit Function
SQLConnErr:
    PulbicSQLConn = Err.Description
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function'功能简介：关闭SOL数据库公共链接
Function PublicMdbClose()
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function

Answer 2

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    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, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 3

CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;"

Answer 4

Dim CN   As New ADODB.Connection  
提示用户类型没有定义啊

Answer 5

工程-引用 Microsoft ActiveX Data Object 2.5