Question

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

用VB中的ado（adodc1）控件连接sql数据库，数据库的表名为UserInfo,VB中添加一个MSHFlexGrid表格控件。麻烦哪位大神帮我把代码写出来，详细一点的。小弟不甚感激。

Answer 1

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

Answer 2

直接这样就行
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 3

群 号:238706019 里面有ADO的帮助文件

Answer 4

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'(移动游标到最后一行)
(有问题再联系)

追问

如果我将我的VB程序拷到另一台电脑，用字符串连接的数据库可以使VB程序正常运行吗？如果不用字符串连接数据库，还有什么办法呢？

追答

可以使用.
(如果不用字符串连接数据库，还有什么办法呢？)你是不是想直接用adodc1控件绑定数据库?
如果是的话,你在adodc1的属性页就可以直接设置你要绑定的数据库.