ntwwh的专栏

Private Sub Command1_Click()   Sou: 源mdb文件路径和名称；Des: 目标mdb文件路径和名称   引用　Microsoft Jet and Replication Objects 2.6    Dim miJRO As JRO.JetEngine    Set miJRO = New JRO.JetEngine    miJRO.CompactDataba

新建一个窗口，添加2个Command控件，1个Text控件，1个Drive控件，1个File，进行数据的备份和还原，代码如下：Private Sub Command1_Click()    msg = MsgBox("是否确定需要备份？", 1, "数据备份") Text1.Visible = True Drive1.Visible = True  Text1.Text = "备份至"End

如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压

窗体加一个Command控件，点击控件即可完成，把下列代码全部复制到窗体上。 Dim s As StringPrivate Sub Command1_Click()  On Error Resume Next  Dim sNewName As String  Dim sBakFile As String  Dim sDataBase As String  sNewName = s   

ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New  ADODB.Connection  创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset    创建一个 Recor