ADODC与ACCESS2000的问题.

Question

我有的，是个类模块
[email protected]

Answer 1

Dim Cnn as New Connection  '定义连接
Dim Rs as New Recordset    '定义记录集
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AAA.mdb"        ‘设置连接字符
Cnn.Open                   '打开库
Cnn.Execute "Insert into 表 values('值1','值2',...)"  插入记录,值的两端根据字段类型采用不同符号
Cnn.Execute "delete from 表 where 条件"   删除记录
Rs.Open "select * from 表".cnn       '打开记录集
set datagrid1.datasource=rs          '用Datagrid1显示记录
rs.close                        '关闭记录集
set rs=nothing
cnn.close                       '关闭连接
set cnn=nothing