Title / Description
Code VB-Code with embedded SQL. As Python-like-highlight. How looks it? ;-) Option Compare Database Option Explicit Function RezeptDateisuchen() '08.10.2002 vd Filesearch hat bug Dim strPfad, strDateiendung, strDateiname, strSQLKommando As String Dim iZähler, iZähler2 As Integer On Error GoTo Err_RezeptDateisuchen strPfad = DLookup("[PfadDateien]", "Konfiguration", "[KonfigurationNr]=1") strDateiendung = "asc" strDateiname = Dir(strPfad + "*." + strDateiendung) If strDateiname <> "" Then 'Dateien zählen iZähler = 1 While strDateiname <> "" iZähler = iZähler + 1 strDateiname = Dir Wend 'Reinitialisierung iZähler2 = iZähler iZähler = 1 strDateiname = Dir(strPfad + "*." + strDateiendung) DoCmd.Echo True, "Tabellenliste aktualisieren" SQL_no_warning ("UPDATE TabelleXY SET DateiGelöscht = TRUE") Do If IsNull(DLookup("RezeptDatei", "TabelleXY", "DateiXY = '" & Left(strDateiname, Len(strDateiname) - 4) & "'")) Then SQL_no_warning ("INSERT INTO TabelleXY (DateiXY, Speicherdatum) VALUES ('" & Left(strDateiname, Len(strDateiname) - 4) & "', '" & FileDateTime(strPfad & strDateiname) & "')") Else SQL_no_warning ("UPDATE TabelleXY SET Speicherdatum = '" & FileDateTime(strPfad & strDateiname) & "' WHERE DateiXY = '" & Left(strDateiname, Len(strDateiname) - 4) & "'") End If 'Flag für löschen entfernen SQL_no_warning ("UPDATE TabelleXY SET DateiGelöscht = FALSE" & " WHERE DateiXY = '" & Left(strDateiname, Len(strDateiname) - 4) & "'") 'naechster Dateiname strDateiname = Dir iZähler = iZähler + 1 Status iZähler / iZähler2 * 100, iZähler & ". XY einlesen von " & iZähler2 Loop Until strDateiname = "" .... more code
Author
Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code
1.1.2
1.1.2