Wednesday, October 23, 2013

Mehrere SQL Kommandos in Access mittels VBA ausführen

In Access ist es leider nicht möglich, mehrere SQL Anweisungen auszuführen. Hier kann man sich mittels VBA helfen. Der dazugehörige Code folgt hier:

Sub ExecSqlFromFile()
    ' Variablen deklarieren
    Dim vSql       As Variant
    Dim vSqls      As Variant
    Dim strSql     As String
    Dim intF       As Integer

    intF = FreeFile()
    Open "c:\sql.txt" For Input As #intF ' Datei öffnen
    
    Do While Not EOF(intF) ' Solange das Dateiende nicht erreicht ist
         Line Input #intF, strSql ' nächste Zeile der Datei in TextLine speichern
    Loop
    
    Close intF ' Datei schließen
    vSqls = Split(strSql, ";") ' Anweisungen splitten
    
    On Error Resume Next
    For Each vSql In vSqls
         If Len(vSql) > 0 Then
             MsgBox (vSql) ' Anweisung ausgeben
             CurrentDb.Execute vSql ' Anweisung ausführen
         End If
    Next

End Sub


Wednesday, January 2, 2013

[LINUX] Verzeichnisgrößen ermitteln

um heruaszufinden, welche Verzeichnisse den meisten Platz verwenden, nutze man "du" mit folgendem Parameter: