dgr243

Guten morgen zusammen! Also für Steffi würd ich liebend gern tausende Rechner händisch installieren. Meinetwegen auch für jede einzelne Datei per copy... Aber dabei sein muss sie Kügelsche: Wow sehr nett geworden! Gefällt mir! Werden die Radkästen noch verkleidet? Und wieso sind neben dem Sub noch Boxen? Hörst du im Konzertsaal die Musik von hinten?

Joah sorum hatte ich es auch schon gelesen. Damit bekomm ich aber die Feldnamen, wie sie in der CSV Datei sind. Ich brauche aber diejenigen der Access Tabelle :confused:

Leider nein DBD::ODBC::db prepare failed: [Microsoft][ODBC Microsoft Access Driver] Unzulässige SQL-Anweisung; 'DELETE', 'INSERT', 'SELECT' oder 'UPDATE' erwartet. (SQL-42000)(DBD: st_prepare/SQLPrepare err=-1) at c:\eigene dateien\p erl\progs\odbc2.pl line 25. Wollte eigentlich nur den Statementhandler wie folgt aufrufen: my $sth = $dbh->prepare(DESC temps) or die DBI::errstr; Das doch alles nicht mehr schönen ...

Moin zusammen, gibt es ne Möglichkeit die Feldnamen einer Access Tabelle per ODBC auszulesen? Also in der Art "gib mir Feldnamen from table temperatures" ?

Hmm muss das hier nochmal aufgreifen ... Und zwar bastele ich mir mein SQL Statement mit Perl zusammen. Da ich dieses Perl Script aber für diversere Quelldatentabellen verwenden möchte, kann ich die Feldnamen nicht angeben (bzw. nur mit erhöhtem Aufwand). Deshalb die Frage nochmal: Wie sage ich Access, dass der übergebene Wert ein Autowert ist und Access sich selbst das passende raussuchen soll. Die Umgebung: Access 2000 verfügbar per ODBC Tabellenbeispiel: ID(Autowert), Datum(Text), Uhrzeit(Datum/Uhrzeit), Wert1 Beispielstatement: insert into table values (??, '1.Januar.2004', '10:00', 12,4) An den ragezeichen möchte ich gerne sozusagen nen Platzhalter haben. Versucht hab ich bereit hier NULL zu übergeben -> Geht nicht, weil Primärschlüssel Nen Leerstring (' ') geht nicht, bricht mit Syntaxfehler ab Es muss doch da ne Möglichkeit geben....

Machense maln Foddo wennse ferdich sind Im übrigen gegen Sonnenbrand empfehle ich Abhärtung durch intensive Sonnebäder unter Einhaltung der Höchstbesonnungszeiten unter Berücksichtigung des eigenen Hauttyps

Könntest du da be i mir auch mal? Bah da is man nur nen halbes Stündchen Wasserski laufen und kann sich am nächsten Tag kaum bewegen vor Muskelkater Na und zusätzlich hab ich mir noch den linken Handrücken dabei entfernt, als ich auf ein im Wasser treibendes Stück Holz prallte... sieht sehr witzig aus.. voll geschwollen und ohne Haut drauf.... aber wenigstens blutet es net mehr *freu*

*wuff* Zu Befehl sir

Guten morgen schwesterchen *stürmisch in arm nehm und :e@sy*

Guten morgen zusammen :e@sy halleluja .. Treffen war sehr geil! Wetter war ja einfach traumhaft. Der Acker knapp über 6ha gross und etwas über 1100 Autos da.. sehr viele coole Anregungen mitgenommen und nen kräftigen Kater Auf der Rückfahrt fings dann dermassen an zu hageln, dass ich dachte meine Scheibe platzt. Korngrösse von innen im Auto geschätzte 3cm bis 5cm im Durchmesser :eek: Sichtreduzierung von "unendlich" auf plötzlich 3m... Naja der Spuk war wieder recht schnell vorbei. Die A24 ab Bergedorf voll gesperrt, weil wegen Überflutung und Unfall.... An der Elbe entlang zu meinem Schatz gefahren und durch heissen Asphalt und regen drauf Nebl mit Sichtweiten, dass ich dachte, wenn ich nu das Fenster aufmach, seh ich mein Lenkrad nimmer.... aber alles in allem sehr witzig Ach Hawkilein ich will dich doch nur nen bisserl aufziehen :e@sy Nee is schon klar.... Studis werd ich vermutlich nie verstehen So da ich ja Freitag noch so richtig was geschafft hab, kann ich ja frohen Mutes da weitermachen wo ich aufgehört hab.... naja ab Do. ist ja auch wieder BS ...

Joah hat alles geklappt. Nun hab ich eine Vorlage für die anderen knapp 50 csv Dateien die importiert werden sollen (und na klar alle ein etwas anderes Format haben ) naja wird scho schief gehen. Danke nochmal

Matze: naja ich hab 20 Stunden plus, die ich als Azb eigentlich gar nicht haben darf ... also bin ich jetzt dann mal wech ... schönes we :marine

