vb.net – 如何以编程方式生成新的MS访问文件

发布时间：2020-12-17 07:16:13 所属栏目：百科来源：网络整理

导读：我在互联网最深处的最黑暗的角落看了很远,但对于我的生活,我找不到正确的方法来打开一个新的Access文件,然后使用vb.net在数据库中写入数据. 这里的关键字是NEW数据库,我不想打开现有文件. 这甚至可能吗？提前致谢！解决方法我终于找到了办法,多亏了我的同

我在互联网最深处的最黑暗的角落看了很远,但对于我的生活,我找不到正确的方法来打开一个新的Access文件,然后使用vb.net在数据库中写入数据.

这里的关键字是NEW数据库,我不想打开现有文件.

这甚至可能吗？

提前致谢！

解决方法

我终于找到了办法,多亏了我的同事

Neither ADO.NET nor ActiveX Data Object (ADO) provides the means to create Microsoft
Access Database. However,we can create Access databases by using the Microsoft Jet OLE DB
Provider and Microsoft ADO Ext. 2.7 for DDL and Security (ADOX) with the COM Interop
layer. To do so,select References from the Project Menu,choose the COM tab,and add a
reference to Microsoft ADO Ext. 2.7 for DDL and Security; then you can use this function.

完成此操作后,使用以下代码段创建数据库

Public Class Form1

    Private Sub btnLoad_Click(ByVal sender As System.Object,_
                              ByVal e As System.EventArgs) _
                              Handles btnLoad.Click

        CreateAccessDatabase("C:testtestDB.mdb")
        MsgBox("Database created")
    End Sub

Public Function CreateAccessDatabase( ByVal DatabaseFullPath As String) As Boolean
        Dim bAns As Boolean
        Dim cat As New ADOX.Catalog()
        Try

            Dim sCreateString As String
            sCreateString =_ 
                           "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                           DatabaseFullPath
            cat.Create(sCreateString)

             bAns = True

        Catch Excep As System.Runtime.InteropServices.COMException
             bAns = False

        Finally
            cat = Nothing
        End Try
        Return bAns
    End Function
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!