vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Datensätze exportieren 
Autor: lastyle
Datum: 13.10.06 07:21

Hallo,
ich möchte gerne aus einer Access Datenbank jeweils nur die geänderten bzw neu angelegten Datensätze exportieren, und diese dann per Email an zur weiteren bearbeitung verschicken. Die geänderten bzw neu angelegten Datensätze bekommen ein Flag gesetz im Feldnamen AD_Updatet und AD_Updatedby. Anhand dieses Flags möchte ich dann von alle Records die dieses Flag haben den kompletten Index exportieren . Das Dateiformat in das es exportiert wird spielt eine untergeordnete Rolle, das kann Excel,Access oder auch Text sein

Geht sowas ? und wenn ja wie macht man so etwas am besten. Ich habe im Forum leider nichts diesbezügluch gefunden.

Gruß Mario
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datensätze exportieren 
Autor: bfritz
Datum: 13.10.06 21:42

Hallo Mario
Verwende einfach die "SAVE"-Methode von ADO zum speichern mit
folgenden Parameter:
"rst.Save Datei, PersistentTyp"
Dabei kann man aus zwei Formaten wählen.
a:Advanced Data Tablegram (ADTG) (Const adPersistADTG = 0)
b:Extensible Markup Language (XML) (Const adPersistXML = 1)

Beispiel zum Exportieren eines Recordsets mit ADO:
'Verweis auf ADO setzen nicht vergessen!!!
Sub SaveADO_RS
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
   "Data Source=C:\Nordwind.mdb;"
   rst.Open "SELECT * FROM Kunden WHERE [AD_Updatet]=.........", cnn,
   adOpenKeyset,adLockOptimistic
   rst.Save "C:\Ausgabedatei.adtg", adPersistADTG
   rst.Close
   cnn.Close
End Sub
m.f.G. bfritz
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datensätze exportieren 
Autor: Prian0815
Datum: 16.10.06 15:35

für wieviele Tabellen willst du das denn machen?
Da kannst du dann noch ne Schleife drüber bauen.
1. sqlselect aufbauen:STRSQL = "select from deineTabelle where DeineTabelle.AD_Updatet = true or DeineTabelle.AD_Updatedby = true;"
2. Abftrage öffnen Set RS = New ADODB.Recordset
RS.Open stSQL, con, adOpenStatic, adLockOptimistic
3. Recordset auslesen(z.B. in Textdatei oder ähnliches)
4. Recordset schliesen.
Wobei con die aktuelle bzw. auszulesende DB repräsentiert.

Gruß Armin

P.S.: always look on the bright side of Life!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datensätze exportieren 
Autor: lastyle
Datum: 17.10.06 20:17

Hallo,

das ist immer nur für eine Tabelle, nur bin ich bisher noch nicht dazu gekommen es auszuprobieren, daher noch kein Feedback.

Gruß Mario
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datensätze exportieren 
Autor: Prian0815
Datum: 18.10.06 11:05

Hi, Hab im select was vergessen, Bitte beachten
. sqlselect aufbauen:STRSQL = "select deinetabelle.ID from deineTabelle where DeineTabelle.AD_Updatet = true or DeineTabelle.AD_Updatedby = true;"
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel