chonglang 发表于 2005-9-14 16:54:00

vba中autoacd和access怎么合用

<P>请问高手</P>
<P>1 怎么新建一个数据库</P>
<P>2怎么在新数据库里面新建一个表</P>
<P>3怎么在表里面添加记录</P>
<P>4怎么保存这个数据库</P>
<P>5怎么打开这个数据库</P>
<P>6怎么把数据库里面的数据读出来</P>
<P>有高手用原代码示范一下么，谢谢了</P>
<P>我只会创建一个空的数据库</P>
<P>Sub CreateAccessDB</P>
<P>&nbsp;Dim AccessApp As New Access.Application&nbsp;&nbsp;</P>
<P>&nbsp;Set AccessApp = CreateObject("Access.Application.10")&nbsp;</P>
<P>&nbsp;On Error Resume Next</P>
<P>&nbsp;AccessApp.NewCurrentDatabase "D:\VBASample.mdb"</P>
<P>&nbsp;If Err.Number = 7865 Then&nbsp;<BR>&nbsp;&nbsp;&nbsp; MsgBox "已经存在名称为D:\VBASample.mdb的文件"</P>
<P>&nbsp;&nbsp;&nbsp; Err.Clear<BR>&nbsp;&nbsp;&nbsp; AccessApp.OpenCurrentDatabase "D:\VBASample.mdb"&nbsp;</P>
<P>&nbsp; End If</P>
<P>&nbsp;If Not Err Then</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;MsgBox "已经创建了名为D:\VBASample.mdb的Aceess数据库文件</P>
<P>&nbsp;End If</P>
<P>&nbsp;On Error GoTo 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</P>
<P>&nbsp;AccessApp.CloseCurrentDatabase</P>
<P>Set AccessApp = Nothing</P>
<P>End Sub</P>

chonglang 发表于 2005-9-14 21:04:00

<P>高手帮个忙呀</P>

chonglang 发表于 2005-9-15 12:45:00

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

雪山飞狐_lzh 发表于 2005-9-15 16:36:00

<P>到这里看看：</P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=forumdisplay&fid=27" target="_blank" >http://bbs.mjtd.com/forum.php?mod=forumdisplay&fid=27</A></P>
页: [1]
查看完整版本: vba中autoacd和access怎么合用