ODBCでの接続方法

質問

1050YEN様、ご回答ありがとうございました。
実は「CreateWorkSpace」はクリアしたのですが、次の「OpenConnection」でエラーになってしまいました。
Dim datodbc As New DAO.DBEngine
Dim wrkodbc As DAO.Workspace
Dim conPubs As DAO.Connection
Dim qdfTemp As DAO.QueryDef
wrkodbc = datodbc.CreateWorkspace("", "Admin", "", "dbuserODBC")
conPubs = wrkodbc.OpenConnection("", , , "ODBC;DSN=towaDS;")
どなたか、ご存知の方がいらっしゃいましたら教えてください。
よろしくお願いいたします。

回答No.1

1050 円（@1050YEN） · ベストアンサー

>実は「CreateWorkSpace」はクリアしたのですが、
クリアした問題は、締め切りましょうね。
http://okwave.jp/qa2610481.html

>次の「OpenConnection」でエラー

失礼しました。
>wrkodbc = datodbc.CreateWorkspace("", "Admin", "", "dbuserODBC")
これの最後の引数を変更です
wrkodbc = datodbc.CreateWorkspace("", "Admin", "", DAO.WorkspaceTypeEnum.dbUseODBC)

あとは管理ツールで「towaDS」をODBCに登録してあれば、行くと思います。

お礼

1050YEN様、ご回答いただきありがとうございました。助かりました。
図々しくて大変申し訳ありませんが、できましたらもうひとつ教えてください。本当にすみません。
Dim datodbc As New DAO.DBEngine
Dim wrkodbc As DAO.Workspace
Dim conPubs As DAO.Connection
Dim qdfTemp As DAO.QueryDef
wrkodbc = datodbc.CreateWorkspace("", "Admin", "", DAO.WorkspaceTypeEnum.dbUseODBC)
conPubs = wrkodbc.OpenConnection("", , , "ODBC;DSN=towaDS;")
qdfTemp = conPubs.CreateQueryDef()
qdfTemp.SQL = "INSERT nipou VALUES(担当者コード.text," _
& "cmb年.text,cmb月.text,cmb日.text," _
& "cmb開始時1.text,cmb開始分1.text,cmb終了時1.text,cmb終了分1.text,件名番号1.text,稼動コード1.text," _
& "cmb開始時2.text,cmb開始分2.text,cmb終了時2.text,cmb終了分2.text,件名番号2.text,稼動コード2.text," _
& "cmb開始時3.text,cmb開始分3.text,cmb終了時3.text,cmb終了分3.text,件名番号3.text,稼動コード3.text," _
& "cmb開始時4.text,cmb開始分4.text,cmb終了時4.text,cmb終了分4.text,件名番号4.text,稼動コード4.text," _
& "cmb開始時5.text,cmb開始分5.text,cmb終了時5.text,cmb終了分5.text,件名番号5.text,稼動コード5.text," _
& "cmb開始時6.text,cmb開始分6.text,cmb終了時6.text,cmb終了分6.text,件名番号6.text,稼動コード6.text," _
& "cmb開始時7.text,cmb開始分7.text,cmb終了時7.text,cmb終了分7.text,件名番号7.text,稼動コード7.text," _
& "cmb開始時8.text,cmb開始分8.text,cmb終了時8.text,cmb終了分8.text,件名番号8.text,稼動コード8.text," _
& "作業報告.text);"
qdfTemp.Execute()
上記を実行した時点で「ODBC-呼び出しに失敗しました」のエラーになってしまいました。towaDSはシステムDSNに登録してあります（MySQLドライバーです。MySQLのサービスは開始の状態です）
よろしくお願いいたします。