急求VB ado控件连接SQL数据库的方法，全代码!

Question

急求VB ado控件连接SQL数据库的方法，全代码!

Answer 1

直接这样就行
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "DSN = VMS; UID =; PWD =;"
cnn1.Open "DSN=VMS"

例如 用adodc控件 可以这么进行添加操作：
If chengyun.Adodc1.Recordset.EOF = False Then
MsgBox "该承运单位已存在", 48, "警告提示"
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
chengyun.cnn1.Recordset.AddNew
chengyun.Adodc1.Recordset("承运单位") = Text1.Text
chengyun.Adodc1.Recordset.Update
chengyun.DataGrid1.Refresh
Unload Me
End If
End If
End Sub

Answer 2

Dim adodc1 As New ADODB.Recordset'(声明变量)
Dim conns As New ADODB.Connection
conns.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=(自填);Password=(密码自填);Initial Catalog=(你的数据库名称);Data Source=(数据库地址或者计算机名称)"

'(以上是使用SQL Server 身份验证连接)
conns.Open
SQL1 = "select * from Userinfo(你的表名) "
adodc1.Open SQL1, conns, adOpenStatic, adLockOptimistic
Set DataGrid1(你的控件名,此处控件名是参考)).DataSource = adodc1
DataGrid1.Refresh'(刷新控件)
adodc1.MoveLast'(移动游标到最后一行)

Answer 3

adodc1.connectionstring="Driver={SQL Server};Server=服务器IP地址;uid=数据库用户名;pwd=数据库密码;database=数据库名称"
adodc1.recordsource="简单查询SQL语句" '//注意，不能是操作查询，操作查询由数据集合来完成
adodc1.refresh
set mshflexgrid1.datasource=adodc1