Yahoo奇摩知識+將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+服務將會轉為唯讀模式。其他Yahoo奇摩產品與服務或您的Yahoo奇摩帳號都不會受影響。如需關於Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

東儒 發問時間: 電腦與網際網路程式設計 · 1 0 年前

vb可以建立access資料庫嗎?

請問一下各位大大

我想利用vb來執行建立*.mdb的檔案 該怎麼下手丫?

另外能夠判斷資料夾內是否有pp.mdb這樣的一個檔案存在嗎?

已更新項目:

本來想說vb的作法和vba相通

可是後來發現app.path在vba裡沒辦沒用

該怎麼辦

2 個解答

評分
  • ?
    Lv 6
    1 0 年前
    最佳解答

    你可以找 Microsoft ADO Ext. 2.x for DDL and Security 的相關資料

    你需要的東西主要是 ADOX.Catalog

    下面的程式可以判別資料庫檔案在不在,如果不在則建立 ADOX.Catalog物件並新增一個新的資料庫。

    而這只是一個空白的資料庫,你還得再利用 adodb.Command 等方法,及 SQL 指令 CREATE TABLE 等等建立資料表或查詢...

    Private Sub check_dbexist()

    Dim dbname As String

    Dim adoxdb As ADOX.Catalog ' 引用項目 Microsoft ADO Ext. 2.x for DDL and Security

    dbname = App.Path & "\pp.mdb"

    If dbname = vbNullString Then

    Set adoxdb = New ADOX.Catalog

    adoxdb.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbname

    Set adoxdb = Nothing

    End If

    End Sub

  • 1 0 年前

    (1)若是要建 ACCESS 的資料庫,可在 VB6 的增益集->資料庫管理師 ->檔案->新增 裡去新增一 MDB

    (2) 查詢檔案存在否

    filename="C:\mdb\pp.mdb"

    if DIR(filename)="" then msgbox "檔案不存在 !" else msgbox " 存在 !"

    2007-01-19 17:32:20 補充:

    倒斜線被吃掉了, 改一下 : filename="C:\mdb\bpp.mdb"

還有問題?馬上發問,尋求解答。