川合孝典です。

----- Original Message -----
From: "Kengo Jinno" <kengo@xxxxxxxxxx>
To: <ml@xxxxxxxxxx>
Sent: Thursday, October 11, 2001 11:20 AM
Subject: [mysql 04456] Re: s-jis での loaddata .local.infile について質問
(改行コード）


> 神野です。
（中略）
> 方法１）
> CSVを元にして insert into のSQL文を生成するawkスクリプトを
> 作成し、それにかけてできたSQL文のファイルをmysqlに食わせる。
> ＃awkでなくてもperlでもrubyでも。
>
> 方法２）
> MyODBCを使って、AccessからMyODBC経由でmysqlに突っ込む。
> ＃やったことはないのですが・・・
方法３）
両方につなげられる方法を使って、一方から取り出し、そのまま
もう一方に挿入する。

以下のものはPerl DBIによる例です。
MySQLがLinux上にある関係もあって、EUCに変換したりは
していますが、基本的にはこんな感じかなと。

[例]
use strict;
use DBI;
use Jcode;
my $DSN =
  'driver=Microsoft Access Driver (*.mdb);dbq=c:\\user\\ac2k.mdb';
eval {
    my $hDbA = DBI->connect("dbi:ODBC:$DSN", '','',
                {RaiseError=>1, AutoCommit=>1, PrintError=>0})
        or die "CONNECT ERROR (Access) $DBI::errstr";
    my $hDbM = DBI->connect("dbi:mysql:host=lins;database=test",
                'scott','tiger',
                {RaiseError=>1, AutoCommit=>1, PrintError=>0})
        or die "CONNECT ERROR (mysql)  $DBI::errstr";
    my $hStA = $hDbA->prepare(q/SELECT [no], name from TEST_TBL/);
    $hStA->execute();
    my $hStM = $hDbM->prepare(
            q/INSERT INTO accs(no,name)  VALUES(?, ?)/);
    my $raRes;
    while($raRes=$hStA->fetchrow_arrayref()) {
        $hStM->execute(map {jcode($_, 'sjis')->euc} @$raRes);
    }
    $hStA->finish();
    $hDbM->disconnect();
    $hDbA->disconnect();
};
print "Error:$@\n" if($@);

===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr@xxxxxxxxxx GCD00051@xxxxxxxxxx
   http://member.nifty.ne.jp/hippo2000
   http://www.hippo2000.net/
===================================================