vb6怎样连接SQL SERVER数据库

Question

各位大侠帮忙，vb6怎样连接SQL SERVER数据库？呀

Answer 1

新建一个扩展名为udl的文件，双击打开，配置完确定后用记事本打开，里面就有连接字符串了。

Answer 2

找找msdn吧,这么基础的问题都不知道怎么回答你了

Answer 3

Public Function OpenCn(ByVal Cip As String) As Boolean
    Dim mag As String
    On Error GoTo strerrmag
    Set conn = New ADODB.Connection
    conn.ConnectionTimeout = 25
    conn.Provider = "sqloledb"
    conn.Properties("data source").Value = Cip    '服务器的名字
    conn.Properties("initial catalog").Value = "bj"           '库名
    'conn.Properties("integrated security").Value = "SSPI"   '登陆类型
    conn.Properties("user id").Value = "sa"   'name
    conn.Properties("password").Value = "xxfffaaa"  'passwd
    conn.Open
    OpenCn = True
    addFlag = True
    Exit Function
strerrmag:
        mag = "Data can't connect"
        Call MsgBox(mag, vbOKOnly, "Error:Data connect")
        addFlag = False
        Exit Function
End Function调用的时候
OpenCn ("local")     'local替换为sql服务器名或ip

Answer 4

Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
  Dim strConn As String
  'ado的连接字符可以用adodc自动生成
  strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=LocalHost"
  Conn.CursorLocation = adUseClient
  Conn.Open strConn
  
  If Rs.State <> adStateClosed Then Rs.Close
  Rs.Open "Select * from Customers", Conn, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = Rs
  
End Sub

Answer 5

引用Microsoft ActiveX Data Objects 2.7 Library
dim cn as ADODB.Connection
Set cn = New ADODB.Connection
cn.open "Provider=sqloledb;user ID=sa;Password=;Initial Catalog=数据库;Data Source=服务器"