小弟是初学者 各位大虾能不能给小弟一个连接SQLSERVER数据库的例子

Question

先谢谢大家了

Answer 1

dim conn as new adodb.connection
with conn
    If .State = adStateOpen Then .Close
    .connectionstring = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名称"
    .CommandTimeout = 120
    .Open
end With

Answer 2

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource=rs
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=."
con.Open
If con.State = adStateOpen Then
MsgBox "连接成功"
Else
MsgBox "连接失败"
End If
con.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select productname from products ", con, adOpenDynamic,adLockBatchOptimistic
Do Until rs.EOF
Text1.Text = Text1.Text & Chr(13) + Chr(10) & rs!ProductName
rs.MoveNext
Loop

Answer 4

dim conn as new adodb.connection
with conn
    If .State = adStateOpen Then .Close
    .connectionstring = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名称"
    .CommandTimeout = 120
    .Open
end With