请问vb中,什么样与sqlserver相连

Question

请问vb中,什么样与sqlserver相连,是网络版的软件。请给源代码。

Answer 1

'先要引用ADO2.X
Dim CN As ADODB.Connection
Dim RS As New ADODB.Recordset
Set CN = New ADODB.Connection
        With CN
            .ConnectionString = "uid=" & ServerUid & ";pwd=" & ServerPwd & ";driver={SQL Server};server=" & ServerName & ";database=" & DbName & ""
            .ConnectionTimeout = 20
            .Open
        End With
 RS.Open "select * from table ", CN, adOpenStatic, adLockReadOnly