vba中autoacd和access怎么合用

chonglang

请问高手

1 怎么新建一个数据库

2怎么在新数据库里面新建一个表

3怎么在表里面添加记录

4怎么保存这个数据库

5怎么打开这个数据库

6怎么把数据库里面的数据读出来

有高手用原代码示范一下么，谢谢了

我只会创建一个空的数据库

Sub CreateAccessDB

 Dim AccessApp As New Access.Application  

 Set AccessApp = CreateObject("Access.Application.10") 

 On Error Resume Next

 AccessApp.NewCurrentDatabase "D:\VBASample.mdb"

 If Err.Number = 7865 Then 
    MsgBox "已经存在名称为D:\VBASample.mdb的文件"

    Err.Clear
    AccessApp.OpenCurrentDatabase "D:\VBASample.mdb" 

  End If

 If Not Err Then

    MsgBox "已经创建了名为D:\VBASample.mdb的Aceess数据库文件

 End If

 On Error GoTo 0     

 AccessApp.CloseCurrentDatabase

Set AccessApp = Nothing

End Sub

chonglang

高手帮个忙呀

chonglang

版主，帮个忙，指教一下，谢谢了

雪山飞狐_lzh

到这里看看：

http://bbs.mjtd.com/forum.php?mod=forumdisplay&fid=27