OpenOffice.info

Verfasst: **Di, 10.07.2007 09:24**

Hallo,

ich muss in eine Datenbank eine Textdatei als Tabelle importieren. Doch wie schön es auch mit Excel diese Sache schnell zu lösen war, sieht das mit Base ganz anders aus.

1. muss ich die Daten in der Textdatei auslesen
2. muss ich die in der ersten Zeile stehenden Daten als Überrschrift benutzen, die mit einem Tabstop getrennt sind
3. muss ich dann die daten die ab der 2. Zeile stehen wieder auslesen und diese dann in die neue Tabelle eintragen.

Es hört sich leicht an, aber ich sitze seit 24 Stunden dran und hab erst nur geschaft die Textdatei zu öffnen

. Also wie mans auch lesen kann, bin ich leider kein Experte in solchen Bereichen, aber es sind alle Personen gefragt, die einen Lösungsansatz hätten.

Kann mir Bitte jemand ein Beispiel nennen? Wäre echt dankbar

Gruß

ich

Verfasst: **Di, 10.07.2007 11:40**

Hallo,

ich hab schonmal so ein Code entwickelt, aber funktionieren tut er nicht, vllt habt ihr ja eine Idee

Code: Alles auswählen

Sub Main
Dim DatabaseContext as Object, oDVerb as Object, mFileProperties(1) As New com.sun.star.beans.PropertyValue, sTDUrl As String
Dim FileNo As Integer, CurrentLine As String, File As String, Msg as String

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
oDatenquelle = DatabaseContext.getByName("test")
oDVerb = oDatenquelle.getConnection("","")

'"CREATE TABLE ""a""(""as"" ""char(50)"", ""as"" ""char(50)"")"

Filename = "file:///C:\Programme\CrossConsult\CrossLine\trdoc\tmp\MHABR\abrpos.txt"
oDesktop = createUNOService("com.sun.star.frame.Desktop")
'oDocument = oDesktop.loadComponentFromURL(sUrl, _hidden, 0, mFileProperties())

FileNo = Freefile
Open Filename For Input As FileNo

Do While not eof(FileNo) 
	CurrentLine
	If CurrentLine <> " " then 
		Msg = Msg & CurrentLine & Chr(13)
	end if 
Loop
#FileNo
Msgbox Msg

End Sub

Verfasst: **Di, 10.07.2007 12:20**

Ich kann jetzt eine Textdatei auslesen, hier der Code, die sich hierfür interessieren:

Code: Alles auswählen

Sub Main
Dim DatabaseContext as Object, oDVerb as Object, mFileProperties(1) As New com.sun.star.beans.PropertyValue, sTDUrl As String
Dim FileNo As Integer, CurrentLine As String, File As String, Msg as String

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
oDatenquelle = DatabaseContext.getByName("test")
oDVerb = oDatenquelle.getConnection("","")

'"CREATE TABLE ""a""(""as"" ""char(50)"", ""as"" ""char(50)"")"

Filename = "C:\Programme\CrossConsult\CrossLine\trdoc\tmp\MHABR\abrpos.txt"
oDesktop = createUNOService("com.sun.star.frame.Desktop")
'oDocument = oDesktop.loadComponentFromURL(Filename, _hidden, 0, mFileProperties())

FileNo = Freefile
Open Filename For Input As #FileNo

Do While not eof(FileNo) Line Input #FileNo, CurrentLine
	If CurrentLine <> "" then 
		Msg = Msg & CurrentLine & Chr(13)
	end if 
Loop
close #FileNo
Msgbox Msg

End Sub

Verfasst: **Di, 10.07.2007 12:37**

Hallo,

was ich allerdings wieder nicht in die Reihen bekomme ist, dass ich nicht schaffe mit Makro in einer Datenbank eine neue Tabelle zu erschaffen. Wäre nett, wenn eine schnelle Antwort kommen würde.

OpenOffice.info

Suche Makro oder SQL CODE

Suche Makro oder SQL CODE

Re: Suche Makro oder SQL CODE

Re: Suche Makro oder SQL CODE

Re: Suche Makro oder SQL CODE