2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

これができた奴に100万やる

1 :JJ:01/10/11 00:51 ID:jN6jc0jA
VB、ADOでMdbへ接続し、SQLのInsert句を使ってCSVファイルを
Mdbのテーブルへインポートして見せよ。
(CSVはヘッダーがついてないもの)

と、とあるところでほんとに100万かけてやってた。

これはかなり難しいぞ〜
なんたって、情報がないからなぁ。
俺もわかるまで半年かかった。
ちなみに、100万もらった人の写真も公開してた。

2 :JJ:01/10/11 00:53 ID:jN6jc0jA
あ、ADOでなくても、SQLが発行できるミドルウェアなら
何でもOKだった。
俺がADOでやっただけだった。

3 :名無しさん@お腹いっぱい。:01/10/11 05:48 ID:???
こんな糞みないなのに100万?
お前ダマされてるよ
----------------- 終了 -----------------

4 :名無しさん@お腹いっぱい。:01/10/11 11:33 ID:???
しね

5 :名無しさん@お腹いっぱい。:01/10/11 12:11 ID:???
>>これはかなり難しいぞ〜

ハァ?どこらへんが?

6 :名無しさん@お腹いっぱい。:01/10/11 19:09 ID:QvTqHO8M
十分でできる。

7 :名無しさん@お腹いっぱい。:01/10/11 20:52 ID:2PEgL8TQ
口だけの連中ばっかだな。
じゃあ、やり方を説明して見せろ。
ソースみせないで言いから。

8 :名無しさん@お腹いっぱい。:01/10/11 21:24 ID:???
>3
1は騙してる方だろ。馬鹿を食い物にする良い生き方じゃないか。見習え。

9 :名無しさん@お腹いっぱい。:01/10/11 21:45 ID:B0NOpZgU
高卒PGはこれだからな

10 :名無しさん@お腹いっぱい。:01/10/12 01:54 ID:dJxj4yZ6
ヘボプログラマには丁度良い課題かもしれないが、職業プログラマだったら普通に解くぞそれ...
っつーかヒマしてる新入社員にやらせる課題並。

#!perl
use DBI;my $mdb=shift or u();my $t=shift||q{unknown};my$c=
shift||10;my$dbh=DBI->connect(
qq{dbi:ODBC:driver=Microsoft Access Driver (*.mdb); dbq=$mdb});
$dbh->{RaiseError}=1;eval{ $dbh->do(qq{ SELECT * FROM $t })};do
{$dbh->do(sprintf q{CREATE TABLE %s (%s)},$t,join(q{,},map{
qq{C$_ TEXT}}(1..$c)))}if$@;my $ins=$dbh->prepare(sprintf q{
INSERT INTO %s VALUES (%s)},$t,join(q{,},map{q{?}}(1..$c)));
while(<>){my @csv=s_csv($_);$#csv=$c-1;$ins->execute(@csv);}sub
s_csv{s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;map{/^\"(.*)\"$/ ? scalar(
$_ = $1,s/\"\"/\"/g,$_) : $_}(/("[^"]*(?:""[^"]*)*"|[^,]*),/g)}
sub u {die q{Usage: script MDB_PATH [TABLE_NAME [COLUMN_WIDTH]]}}
__END__

使い方は自分で考えるべし。

11 :名無しさん@お腹いっぱい。:01/10/14 22:42 ID:???
1は宿題をやってもらいたいだけだろ

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)