VB对Access数据库操作。解决方法

VB对Access数据库操作。
我已经在外面创建好一个accsee数据库，然后通过VB编程对数据库进行写数据，读数据。请问哪位高手能提供一个这样的案例。要用到哪些语句？最好有完整的一个步骤介绍。因为我是一个新手。谢谢！
[解决办法]

dim conn as new adodb.connection
dim rs as new adodb.recordset
'连接数据库
with conn
    If .State<>adstateclosed Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
End With
'查询记录
if rs.state<>adstateclosed then rs.close
rs.open "select * from 表名",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close
'新增记录
conn.execute "insert into 表名(...) values(...)"
'修改记录
conn.execute "update 表名 set ... where ..."
'删除记录
conn.execute "delete from 表名 where ..."

[解决办法]
我给你讲个例子  你自己去研究以下：
是访问ADO变成数据的
     Private sub form_load()
     dim rs as new recordset
     dim con as new connection
     con.open "DSN=mydatabase"
     
     rs.open "select * fro 数据库名称" , con
     me.autoredraw = true
     rs.movefirst 
     dim ptr 0 to 4
       print rs.fields(ptr) .name,
     next ptr
     while not rs.EOF ()
     print
     for ptr = 0 to 4
      print rs.fields (ptr) .Value
     next ptr
     rs.movenetx
     wend


     ned sub
               

        希望对你有帮助！ 

查看更多 下一篇