VB怎样与SQLserver建立连接,多谢

Question

VB怎样与SQLserver建立连接
VB怎样与SQLserver建立连接,多谢

Answer 1

简单的用ADO控件，设置一下属性就可以了

Answer 2

'
'创建一个连接(连接到SQL)
'函数名:CreateSqlConn
'参数:  DbConnection ADODB连接,ServerName 服务器名,DBname 数据库名,UserID 登录用户名,UPw 登录密码,Timerout 连接超时
'返回值:TRUE 连接成功.FALSE 连接失败.
'例:    CreateSqlConn p_cnn,"CJH","cjherp001","sa","123",15
'
Public Function CreateSqlConn(ByRef DbConnection As ADODB.Connection, _
                              ServerName As String, _
                              DbName As String, _
                              UserID As String, _
                              UPw As String, _
                              Optional Timerout As Long = 15) As Boolean
    Dim ReturnVal As Boolean    On Error Resume Next    If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
       DbConnection.Close
    End If
'/连接1
    DbConnection.Provider = "MSDASQL.1"
    DbConnection.ConnectionString = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DbName & ";Uid=" & UserID & ";Pwd=" & UPw & ";PWD=" & UPw & ";APP=" & App.Path & ";WSID=" & UserID & ";Connect Timeout=" & Timerout & ";"
'/--------------------------------------------------------------------------------------------
'/连接2
'/    DbConnection.Provider = "SqloleDB.1"
'/    DbConnection.ConnectionString = "Database=" & DBname & ";Server=" & ServerName & ";Uid=" & UserID & ";Pwd=" & UPw & ";Connect Timeout=" & Timerout & ";"
'/---------------------------------------------------------------------------------------------
    DbConnection.ConnectionTimeout = Timerout
    DbConnection.CommandTimeout = Timerout
    DbConnection.Open
    DoEvents
    If Err.Number = 0 Then
       ReturnVal = True
    Else
       Err.Clear
       ReturnVal = False
    End If
    CreateSqlConn = ReturnVal
End Function

Answer 3

注:例如在 CreateSqlConn p_cnn,"CJH","cjherp001","sa","123",15 中
P_CNN 的声明如下:
DIM P_CNN AS NEW ADODB.Connection