Supportnet / Forum / Datenbanken

Hallo, Ich habe eine Abfrage über eine Tabelle gebaut die u.a. Dateinamen von bestimmten Dateien beinhaltet. Abhängig von der Abfrage muß ich alle Dateinamen in VB erreichen, um die entsprechenden Dateien per VB woanders hin zu kopieren. Wie komme ich an die Datensätze? Gruß Mike Hinz

Hallo Mike, Du musst aus Deiner Abfrage ein Recordset erstellen, dazu erstellst Du in einem Modul die u.a. Funktion. Das SQL in Openrecordset musst Du an Deine Gegebenheiten anpassen:

function ergebnis()
Dim Db as Database
Dim Rs as Recordset

Set Db = CurrentDb
Set Rs = Db.Openrecordset("SELECT Dateiname FROM Tabelle")

'-- wenn daten vorhanden
If Rs.Recordcount > 0 then
  '-- zum ersten Satz gehen
  Rs.MoveFirst
  '-- solange bis ende des recordsets
  While not Rs.EOF
    '-- hier kann man nun über den Spaltennamen
    '-- den Dateinamen nehmen und verarbeiten
    '-- hier: ausgabe ins testfenster
    debug.print Rs!Dateiname
    '-- zum nächsten satz gehen
    Rs.MoveNext
  Wend
end if

Rs.Close

Set Rs = Nothing
Set Db = Nothing

end function

Gruss
Mick

Danke für die Hilfe!

• datensätze vergleichen?
• aktuelle Datensätze an Alte Datensätze anhängen
• Datensätze begrenzen
• datensätze in Abfrage selektieren
• Datensätze mit leeren Feldern werden in der Abfrage nicht angezeigt!