急！！利用ADO如何备份access数据????===50分=====

Question

用recordset.Save FileName, PersistFormat
    filename:文件名
    PersistFormat：1、adPersistADTG （默认）使用专用的“Advanced Data Tablegram”格式保存。 2、adPersistXML 使用 XML 格式保存。 如果要生成*.mdb文件，你还不如直接拷贝呢^_^

Answer 1

我把情况说详细一点：
    现有一个数据为 a.mdb
    我在vb里，用 adodb 方式 打开，然后利用 sql 语句
    查询所需要的记录，然后将查询结果备份到硬盘上
    如何实现.....能提供一点原代码吗？   谢谢！！

Answer 2

beta不是回答了吗，那样可以保存的，要是还有什么要求，再提出来

Answer 3

我试了BETA 的做法，文件是生成了，可我用ACCESS97打不开，显示不识别的数据库格式
代码如下：Dim adoc As New Connection
Dim res As New Recordsetadoc.ConnectionString = "dsn=bill;uid=;psw="
adoc.Open
res.ActiveConnection = adoc
res.Source = "select * from bill967"
res.Open
res.Save "c:\wyf.mdb", adPersistADTG所以我的建议还是老土的方法，用CREATEDATABASE建一个库算了

Answer 4

这样当然是不行了，res.Save "c:\wyf.mdb", adPersistADTG保存的格式不是ACCESS格式，当然不能用ACCESS打开了，上面不是说的很明白吗？（1、adPersistADTG （默认）使用专用的“Advanced Data Tablegram”格式保存。）一定要保存为。mdb文件，当然只能是先CreateDatabase建一个.mdb的数据苦，再用Select Into就OK了。

Answer 5

有用createdabase建立数据库的代码吗？？？
急！！
急！！                        阿桂

Answer 6

在ADO中创建数据库？那要用到ADOX的。
你必须先引用 Microsoft ADO Extensions for DDL and Security 

Answer 7

看看ADO的帮助就什么都有了！
比如创建数据库：Sub CreateTable()  Dim tbl As New Table
  Dim cat As New ADOX.Catalog  cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"  tbl.Name = "MyTable"
  tbl.Columns.Append "Column1", adInteger
  tbl.Columns.Append "Column2", adInteger
  tbl.Columns.Append "Column3", adVarWChar, 50
  cat.Tables.Append tblEnd Sub