====================================================== 我用ADO连接: 工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim WithEvents adoRS As Recordset Dim db As Connection '提数据事件 Set db = New Connection db.CursorLocation = adUseClient db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;" ' ########################################## '打开密码是1234的Access2000数据库db1.mdb Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoRS DataGrid1.Refresh '添加事件 adoRS.AddNew adoRS![字段a] = text1.Text adoRS![字段b] = text2.Text adoRS.UpdateBatch adAffectAll'删除 adoRS.Delete adoRS.Requery Set DataGrid1.DataSource = adoRS DataGrid1.Refresh
mshflexgrid我比较喜欢用!
我用ADO连接:
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh
'添加事件
adoRS.AddNew
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll'删除
adoRS.Delete
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh