none
データベースをフォーム上のボタン一つで、新規作成する方法 RRS feed

  • 質問

  •  

    <使用環境>

    windowsXP

    VB2005 EE

     

    現在、データベースを任意に新規作成する方法を探しております。一応、理解できているコードは下記のとおりです。

    Dim cat As Object

     

    cat = CreateObject("ADOX.Catalog")

    cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & AddressTextBox.Text & "\" &  

      YearComboBox.Text & "\" & TextBox1.Text & ".mdb")

    Dim strTable As String

    Dim tbl As Object


       tbl = CreateObject("ADOX.TABLE")
       strTable = "meisai_master"
       tbl.Name = strTable
       cat.Tables.Append(tbl)
        With cat.Tables(strTable).Columns
                 .Append("商品コード")
                 .Append("商品名")
                 .Append("説明")
                 .Append("単価")
        End With

     

    このようにADOXを利用すれば簡単にデータベースを作成できるのですが、ここで2点ほど質問があります。

    一つ目は、上記ではテーブルを一つ作成していますが、続けて二つ目のテーブルを作成する方法がわかりません。

    二つ目は、上記の方法以外にデータベースをウィンドウズフォーム上から作成する方法を教えてください。

     

    よろしくお願いします。

    2007年5月8日 10:42

回答

  •  みやり さんからの引用
    一つ目は、上記ではテーブルを一つ作成していますが、続けて二つ目のテーブルを作成する方法がわかりません。

    cat.Tables.Append(tbl) の部分は理解されていますか?

    二つ目は、上記の方法以外にデータベースをウィンドウズフォーム上から作成する方法を教えてください。

    mdb であれば、OleDb とか ADO とか DAO とか Office PIA などいろいろありますが、OleDb で良いではないでしょうか。
    2007年5月8日 11:46