Ähm ... ja gut muss ich wohl nicht verstehen .... Hab grad beschlossen um 13.00 schon FA zu machen.. Hab eh noch Plus und will dann lieber in ruhe packen und lieber etwas zu früh in bergedorf sein .. also 20 mins noch dann seid ihr mich los

Ahja .... also würdest du wenn du weiterarbeiten könntest lieber ein schlechteres Studienfach wählen? *nich versteh wieso* Edit: Dank des Fi.de Forums mal wieder eine AE Aufgabe gelöst! :marine: *Freu hüpf tanz spring* Mann sowas macht echt gute Laune, wenn man nen Problem löst, an dem man seit Wochen arbeitet :marine: *Freu hüpf tanz spring* /Edit

So mit ein paar Änderungen wegen Syntaxfehlern habe ich folgenden (funktionierenden) code: use DBI; use diagnostics; # Declare variables my $dsn = Access; #DSN im ODBC my @liste; my @eintrag; my $wert; my $sql; my $sql2; # Makes a Datebase Handler my $dbh = DBI->connect("DBI:ODBC:$dsn") or die DBI::errstr; #ODBC Access open(CVSFILE,"c:\\repo\\mappe1.csv") or die "Cannot open source file"; while(<CVSFILE>) { @eintrag = split(/;/,$_); chop($eintrag[$#eintrag]); #Abschliessende Newline am letzten Array element entfernen $sql = ""; my $pos = 0; while (($wert = shift @eintrag)) { $pos++; #Je nach pos (=index des arrays +1) entscheiden ob als string oder zahl geschrieben werden soll $sql .= "'$wert'," if ($pos==1); #Pos 1 als String $sql .= "'$wert'," if ($pos==2); #Pos 2 als String $wert =~ s/,/./ if ($pos != 1 && $pos != 2); #Wenn nicht Pos 1 oder 2 komma durch punkt ersetzen $sql .= "$wert," if ($pos != 1 && $pos != 2); #Alle anderen Positionen als Zahl ohne '' print "\n Werte: $sql"; } chop($sql); $sql = "insert into temps values (" .$sql . ")"; print "\nSQL: $sql \n"; my $sth = $dbh->do($sql) or die $dbh->errstr; } $dbh->disconnect(); close(CVSFILE); Es folgen dann jetzt die Erweiterungen ... Beispielsweise muss ich noch dafür sorgen, dass die erste Zeile der CSV Datei, die die Spaltennamen erhält nicht genutzt wird, da es sonst zu ODBC Fehlern kommt (Datentypen passen nicht...) aber das soltle das kleinere Prob werden.

Wird sofort getestet .. Das Problem mit dem abschliessenden NewLine beim letzten Element des Arrays hab ich auch gelöst.... Gibt ja die "index vom letzten element" variable $#var ... gar nicht dran gedacht .. dann noch n chop($var[$#var]) hinterher und gut ...

Ja aber du hast nen cabrio .. da kocht man nicht zwingend nach dem einsteigen (jedenfalls wenn das dach auf ist ) Studieren am ungünstigst gelegenen Platz oder wie soll man das jetzt verstehen :confused

Ich hab sjetzt entwas anders gelöst .. ohne switch ... Alelrdings hab ich nun 1 neues und ein alter -bishe rnicht entdecktes- problem: 1. An der eingelesenen Zeile aus der CSV Datei hängt noch ein Newline (\n)dran, dass noch raus muss 2. Auch zahlen haben nun ihre ' ' .... use DBI; # Declare variables my $dsn = Access; #DSN im ODBC my @eintrag; my $wert; my $sql; # Makes a Datebase Handler my $dbh = DBI->connect("DBI:ODBC:$dsn") or die DBI::errstr; #ODBC Access open(CVSFILE,"c:\\repo\\mappe1.csv") or die "Cannot open source file"; while(<CVSFILE>) { @eintrag = split(/;/,$_); #hier müsste vom letzten element des arrays (letzter wert) das newline \n entfernt werden mit chop... #wie kriege ich raus welches das letzte element ist? $sql = ""; while (($wert = shift @eintrag)) { $wert =~ s/,/./; $sql .= "'". $wert . "',"; #hiernach haben leider auch zahlen ein '' ..... wie vermeiden? } chop($sql); #Entfernen des letzten , $sql = "insert into temps werts (" .$sql . ")"; print "\nSQL: $sql \n"; my $sth = $dbh->do($sql) or die $dbh->errstr; } $dbh->disconnect(); close(CVSFILE);

*vor kopf klatsch* Ja nee is klar .. ich seppel ... Allerdings kennt er das Modul switch nicht ... und der ppm von activestate gibt das auch net her .. du hast da nicht zufällig ne quelle für?

