Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
77:63 08/08/21 08:04:49 >>67 ";"は当たり障りある部分を消すときに一緒に消えたのでしょう。 一応、文字コードが変な様ですが、通ることは通るようになりました。 項目指定にリテラル数字／リテラル文字列を指定すると変なままですけど。 my $OraSession = Win32::OLE->new ("OracleInProcServer.XOraSession"); my $OraDatabase = $OraSession->DBOpenDatabase("orcl", "scott/tiger", 0); my $oDyna = $OraDatabase->CreateDynaset("SELECT * FROM ****", 0); my %FN; my $i; for ($i = 0; $i < $oDyna->Fields->Count ; $i++){ $FN{$i} = $oDyna->FieldName($i); } while(!($oDyna->{EOF})) { for ($i = 0; $i < $oDyna->Fields->Count ; $i++){ print $oDyna->Fields($FN{$i})->Value, "\n"; } print "\n"; $oDyna->MoveNext; } 78:nobodyさん 08/08/21 09:39:20 VetJG0Vx $OraDatabase->CreateDynasetが転けていただけでした。 print $OraDynaset->Fields('ABCD')->Value."\n"; は普通に通ります。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5382日前に更新/40 KB
担当:undef