解決済みのQ＆A

Access2010からODBCを使用した、MySQLとの接続後のテーブル更新のVBA（ADO）につい...

Access2010からODBCを使用した、MySQLとの接続後のテーブル更新のVBA（ADO）について

初めまして。よろしくお願い致します。

Access2010を使用して賃貸借状況を管理するシステムを作成しており、VBAをDAOで作成してきました。
しかし、実環境で動かす際にAccessをクライアントとして使い、MySQL内のテーブルへODBC接続（リンク）して動かす必要が出てきてしまい、今までAccess内だけで済むDAOでのVBAコードでしかシステムを作成したことがなく、MySQLをサーバとして使う場合、当然ADOへ移行する必要が出て来ると思うのですが、違いといいますか、どこをどの様に換えたら良いのかが全く分かりません。

Access関連の書籍等でも調べては見たのですが、DAOを主に取り上げられておりイマイチ分かりませんでした。

以下のVBAコードの内容をADOへ変え、MySQL上のテーブルへデータを追加させるにはどう変えて行ったら良いのでしょうか？

コードが文字数をオーバーするので画像で添付しました。確認お願い致します。

やりたい動きとしては、フォーム上に30程度のテキストボックスを設け、それぞれ顧客情報や契約内容を入力させ、入力が完了したら「登録」ボタンを押させる→金額明細のテーブルへ金額を回数分レコード追加させる。それと同時にフォームのソーステーブルへ年数や月数、回数等の他のテキストボックスをソースとした部分をフィールドに追加する。

私自身、あまりAccessにまだ慣れていない部分があるので文章などの例えがわかり辛いかも知れません。そういうった部分があればご指摘ください。

よろしくお願い致します。

補足: 添付画像が見れなさそうですので、アップローダに上げました。

http://www1.axfc.net/uploader/Sc/so/252046.pdf

pass：access

お手数ですがこちらにてご確認下さい

投稿画像

違反報告

質問日時：

2011/7/5 11:38:23
解決日時：

2011/7/8 15:28:52
回答数：

2
お礼：

知恵コイン

50枚
閲覧数：

2,058
ソーシャルブックマークへ投稿：

Yahoo!ブックマークへ投稿

はてなブックマークへ投稿

（ソーシャルブックマークとは）

ベストアンサーに選ばれた回答

pazhu_pazhuさん

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connectionString As String
Dim strSQL as String
Dim i as Integer
'接続文字列
connectionString = "Driver={MySQL ODBC 5.1 DRIVER};" _
& " SERVER=" & サーバーアドレス & ";" _
& " DATABASE=" & データベース名 & ";" _
& " USER=" & ユーザーＩＤ & ";" _
& " PASSWORD=" & パスワード & ";"
'ADODB.Connection生成
con = New ADODB.Connection
con.Open(connectionString)
For i = 1 To Me!txt回数
strSQL = "INSERT INTO [テーブル名] (フィールド名A,フィールド名B....) VALUES (フィールドの順番で格納するデータ)"
con.Execute(strSQL)
Next i
con.Close()
rs = Nothing
con = Nothing

SQL文はご自身で組み立ててください。
あと、ＰＤＦの最後のSQL文（INSERT）は実行しているのですか？
実行しているのならば
con.Close()
rs = Nothing
con = Nothing
の前にSQL文をセットしてcon.Execute(strSQL)を実行してください。

※Driver=のバージョンはそちらの環境にあわせてください。