ACCESSのデータをmysqlに自動移行するプログラムをVBで作成したくご協力いただければと思います。

Question

ACCESSのテーブルデータをmysqlに自動移行するプログラムをVB.netで作成したいと思っております。

ACCESSとmysqlに同じテーブルを用意して、コピーできるようなことがしたいです。

データ件数と種類が多いので出来れば高速で動かればと思います。

環境の制約から
ACCESS VBAを使うことができず、
VB.netを用いて
ACCEESSテーブルデータを取得しmysqlにinsert？などを行いたいと思っております。

よろしければご教授いただけませんでしょうか？

「ねっとなどを検索して以下まではつくってみましたが、mysqlにデータがコピーできません」

    'ACCESSデータ取得
     Dim dAdp As OleDb.OleDbDataAdapter
    ' '''Dim dSet As DataSet = New DataSet("t_access_test_table")
    Dim dSet As DataSet = New DataSet
    Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" _
                        & "Data Source=C:\testdata\data.accdb;")

    
    dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM access_test_data", cn)
    ' '''dAdp.Fill(dSet, "t_access_test_table")
    dAdp.Fill(dSet)
    
    'mysqlコピー？？？

    Dim cnn As New MySqlConnection("server=127.0.0.1;user id=test1;password=test1;database=test;SSL MODE=NONE")
    Dim mysql_table As String = "mysql_test_table"
    Dim cmdSelect As MySqlCommand = New MySqlCommand("Select * from `" + mysql_table + "`")
    cmdSelect.Connection = cnn
    MsgBox("3")
    Dim ad As New MySqlDataAdapter(cmdSelect)
    Dim cmdBuilder As New MySqlCommandBuilder(ad)
    Dim cmd As MySqlCommand = cmdBuilder.GetInsertCommand()

    ad.InsertCommand = cmd
    ad.Update(dSet)


    MsgBox("終了")

Comments

[YAmaGNZ]

何が分からないのですか？

[ild161]

申し訳ありません、言葉足らずでした。　ACCESSのデータをdatasetに入れるところまではできましたがそれをｍｙｓｑｌにコピーできずに困っております。

Answer 1

自前でツールを作る前に、MySQLのGUIツールを使いAccessのデータを簡単にMySQLにインポートする方法 などを試してみましたか？

Comments

[ild161]

はい、当初はツールを使おうとしまたが、制約上使用できないためのVBとなります。

[Orlofsky]

制約とは？掲示板を読んでいる人が理解できるように書いてください。

>SELECT * FROM access_test_data
これ以外のテーブルはどうするの？

次のやり方の方が現実的では？
AccessからMySQLへのデータ移行
https://www.atage.jp/archives/2220/

[ild161]

言葉足らずで申しわけないです。　共用PCで他のアプリを入れることができない＋OFFICEは入れれない
（入っていない）ためです。　ACCESS VBAでするほうが楽なので本来ならそうしたいのですが、、、、

Answer 2

コードを見る限り、まだまだという感じです。
accessとmysqlに接続して、accessのレコードセットをループしながら、mysqlにinsert。
それをテーブルの数だけ行う。
結構道のり長そうじゃありませんか？

同じレイアウトということであれば、accessのデータをcsvで出力して、mysqlでloadfileで取り込むのが、高速だし現状の状況でVB.NETでinsertまで行うよりは敷居が低いんじゃないかと思います。

VB.NETからAccessのCSVインポート機能を呼び出すクラス
(.Net).NetアプリケーションからAccess(MDB)のテーブルをExcelファイルにエクスポート

13.2.6 LOAD DATA INFILE 構文

Comments

[ild161]

ありがとうございます、データセットからデータ読み取りiまとめてnsertするプログラムにしました。
LOAD DATA INFILE はしらなかったので勉強させてもらいます。

[ild161]

①VBからaccessのデータをTransferTextでcsvで出力してloadfileで取り込む
②VBからACCESS操作してODBCでmysqlに出力
③VBからACCESSをデータセットで取り出してmysqlにマルチinsert
④VbからACCESSを配列/リストで取り出してmysqlにマルチinsert　

①～④全部作ってみましたが、私のケースでは①が一番よかったです（②は早かったのですが互換からエラーになるケースもありました。）ありがとうございます、勉強になりました。

[sazi]

CSVで取り込む仕組みにしておくと、相手が変わっても取り込み用のCSVの整形にのみ注力できるので、拡張性もあると思います。
取り込んでから整形するか取り込み前に整形するかについては、取り込み後のほうが色々メリットがあると思っています。例えば他のデータを利用した処理も簡単になりますし。