11
Script um für eine Access- Abfrage Datensätze in jeweils eine Datei zu exportieren
Problem: ich möchte das Ergebnis einer Access-Abfrage für jeden einzelnen Datensatz eine eigene Text-Datei ausliefern. Die Abfrage läuft in Access und hätte z.B. 4 Ergebnisse. Ich würde jetzt mittesl VBA-Script die Abfrage starten. Im Ergebnis wünsche ich mir dann halt 4 Dateien, wobei jeder Dateiname u.a. eine Zufalszahl beinhaltet..
Müsste ich jetzt über For Each .. Next gehen, um für jeden Datensatz eine txt-Datei zu schreiben? ich würde gerne das*.vbs-Sript in den Windows-Sceduler legen, um es z.B. alle 15 min laufen zu lassen. Oder geht das noch anders?
Müsste ich jetzt über For Each .. Next gehen, um für jeden Datensatz eine txt-Datei zu schreiben? ich würde gerne das*.vbs-Sript in den Windows-Sceduler legen, um es z.B. alle 15 min laufen zu lassen. Oder geht das noch anders?
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 333412
Url: https://administrator.de/forum/script-um-fuer-eine-access-abfrage-datensaetze-in-jeweils-eine-datei-zu-exportieren-333412.html
Ausgedruckt am: 23.12.2024 um 01:12 Uhr
11 Kommentare
Neuester Kommentar
Problem
Erst mal Moin, oder hat man dir keinen Anstand beigebracht?!Aus der hohlen Hand z.B. so (Pfade, Spaltennamen etc. anpassen)
Sub Test()
Dim rec, fso, fname, outline
Set fso = CreateObject("Scripting.FilesystemObject")
Const OUTPATH = "c:\Data"
Set rec = Currentdb.OpenRecordset("DeineAbfrage")
while not rec.EOF
fname = OUTPATH & "\record_" & GetRandomValue & ".txt"
while fso.FileExists(fname)
fname = OUTPATH & "\record_" & GetRandomValue & ".txt"
wend
outline = Join(Array(rec.Fields("Spalte1").Value,rec.Fields("Spalte2").Value,rec.Fields("Spalte3").Value),";")
fso.OpenTextfile(fname,2,True).Writeline(outline)
rec.MoveNext
wend
End Sub
Function GetRandomValue()
dim chars, out, i, r
chars = "abcdefghijklmnopqrstuvwxyz1234567890"
for i = 1 to 10
Randomize
r = Int ((36 - 1 + 1) * Rnd + 1)
out = out & Mid(chars,r,1)
Next
GetRandomValue = out
End FunctionGruß p.
Hi pattern und Moinmoin,
recht hast du, ist wohl gestern etwas spät geworden.... sorry!
Ok, mit While läuft er dann durch die Ergebnisliste durch, bis alle Datensätze verarbeitet wurden, also ist for each...next obsolet
.
Ich habe, wenn die Schnittstelle zum Auswertesystem dann mal so bedient wurde noch eine 2. Aufgabe, nämlich, dass via Abfrage je Record ein Termin in den OL-Kalender eingetragen wird. Die Daten für subject, start, duration, body und eine Termin-ID werden durch die Abfrage bereitgestellt.
Die notwendige Deklaration des Kalenders nache ich dann ganz normal, setze aber in die While -Wend Schleife die Werte... Ein Wert ist die eindeutige Temin-ID. Den würde ich als Userproperty zum Termin eintragen, so dass ich prüfen kann, ob es schon einen Termin mit dieser ID gibt um ggf. diesen ein Update zu verpassen.
Müsste doch gehen
?
Dank und Grüsse
recht hast du, ist wohl gestern etwas spät geworden.... sorry!
Ok, mit While läuft er dann durch die Ergebnisliste durch, bis alle Datensätze verarbeitet wurden, also ist for each...next obsolet
.Ich habe, wenn die Schnittstelle zum Auswertesystem dann mal so bedient wurde noch eine 2. Aufgabe, nämlich, dass via Abfrage je Record ein Termin in den OL-Kalender eingetragen wird. Die Daten für subject, start, duration, body und eine Termin-ID werden durch die Abfrage bereitgestellt.
Die notwendige Deklaration des Kalenders nache ich dann ganz normal, setze aber in die While -Wend Schleife die Werte... Ein Wert ist die eindeutige Temin-ID. Den würde ich als Userproperty zum Termin eintragen, so dass ich prüfen kann, ob es schon einen Termin mit dieser ID gibt um ggf. diesen ein Update zu verpassen.
Müsste doch gehen
?
Dank und Grüsse
Klar, machbar ist alles. Hat aber jetzt so viel mit der Frage zu tun wie ein Fisch mit ner Kuh.
Ah, ok, naja, ich probiere das nachher dann mal einfach aus ...
Besten Dank für die Hilfe
g
Besten Dank für die Hilfe
g
Na dann, noch einen Haken dran und fertig.
Gruß p.
Gruß p.
Für die Zeile 5 bekomme ich einen Laufzeitfehler, da ein Objekt noch zu definieren wäre.
Set rec = Currentdb.OpenRecordset("TEST_SMS")
Wobei TEST_SMS die Abfrage in der (aktuell geöffneten) ACCESS-DB ist. Hm, welches Objekt müsste ich noch definieren?
Set rec = Currentdb.OpenRecordset("TEST_SMS")
Wobei TEST_SMS die Abfrage in der (aktuell geöffneten) ACCESS-DB ist. Hm, welches Objekt müsste ich noch definieren?
Das Skript ist zum Ausführen in Access ausgelegt, nur dort existiert CurrentDB.
Außerhalb musst du erst mit CreateObjekt das Access-Application-Object erzeugen.
http://stackoverflow.com/questions/20403424/script-to-open-access-datab ...
Also besser die Makros in die DB packen, und im Skript nur Access starten und darin dann das Makro.
Außerhalb musst du erst mit CreateObjekt das Access-Application-Object erzeugen.
http://stackoverflow.com/questions/20403424/script-to-open-access-datab ...
Also besser die Makros in die DB packen, und im Skript nur Access starten und darin dann das Makro.
jou, das geht 
)
)
kann ich nochmal auf die Kuh mit dem Fisch zurückkommen?
Kann ich aus Access heraus auch Outlook z.B. einen Termineintrag übergeben? Ich dachte an sowas als Beispiel. Als *.vbs funktioniert es. Ich würde gerne die Parameter des Termins mit den Ergebnissen einer Abfrage füllen.
Dim objOL,objNS
DIM app, prop
Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set folderCalendar = objNS.Folders("mail123@mail.de").Folders("Kalender (Nur dieser Computer)").Items
Set app = folderCalendar.add
Set prop = app.UserProperties.Add("T-ID", 1, false)
WITH app
app.Start = #03/27/2017 18:00:00#
app.Duration = 120
app.Subject = "Dies ist ein Test"
app.Location = "BEI MIR"
app.ReminderSet = False
app.body = "Schreiben wir hier ein paar Notizen rein"
prop.Value = "123456789"
app.Save
app.display
END WITH
Kann ich aus Access heraus auch Outlook z.B. einen Termineintrag übergeben? Ich dachte an sowas als Beispiel. Als *.vbs funktioniert es. Ich würde gerne die Parameter des Termins mit den Ergebnissen einer Abfrage füllen.
Dim objOL,objNS
DIM app, prop
Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set folderCalendar = objNS.Folders("mail123@mail.de").Folders("Kalender (Nur dieser Computer)").Items
Set app = folderCalendar.add
Set prop = app.UserProperties.Add("T-ID", 1, false)
WITH app
app.Start = #03/27/2017 18:00:00#
app.Duration = 120
app.Subject = "Dies ist ein Test"
app.Location = "BEI MIR"
app.ReminderSet = False
app.body = "Schreiben wir hier ein paar Notizen rein"
prop.Value = "123456789"
app.Save
app.display
END WITH
kann ich nochmal auf die Kuh mit dem Fisch zurückkommen?
Das ist nicht der Sinn eines Forums das man zig unterschiedliche Fragen in einen einzigen Thread packt, das verwirrt nur die User die hier vorbei kommen und anhand des Titels etwas ganz anderes erwarten!Kann ich aus Access heraus auch Outlook z.B. einen Termineintrag übergeben?
Ja.Wie du die Felder des Records ansprichst siehst du ja oben rec.Fields("SpalteX").Value. Die weist du jeweils deinen Feldern zu fertig.
Danke dir und schönen Abend noch !
g
g
