vb 创建mdb文件

创建MDB文件，需要先执行【工程 】－ 【引用 】 Microsoft ADO Ext. 2.8 for DDL and......

    Dim cata As New ADOX.Catalog

    cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0data source=" &AccFullName &"")

    Set cata = Nothing

将AIS中的表复制到上面建立的MDB文件中

    Set rs = conn.OpenSchema(adSchemaTables)

    While Not rs.EOF

        If rs!table_type = "TABLE" Then

            conn.Execute ("select * into [" &AccFullName &"].[" &rs!table_name &"]  from [" &rs!table_name &"]")

        End If

        rs.MoveNext

    Wend

首先，添加一个Data数据控件,设置它的DatabaseName和RecordSource属性，

strPath

=

App.Path

If

Right(strPath,

1)

<>

\"\\\"

Then

　strPath

=

strPath

&

\"\\\"

MyData.DatabaseName

=

strPath

&

\"ExampleDB.mdb\"

\'数据库存地址

MyData.RecordSource

=

\"Info\"

\'表名

然后么，使用的就是ado。。。然后，自己来吧，你说的有点问题，这种 *** 作只有显示和添加两种，说读写有点不专业了。。。

---