Programmieren

Um in einer Batch Datei Informationen über sich selbst (also die eigene Batch Datei) zu bekommen kann man sich der Variablen %0 bedienen.

Diese Variable gibt Standardmäßig den Pfad incl. Namen der eigenen Batchdatei zurück.

Zwischen dem Prozent Zeichen und der Null kann man auch noch verschiedene Buchstaben setzen, um z.B. nur den Pfad zu ermitteln.

Hier mal eine Liste der Möglichkeiten.

Eine kleine Demonstration der Befehle gibt`s auch zum Runterladen : Batch_Information.bat.

Hi Leute,

ich sitze hier gerade in einem Hotel, und nett wie die Leute hier sind, gibts hier schöne offene WLAN Stationen. und das tolle ist, die sind so schlecht geschützt, das ich sogar in die Admin Konsole komme.

Um der Dummheit der Leute? mal zu bestrafen,? werde ich hier nach und nach eine Liste fon SSID Namen und den dazugehörigen Standard Paßwörten veröffentlichen. Wer noch nicht mal das Admin Paßwort ändert, der gehört einfach beschraft!

Noch ist die Liste klein, aber ich bin mir sicher, das wird sich bald ändern! ;-)

Oft ist es nötig bei Fehlern einfach weiterzumachen, weil sie für den Programmablauf unerheblich sind. So z.B. beim Löschen von Objekten in Access. Wenn dort das Objekt nicht existiert und man es löschen will, Schwupps eine Fehlermeldung.

Klar ganz einfach On Error Resume Next vor den ärgerlichen Befehl und schon macht das Programm einfach weiter, und ignoriert sozusagen den Fehler.

Leider ignoriert VBA aber auch alle anderen Fehler die danach kommen, auch wenn diese meistens gewünscht sind. Deshalb immer darauf achten die normale Fehlerbehandlung auch immer wieder ein zu schalten. Das macht man mit dem Befehl On Error GoTo ErrorHandler.

Bei großen Projekten ist es Ratsam eine eigene Fehlerbehandlung zu schreiben mit sinnvollen Fehlermeldungen. Dazu einfach am Anfang On Error GoTo Eigene_Fehlerbehandlung VBA mitteilen, das er bei einem Fehler zur Funktion Eigene_Fehlerbehandlung springen soll.

Dort kann man dann das Objekt Err auswerten in ihm werden alle Fehlerinformationen gespeichert. Die wichtigsten Eigenschaften des Err Objektes sind dabei:

• Err.Number
• Err.Description

Mit der Select Case Anweisung und Err.Number kann man dann sehr schön und effektiv seine eigene Fehlerroutine basteln.

PS: Mit dem Befehl On Error GoTo 0 kann man übrigens die VBA-eigene Fehlerbehandlung ganz abschalten.

Um einen zufälligen Datensatz aus einer Tabelle zu ermitteln geht man beim MS SQL Server etwas anders vor als z.B. bei einem MySQL Server.

Während man beim MySQL Server folgende SQL Syntax benutzt:

SELECT
  Feld
FROM
  Tabelle
ORDER BY
  RAND() LIMIT 1;

kommt man beim MS SQL Server mit dieser Syntax zum Ergebnis:

SELECT TOP 1
  Feld
FROM
  Tabelle
ORDER BY
  NEWID();

MfG

Mit einer Select Case Anweisung kann man sehr elegant eine Menge IF ELSE Bedingungen umgehen. Dazu müssen aber ein paar Bedingungen erfüllt sein.

• Man darf sich immer nur auf eine Variable/Ausdruck beziehen, die man überprüfen will.
• Alle möglichen Stati Status der Variable sollten bekannt sein.
• Es sollte eine Default (Standard) Anweisung geben.

Die Syntax sieht wie folgt aus.

Select Case (expression)
Case option1
    statement1
Case option2
    statement2
    .
    .
    .
Case optionn
    statementn
Case Else
    statementd
End Select

Dabei ist expression die Variable oder der Ausdruck der zu überprüfen ist. Case leitet den Fall ein der zu überprüfen ist. und Case Else leitet den Default (Standard) Fall ein der ausgeführt wird wenn nichts vorheriges passt.

Bei den einzelnen Fällen gibt es noch verschiedene Methoden der Schreibweise. Mit der man sich geschickt wieder ein paar Zeilen Code sparen kann.

• Case 1
• Führe aus wenn Ausdruck gleich 1.
• Case 2, 4
• Führe aus wenn Ausdruck gleich 2 oder 4.
• Case 5 To 6
• Führe aus wenn Ausdruck zwischen 5 und 6.
• Case IS > 6
• Führe aus wenn Ausdruck ist größer als 6.

Zum Schluss nochmal ein Beispiel, das alle außergewöhnlichen Case Fälle darstellt

Select Case Variable
Case IS < 5    	
    	Debug.Print "kleiner als 5"
Case 6, 7, 8   
   	 Debug.Print "6, 7 oder 8"
Case 8 TO 12
	Debug.Print "Zwischen 8 und 12"
Case Else    
   	Debug.Print "Nicht zwischen 1 und 12"
End Select

So viel Spaß beim hacken in VBA.

Hi,

nerft euch das nicht auch? kaum muß man ein etwas aus der Bahn gekommenes Programm (etwas unsanft) beenden, schon nerft einen Windows mit dem Fehlerberichterstattungsdialog.

So kann man ihn abschalten.

Rechtsklick auf Arbeitsplatz und Eigenschaften auswählen. Dann auf den Reiter Erweitert und dort Fehlerberichterstattung auswählen.

Jetzt Fehlerberichterstattung deaktivieren auswählen und am besten auch gleich das Häkchen bei Aber bei kritischen Fehlern benachrichtigen raus nehmen.

Fertig!

Quicktipp:

Um den Namen des aktuellen Workbooks zu ermitteln brauch man zur folgende Anweisung.

• ActiveWorkbook.Name