vb 用DataGrid绑定Adodc 修改数据
最新回答
戏子人生。
2023-06-04 09:17:39
第一个窗口是把数据表中的内容显示在Datagrid上（可视查询）
第二个窗口是修改数据，并保存到数据库中数据表。
如果是这个意思的话，我就接着写。
首先你要清楚：
1.ADODC1是数据库连接部件
2.Datagrid1是显示数据表中内容的表格
ADODC1需要设置它连接的是哪个数据表.(Adodc1.RecordSource = "select * from 表名")
Datagrid1需要设置的是它的数据源来自ADODC1.(Set DataGrid1.DataSource = Adodc1)
然后2个部件都要刷新！Refresh
给你举个例子，之前我做过的程序里面这2部分的代码,希望对你有用！
解释一下，我用的数据库名是1.mdb，里面的表名是2。& App.Path & 是当前工程所在路径，这样就不用再额外定义路径了，不过要把1.mdb放在工程文件夹中。最后要记得刷新，否则无法即时显示最新数据！
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 2"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
这个之后，你的Datagrid1就可以显示1.mdb中表2的内容。
至于第二个窗口修改并保存
Private Sub Command3_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb"
cn.Execute "insert into 2(人数) values ('" & Label5.Caption & "')"
cn.Close
MsgBox "保存完毕！"
DataGrid1.Refresh
Adodc1.Refresh
End Sub
解释一下上面这段，原本是我自己原来编的一个程序的一段，作用是：当我单击按钮command3，就可以把把现在窗口上Label5中内容保存到1.mdb中标2的人数字段上，并刷新，使其可以同步更新显示在你说的第一个窗口上。
应该就这些，如果有什么问题，再联系我！
热门标签
