如何在代码中实现数据库的连接，查询，插入删除等动作？（access）

Question

如何在代码中实现数据库的连接，查询，插入删除等动作？（access）

Answer 1

'首先引用"Microsoft ActiveX Data Objects 2.0 Library"Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=f:\aa.mdb"
db.Opendb.Execute "delete from tablename where id<310 "'删除'添加.
rs.Open "userTable", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Name = "xxxxxxx"
rs!Password = "ssssss"
rs.UpdateRS.close
rs.Open "select * from tablename", db
Do While Not rs.EOF
   Debug.Print rs.Fields(0).Value
   Debug.Print rs.Fields(1).Value
   rs.MoveNext
Loop

Answer 2

最下面的RS.close后面的代码是查询.

Answer 3

这里有个通用的过程，具体代码不写了，没意思！（写法有很多）
1.引用ADO(Microsoft ActiveX Data Objects 2.X Library)
2.声明连接对象（ADODB.CONNECTION）,记录集对象（ADODB.RECORDSET）等等
3.建立连接，打开连接
4.查询数据，放入recordset 中显示
5.删除记录（利用RECORDSET的对象的execute方法(你的删除sql语句)或者RECORDSET对象的open方法...）
6.增加修改同上