Hiho,

ich sitze jetzt schon fast zwei Tage an diesem Fehler, aber mir erschließt sich nicht, woher er kommt. Code ist folgender:

$dType = "Microsoft Excel Driver (*.xls)";
$dbn = $ARGV[0];
$dbdesc = "bau_at";
$dbloc = $ARGV[0];
$dir = "C:\\Cygwin\\home\\AT42840\\";
%drivers = Win32::ODBC::Drivers();


if(Win32::ODBC::ConfigDSN(ODBC_ADD_DSN,$dType,("DSN=$dbn",$dbdesc,"DBQ=$dir\\$dbloc","DEFAULTDIR=$dir","UID=","PWD="))){
    print "Konfiguration des DSN $dbn erfolgreich!\n";
}
else
{
    print "error!";
    Win32::ODBC::DumpError();
}


$db = new Win32::ODBC("DSN=$dbn");
if($db == undef){    
  print "Fehler beim Verbinden mit $dbn\n";
  print "Fehler: ". Win32::ODBC::Error() ."\n";
  exit;
}
$query = ("SELECT * FROM index");
if($db->Sql($query))
{


    print "Echo!!!!!";
    $rows = 0;
    $row = $db->FetchRow() or die qq(Fetch Error: ), $db->Error(), qq(\n);
    print $row;
    while($db->FetchRow() and $rows < 10)
    {    
        print "Echo!!";
        print $db->FieldNames();    
        undef %Data;
        %Data = $db->DataHash();
        print "$Data\n";
        $rows++;
    }
}

Die Idee dahinter ist, ich lese ein Excel Workbook ein und möchte auf diese einfach mal eine sql- abfrage starten. Allerdings bekomm ich beim starten folgenden output

Konfiguration des DSN BAU_AT_10_200606.xls erfolgreich!
Fetch Error: 911[Microsoft][ODBC Driver Manager] Function sequence error10
Echo!!!!!

Ich habe absolut keinen Dunst, was da sein könnte. Google schweigt sich auch aus dazu. Ich wäre sehr froh, wenn ein Perl-Guru sich das mal ansehen könnte und mir meinen Fehler zeigen. Es ist wahrscheinlich eh trivial, aber ich sehs einfach nicht worand das liegt.

danke!

lg
Philipp

Ich hab das Problem!

$query = "SELECT * FROM index";

war der übeltäter.

sollte heißen

$query = ('SELECT * FROM [Index$]');

Für künftige Generationen Der Fehler war, dass ich FetchRows() aufgerufen habe, obwohl die query in den Sand gegangen ist, was ich mit

if($db->Sql($query))

abfangen hätte sollen. dummerweise liefert die Sql() Methode undef zurück im Falle eines Erfolgs, deswegen muss man

if([B]![/B]$db->Sql($query))

schreiben.

Aber ich hab gleich eine weitere Frage:

Warum schluckt der Arsch mir die erste Zeile meiner Excel Datei?

alles andere wird korrekt angegeben...

any hints welcome

lg
Philipp

Auch das ist gelöst...

Die erste Zeilt wird als FieldNames gehandelt... eigentlich klar.

also, in diesem sinne, wenn irgendwer diese Probleme hat: hier sind die lösungen :thumb:

lg
Philipp