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

Question

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

Answer 1

直接这样就行Set cnn1 = New ADODB.Connectioncnn1.ConnectionString = "DSN = VMS; UID =; PWD =;"cnn1.Open "DSN=VMS"例如 用adodc控件 可以这么进行添加操作：If chengyun.Adodc1.Recordset.EOF = False ThenMsgBox "该承运单位已存在", 48, "警告提示"Text1.Text = ""Text1.SetFocusExit SubElsechengyun.cnn1.Recordset.AddNewchengyun.Adodc1.Recordset("承运单位") = Text1.Textchengyun.Adodc1.Recordset.Updatechengyun.DataGrid1.RefreshUnload MeEnd IfEnd IfEnd Sub

Answer 2

Dim adodc1 As New ADODB.Recordset'(声明变量)Dim conns As New ADODB.Connectionconns.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=(自填);Password=(密码自填);Initial Catalog=(你的数据库名称);Data Source=(数据库地址或者计算机名称)"'(以上是使用SQL Server 身份验证连接)conns.OpenSQL1 = "select * from Userinfo(你的表名) "adodc1.Open SQL1, conns, adOpenStatic, adLockOptimisticSet DataGrid1(你的控件名,此处控件名是参考)).DataSource = adodc1DataGrid1.Refresh'(刷新控件)adodc1.MoveLast'(移动游标到最后一行)

Answer 3

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