UC知道VB连接ACCESS在GATAGRID中显示的问题~~高手请进！！
来源：百度知道 编辑：UC知道 时间：2024/05/18 04:22:52
Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim Sql As String
Dim A, B, C, d, E As String
A = Trim(Text1.Text)
B = Trim(Combo1.Text)
C = Trim(Text2.Text)
d = Trim(Combo2.Text)
E = Trim(Text3.Text)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\VB98\gongcheng\db8.mdb;Persist Security Info=False"
cn.Open
Sql = "insert into 爆破员信息录入 (姓名,性别,联系方式,所属部门,家庭住址) values ('" & A & "','" & B & "','" & C & "','" & d & "','" & E & "')"
cn.Execute Sql
Set DataGrid1.DataSource = rs
End Sub
我想让添加的行在DataGrid1中显示出来~~~以上的代码只能添加,但显示不出~~~能不能教教我~~~~
我用DATA绑定ACCESS后 在没执行上面操作之前的可以显示的，但是执行上面操作后就什么也不显示了~~
友人说在添加之后重连数据原以便更新~~~~~该怎么做嫩>??
没有报错啊~~~
该怎么弄类？？？
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim Sql As String
Dim A, B, C, d, E As String
A = Trim(Text1.Text)
B = Trim(Combo1.Text)
C = Trim(Text2.Text)
d = Trim(Combo2.Text)
E = Trim(Text3.Text)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\VB98\gongcheng\db8.mdb;Persist Security Info=False"
cn.Open
Sql = "insert into 爆破员信息录入 (姓名,性别,联系方式,所属部门,家庭住址) values ('" & A & "','" & B & "','" & C & "','" & d & "','" & E & "')"
cn.Execute Sql
Set DataGrid1.DataSource = rs
End Sub
我想让添加的行在DataGrid1中显示出来~~~以上的代码只能添加,但显示不出~~~能不能教教我~~~~
我用DATA绑定ACCESS后 在没执行上面操作之前的可以显示的，但是执行上面操作后就什么也不显示了~~
友人说在添加之后重连数据原以便更新~~~~~该怎么做嫩>??
没有报错啊~~~
该怎么弄类？？？
你好像漏了一步吧？
定义了rs的类型
还没实体化
你就直接Set DataGrid1.DataSource = rs
没报错吗？
做个刷新的按钮啊~~~然后把这个代码写进去DataGrid1.Refresh就可以了