1:添加删除等可以直接执行插入和删除语句实现,然后重新检索数据库给rs,然后再
Set MSFlexGrid1.DataSource = rs
如下:
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "..."
rs.open "select * from table1",cn
set msflexgrid1.datasource=rs
'添加
rs.close
cn.execute" insert into table1(field1,field2...) select value1,value2,.."
rs.open "select * from table1",cn
set msflexgrid1.datasource=rs
rs.close
'删除
cn.execute "delete from table1 where...."
rs.open"select * from table1",cn
set msflexgrid1.datasource=rs
rs.close
cn.close
set rs=nothing
set cn=nothing