Opeltreffen Bispingen -> http://www.opelteam-bispingen.de Mit ungefähr 30 Leuten die ich schon kenn. Insbesondere meine Süsse ist auch da *schwärm* Hmm das doof .. da mag ich mein eigenes Büro mit der Klima und dem Blick über Hamburg doch gleich nochmal so gerne .. Dummerweise ist das aber im ersten Stock und der Fahrstuhl quälend langsam .. naja aber wenigstens ist das Auto schön kühl in der Tiefgarage geparkt..... gestern hats mich doch tatsächlich erstmal gefröstelt als ich runterging... naja 16 Grad sind schon recht kühl.....

Da kannte ich dich auch noch nicht Ähm woltle sagen: Sei doch froh .. andere Frauen würden sich freuen *räusper* Ich glaub ich halt dann mal die Klappe...

Will leider nicht .. bin auch der meinung, dass perl "case" nicht kennt, oder? use DBI; # Declare variables my $dsn = Access; #DSN im ODBC my @liste; my @eintrag; my $wert; my $sql; my $sql2; # Makes a Datebase Handler my $dbh = DBI->connect("DBI:ODBC:$dsn") or die DBI::errstr; #ODBC Access open(CVSFILE,"c:\\repo\\mappe1.csv") or die "Cannot open source file"; while(<CVSFILE>) { @eintrag = split(/;/,$_); my $wert; my $sql = ""; my $pos = 0; while (($wert = shift @eintrag)) { switch (++$pos) { case 1 {$sql .= "'$wert'";} case 2 {$sql .= "'$wert'";} else {$wert =~ s/,/./;$sql .= $wert;} } if ($eintrag > 0) { $sql .= ", "; } } $sql = "insert into temps values (" .$sql . ")"; print "\nSQL: $sql \n"; sleep(3); #my $sth = $dbh->do($sql) or die $dbh->errstr; } $dbh->disconnect(); close(CVSFILE); Fehlermeldung: Sorry, aber ich hab echt n Knoten im Kopf im Moment... aber vielen Dank für deine Hilfe!

Mixki: Hmm mach doch beides ... erst mittags hinlegen, dann pseudo nach mails gucken und dann nach Hause also ich tendiere bei den praktikablen lösunge nach wie vor fürs früher gehen ... wobei ich ja ohnehin noch nach bispingen (mit umweg über bergedorf und rammelsloh die gruppenmitglieder in die wagenkolonne einreihen) will .. und da um 16.00 treffen in bergedorf ist (fahrtdauer ca.: 1h und ich muss noch packen) bin ich allerspätestens um 14.30 hier raus ... Hawki: dezent == nahezu nicht vorhanden? *duck*

Ich würd früher gehen, denn das kannste das Wetter insgesamt gesehen länger geniessen Hawki: naja um in ne 31 zu passen braucht man ja auch erstmal nen Hintern. Oder du musst die so Widerhaken an die Beckenknochen schrauben BTW: Perl mag mich heute nicht ....

Arghs .. nu hab ich mir da aber nen anderes Problem eingehandelt: Die zusammengebastelte SQL Anweisung sieht dann so aus: $sql = "insert into temps values ('String','String2','x,y',[...]) 'x,y' geht natürlich nicht, weil das insert into Statement bei Zahlen die in eine DB geschubst werden Dezimalzahlen in der Form "x.y" also mit nem Punkt als dezimalzeichen und ohne Anführungszeichen erwartet. Nu müsste ich entweder die Schleife ändern oder hinterher die fertige SQL Anweisung.... was ist leichter und wie gehts? Mann mann und das am Freitag .. da kann ich doch eh nicht denken ... Der Vollständigkeit halber: CSV Datei beinhaltet folgendes Format: "Datum;Uhrzeit;Dezimal1;Dezimal2;Dezimal3;Dezimal4;Dezimal5;Dezimal6;Dezimal7;Dezimal8" Hierbei sind alle " und ; genau wie oben geschrieben in der CSV Datei enthalten. Die Tabelle in die hinein geschubst wird erwartet - Datum als String (also in ' ') - Uhrzeit als Stzring (also in ' ') - Dezimal[1-8] als Double (also mit . und ohne ' ') Und hier das Script wie es derzeit ausschaut: use DBI; use diagnostics; # Declare variables my $dsn = Access; #DSN im ODBC my @liste; my @eintrag; my $value; my $sql; my $sql2; # Makes a Datebase Handler my $dbh = DBI->connect("DBI:ODBC:$dsn") or die DBI::errstr; #ODBC Access open(CVSFILE,"c:\\repo\\mappe1.csv") or die "Cannot open source file"; while(<CVSFILE>) { @eintrag = split(/;/,$_); my $value; my $sql = ""; while (($value = shift @eintrag)) { $sql .= "'$value'"; if ($eintrag > 0) { $sql .= ", "; } } $sql .= "insert into temps values (" .$sql . ")"; print "\nSQL: $sql \n"; my $sth = $dbh->do($sql) or die $dbh->errstr; } $dbh->disconnect(); close(CVSFILE); Weiss noch wer Rat ?