一个关于Insert后Datagrid控件刷新的问题

Question

程序简单描述:
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim cmd as new adodb.commandcn和rs简单配置省略不写了. ...
cmd.commandtext = "insert...."  
cmd.execute
'在一个窗口中按下button后,插入一条记录,随后关闭该窗口返回到前一个有datagrid控件的界面'此时想看到刚刚插入的记录能在datagrid中显示出来.本人没有用到adodc控件,用的是adodb对象,所以没有adodc.refresh的方法.所以就采取了一个笨办法就是rs.close, rs.open, datagrid.datasource = rs (既重新关闭打开记录集,在对datasource赋值) 但总觉得这个方法不大好, 请问还有什么其他方法吗,在性能上好一点的.或者是更有效的方法. 谢谢大家了!!!

Answer 1

你试试吧，好用的
记得要引用ado  
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
      strsql="select 字段 from 表 where 你的条件"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub