エクセルからMySQL

すみません、エクセルからMySQLのテーブル作成をしたいのですが、うまくいきません。

---------------------------------------------------------
Sub aaa()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim cnn As New ADODB.Connection

Set cat = New ADOX.Catalog

cat.ActiveConnection = "provider = MSDASQL.1;data source=test;"
cnn.Open "Provider=MSDASQL.1;Data Source=test;"

Set tbl = New ADOX.Table

tbl.Name = "aaa"

Set tbl.ParentCatalog = cat

With tbl
.Columns.Append "ID", 4
.Columns.Append "名前", 4
End With

End Sub
-----------------------------------------------------------
エクセルからACCESSへの接続の参考ホームページを見ながらやっているので、MySQLの場合これであっているのか分からないです。実行してもエラーがでないのですが、確認してみるとテーブルが作成されていないです。どなたか分かる方教えてください。お願いします。


上のコードは、MySQLの【test】というデータベースに【aaa】というテーブルを作成するというつもりで書いているのですが、間違っていますでしょうか？

No.1 ベストアンサー 回答者： rollback 回答日時： 2007/03/14 23:46

テーブルを定義する際には

create tableの構文が必要です。

例
　mySQL = "CREATE TABLE てーぶる名 " & _
　　 "(なになに１ NUMBER ,なになに２ CHAR, なになに３ CHAR);"

この辺を組み合わせてみてください。

この回答へのお礼

アリガトーゴザイマスッ！！！！！
助かりました。さすが！感謝感謝！！

お礼日時：2007/03/14 23:58