<使用環境>
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点ほど質問があります。
一つ目は、上記ではテーブルを一つ作成していますが、続けて二つ目のテーブルを作成する方法がわかりません。
二つ目は、上記の方法以外にデータベースをウィンドウズフォーム上から作成する方法を教えてください。
よろしくお願いします。