Perlコーディング初心者質問スレ Part 58at PHPPerlコーディング初心者質問スレ Part 58 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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"; は普通に通ります。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch