nicht angemeldet
Oracle-Daten in csv-File
Hi Leute!
Mit folgendem Script importiere ich Oracle -Daten in ein csv-File
Problem: das Ergebnis sollte so 582;"02-JAN-2002" aussehen, aber mit meinen Script erhalte ich dieses Ergebnis: "582;02-JAN-2002"
Wie bekomme ich das 1.Hochkomma weg und vor das Datum??? Ich habe auch schon versucht sie wegzuschneiden(siehe Script) funkt aber auch nicht!
Script:Option Explicit
Public Cn As New adodb.Connection
Public Rs As New adodb.Recordset
Public Sql As String
Sub Main() 'Betriebsnummern für AMA-Tierdatenanforderung
Dim fno As Integer, i As Integer, hilfe As Integer, ausgabe As String
ausgabe = ""
Cn.CursorLocation = adUseClient
Cn.Open "PROVIDER=MSDASQL;dsn=i3prod;uid=rz;pwd=hgedv;"
fno = FreeFile
Open "C:\MyFile.csv" For Output As #fno
Sql = "SELECT to_char(betrnr) betrnr,to_char(stichtag,'DD-MON-YYYY') stichtag FROM ama.ama_betriebe_tier_2002"
Rs.Open Sql, Cn
'eigentliche Prozedur
Do While Not Rs.EOF
ausgabe = Rs!betrnr + ";" + Rs!stichtag
hilfe = Len(ausgabe)
ausgabe = Mid(ausgabe, 1, hilfe)
Write #fno, ausgabe
Rs.MoveNext
Loop
Close #fno
-
hi
du hast vor ca 1 stunde das gleiche schon mal gepostet, wie wärs wenn du dir mal langsam die FAQ durchlesen würdest.
http://forum.de.selfhtml.org/faq/
ole
(8-)> -
Hi Franz,
ich verstehe nicht so ganz Dein Problem. Wo kommen die "" denn her, denn du setzt Dir doch Deinen string selbst zusammen mit
ausgabe = Rs!betrnr + ";" + Rs!stichtag?Was kommt heraus, wenn Du Dir für einen Datensatz Rs!betrnr und Rs!stichtag mal getrennt ausgeben läßt? Die "" um Ausgabe müssen irgendwo anders her kommen, vermute ich.
Was Du mit
ausgabe = Mid(ausgabe, 1, hilfe)
bezweckst ist mir auch nicht klar. Wenn schon dann
ausgabe = Mid(ausgabe, 2, hilfe). Aber dann musst Du die " nach dem Semikolon noch setzen.
Gruß
Susanne-
Ich weiß eben nicht von wo die "" herkommen!
Wenn ich das csv-File öffne stehen sie einfach drinnen!!
mit len und mid hätte ich gedacht ich könnte sie ausschneiden
-
mit len und mid hätte ich gedacht ich könnte sie ausschneiden
Ja, kannst Du auch. Aber eben nur, wenn sie zu diesem Zeitpunkt schon da sind (was ich nicht glaube). Deshalb lass Dir mal die Variablen zwischendurch ausgeben. (und wie gesagt bei mid(Variable,Anfang, Ende) eine 2 für Anfang, keine 1!!!)
Mit CVS kenne ich mich nicht aus. könnte es sein, dass CVS die "" setzt?
-
Hi!
Die "" stehen nur in der Datei wenn ich mir die Werte mit eine
MSG-Box ansehe sind sie nicht da-
Hi Franz,
Du könntest das ganze vielleicht umgehen, indem Du die Werte einzeln in die Datei einliest:
Write #fno, Rs!betrnr
Write #fno, ";"
Write #fno, Rs!stichtag
Allerdings befürchte ich, dass er dann überall "" setzt. Wär aber zumindestens interessant, was dabei rauskommt.Hi!
Die "" stehen nur in der Datei wenn ich mir die Werte mit eine
MSG-Box ansehe sind sie nicht da
-
-
-
-