Suche Makro oder SQL CODE

[nusta88]

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

[nusta88]

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

[nusta88]

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

[nusta88]

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.