Sziasztok!
Egy tábla adott mezőinek tartamát szeretném txt file-ba kiírni!
Az access-be hasonló kérdésre ezt a javaslatot találtam:
Dim db As Database
Dim tdf As TableDef
Set db = DBEngine(0)(0)
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, "", tdf.Name, "C:\\\\" & tdf.Name & ".txt", False, ""
End If
Next tdf
Az OOo Basic-ben addig a hibaüzenetig jutottam, hogy objektumváltozót kellene meghatározni
de a set utasítás leírásánál szűkszavu példát találok:
Dim oDoc As Object
Set oDoc = objektum (itt az objekum nevére nem bírtam rájönni, már próbáltam hivatkozni a lekérdező tábla nevére valamint az űlapnavigátorban található megnevezésekre de mindig ugyanaz a hibaüzenet jön vissza és ezen nem tudok túljutni!?!?!?!?!)
Az objektum nevét honnan lehet megállípítani? Feltéve ha ez lenne a megoldás iránya
És ezután következne az adott mező hivatozása amit a txt-be szeretnék kiírni.
Segítségeteket előre is köszönöm
Üdv:
Pihix
Objektumváltozó adatának kiírása txt-be
- g_123_wert
- Önkéntesek
- Hozzászólások: 71
- Csatlakozott: 2008. február 29., péntek 21:58
Re: Objektumváltozó adatának kiírása txt-be
Szia!
Én azt látom, hogy csak lekérdezésen keresztül megy a dolog.
A leírás itt található:
http://wiki.services.openoffice.org/wik ... ase_Access
Téged az Iteration of Tables rész érdekel.
Egy másik post során létrehoztam egy adatbázist és átírtam az Iteration of Tables részben szereplő makrót, hogy egy tábla mezőjéből az adatoka t kiírja szövegfájlba.
A kód a következő:
Hangsúlyozom, hogy regisztrált adatforrás nálam a csalad és így működik. Nem regisztrált adatforrásnál nem tudom megy e?
Csatolom az adatbázis fájlt.
Én azt látom, hogy csak lekérdezésen keresztül megy a dolog.
A leírás itt található:
http://wiki.services.openoffice.org/wik ... ase_Access
Téged az Iteration of Tables rész érdekel.
Egy másik post során létrehoztam egy adatbázist és átírtam az Iteration of Tables részben szereplő makrót, hogy egy tábla mezőjéből az adatoka t kiírja szövegfájlba.
A kód a következő:
Kód: Egész kijelölése
REM ***** BASIC *****
Sub Main
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim Statement As Object
Dim ResultSet As Object
Dim FileNo As Integer
Dim CurrentLine As String
Dim Filename As String
Filename = "c:\data.txt" ' Fájl neve
FileNo = Freefile ' Szabad fájlsorszám
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("csalad") 'A regisztrált adatforrás neve
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("SELECT ""szulnev"" FROM ""emberek""") ' A lekérdezés futtatása
If Not IsNull(ResultSet) Then ' Ha van adat
Open Filename For Output As #FileNo 'Megynyitni felűlírásra...
While ResultSet.next
Print #FileNo, ResultSet.getString(1) '..és beleírni az értékeket
Wend
End If
Close #FileNo 'fájl lezárása
end sub
Csatolom az adatbázis fájlt.
- Csatolmányok
-
- csalad.odb
- (4.5 KiB) Letöltve 121 alkalommal.
Ms Windows XP • 3.0.X • Ubuntu 7.x