Es kann durchaus vorkommen, dass die Farbe eines Controls auf dem Bildschirm offensichtlich weiß ist, ein Test auf Color.White() ergibt allerdings nicht True.

Falls das vorkommen sollte und man minutenlang an seinem Verstand zweifelt, sollte man die Farben entweder vorher explizit setzen oder aber man testet mal spaßeshalber auf Color.Empty().

Einfach ausgedrückt: Color.Empty() ist die Standard”farbe” solange nicht explizit etwas anderes gesetzt wird. Hurra, das ist ja mal ein Ding, wo jemand wirklich mitgedacht hat, oder!??

Zunächst muss sichergestellt sein, dass niemand mehr auf die Datenbank zugreift. Im Query Analyzer gibt man diese Befehle ein:

use master
sp_detach_db 'datenbank', 'true'

use master
sp_detach_db 'datenbank', 'true'

Die Datenbank ist damit abgehängt und ist auf dem alten Server nicht mehr verfügbar. Danach kann man die zugrundeliegenden Dateien (“.MDF” und “.LDF”, siehe Codezeile unten) aus dem Daten-Verzeichnis des alten Servers in das Daten-Verzeichnis des neuen Servers kopieren.

Der nächste Befehl (eingegeben im Query Analyzer der neuen Servers) hängt die Datenbankdateien auf dem neuen Server wieder ein:

sp_attach_db 'datenbank', 'C:\Programme\Microsoft SQL Server\MSSQL\Data\datenbank_Data.MDF', 'C:\Programme\Microsoft SQL Server\MSSQL\Data\datenbank_Log.LDF'

sp_attach_db 'datenbank', 'C:\Programme\Microsoft SQL Server\MSSQL\Data\datenbank_Data.MDF', 'C:\Programme\Microsoft SQL Server\MSSQL\Data\datenbank_Log.LDF'

Der Speicherort muss natürlich exakt angegeben werden. Nach ein paar Sekunden (oder Minuten, je nach Größe der Datenbank) steht die Datenbank auf dem neuen Server wieder zur Verfügung.

Beim Einhängen wird die Datenbank konvertiert. Meistens geht das gut. Manchmal auch nicht Dann muss man manuell nacharbeiten. Alles in allem ist dies die einfachste und schnellste Möglichkeit, eine Datenbank von SQL Server 2000 zu migrieren, die ich so kenne.

Public Function Eval(ByVal iFormel As String) As Double
Dim sc As ScriptControl
 
On Error GoTo MyFehler
 
Set sc = New ScriptControl
sc.Language = "vbscript"
Eval = sc.Eval(iFormel)
Exit Function
 
MyFehler:
MsgBox "Formel '" & iFormel & "' kann nicht evaluiert werden!" & vbCrLf & "Fehler: " & Err.Description
Exit Function
 
End Function

Public Function Eval(ByVal iFormel As String) As Double
Dim sc As ScriptControl

On Error GoTo MyFehler

Set sc = New ScriptControl
sc.Language = "vbscript"
Eval = sc.Eval(iFormel)
Exit Function

MyFehler:
MsgBox "Formel '" & iFormel & "' kann nicht evaluiert werden!" & vbCrLf & "Fehler: " & Err.Description
Exit Function

End Function

Der Aufruf ist ebenso simpel:

Ergebnis = Eval(3*4+20/5) ' Ergebnis = 16

Ergebnis = Eval(3*4+20/5) ' Ergebnis = 16

Wie man erkennen kann, werden selbstverständlich mathematische Rechenregeln beachtet.

Wichtig: Unter Verweise muss im zugrundeliegenden Visual Basic Projekt ein Verweis auf “Microsoft Script Control x.x” gesetzt werden!

Natürlich steht es jedem frei, auch einen umfangreichen Parser zu schreiben, der den Ausdruck zerlegt und dann auswertet. Aber die oben gezeigte Möglichkeit finde ich wesentlich effektiver.

Private Function lfWandler(ByVal iZahl As Long, ByVal iBasis As Long) As String
Dim lvZahlen As String
Dim lvErgebnis As String
Dim lvRest As Long
 
If iZahl = 0 Then lfWandler = "0": Exit Function
If iBasis = 1 Then lfWandler = iZahl: Exit Function
 
lvZahlen = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"
 
lvRest = iZahl
While Not (lvRest = 0)
lvErgebnis = Mid(lvZahlen, lvRest Mod iBasis + 1, 1) & lvErgebnis
lvRest = iZahl \ iBasis
iZahl = lvRest
Wend
 
lfWandler = lvErgebnis
 
End Function

Private Function lfWandler(ByVal iZahl As Long, ByVal iBasis As Long) As String
Dim lvZahlen As String
Dim lvErgebnis As String
Dim lvRest As Long

If iZahl = 0 Then lfWandler = "0": Exit Function
If iBasis = 1 Then lfWandler = iZahl: Exit Function

lvZahlen = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"

lvRest = iZahl
While Not (lvRest = 0)
lvErgebnis = Mid(lvZahlen, lvRest Mod iBasis + 1, 1) & lvErgebnis
lvRest = iZahl \ iBasis
iZahl = lvRest
Wend

lfWandler = lvErgebnis

End Function

Ich glaube, das war eine der ersten Routinen, die ich je geschrieben habe. Damals noch im BASIC des VC-20

Natürlich kann man den lvZahlen-String noch beliebig erweitern. Wenigstens solange man unterschiedliche ASCII-Zeichen zur Vverfügung hat…
Eine tolle Erweiterung wäre die Bearbeitung von negativen Zahlen und “krummen” Basen. Viel Erfolg

System.Diagnostics.Debugger.IsAttached

System.Diagnostics.Debugger.IsAttached

Falls ja, befinden wir uns in der IDE. Ansonsten sind wir ein Kompilat (nein, kein Kombinat, das war etwas anderes…)

Wie löscht man nun gleiche Einträge, wenn sich die Datensätze nicht unterscheiden? Mit SQL geht’s nicht, da man keine Einschränkung zur Auswahl eines Datensatzes findet. Mit dem Management-Studio geht’s auch nicht, es meckert, dass eventuell alle Datensätze betroffen sind. Also einfach alle Datensätze wegpölen und neu eingeben?

Mit SQL geht’s aber doch, wenigstens seit SQL Server 2005. Dort kann man in der DELETE Anweisung (wie auch in der UPDATE Anweisung) ein TOP ROW angeben. Um den ersten eines doppelten Eintrags zu löschen, reicht es

DELETE TOP (1) FROM tabelle WHERE feld = xyz

DELETE TOP (1) FROM tabelle WHERE feld = xyz

zu schreiben. Es wird dann tatsächlich der erste (bzw. beliebige) Eintrag eines doppelten (drei-, vier-, n-fachen)  Eintrags gelöscht.

Da eine Menüstruktur verschachtelt sein kann, müssen auch alle Unterknoten durchlaufen werden. Es bietet sich an, dafür eine Rekursion zu verwenden. (Das war übrigens eine der ganz wenigen Stellen in meinem Leben, an denen ich spontan gedacht habe: das eignet sich supergut für eine Rekursion.)

Einen Haken hat die Sache noch: bei Separatoren (horizontale Trennlinien im Menü) fällt der Cast des DropDownItems in ein ToolStripMenuItem auf die Nase.  Deswegen muss das vorher noch abgefragt werden.

(Ziel der Übung war es übrigens, den Tooltip jedes einzelnen Menüeintrags zu leeren. Das MenuStrip bringt eine eigene ToolTip-Verwaltung mit sich. Daher funktioniert es nicht, einfach das formulargebundene ToolTip-Control zu deaktivieren, da die Tooltips der Menüs nicht daran hängen.)

Private Sub LoescheToolTips()
  For i As Integer = 0 To MenuStrip1.Items.Count - 1
    Unterknoten(MenuStrip1.Items(i))
  Next
End Sub

Private Sub LoescheToolTips()
  For i As Integer = 0 To MenuStrip1.Items.Count - 1
    Unterknoten(MenuStrip1.Items(i))
  Next
End Sub

Private Sub Unterknoten(ByVal Tsmi As ToolStripMenuItem)
For j As Integer = 0 To Tsmi.DropDownItems.Count – 1
    Tsmi.DropDownItems(j).ToolTipText = "" ‘ Hier kann man den Menüpunkt verwursten.
      If Tsmi.DropDownItems(j).IsOnDropDown Then
        If Not (TypeOf Tsmi.DropDownItems(j) Is System.Windows.Forms.ToolStripSeparator) Then
          Unterknoten(DirectCast(Tsmi.DropDownItems(j), ToolStripMenuItem))
        End If
    End If
  Next
End Sub

Private Sub Unterknoten(ByVal Tsmi As ToolStripMenuItem)
For j As Integer = 0 To Tsmi.DropDownItems.Count – 1
    Tsmi.DropDownItems(j).ToolTipText = "" ‘ Hier kann man den Menüpunkt verwursten.
      If Tsmi.DropDownItems(j).IsOnDropDown Then
        If Not (TypeOf Tsmi.DropDownItems(j) Is System.Windows.Forms.ToolStripSeparator) Then
          Unterknoten(DirectCast(Tsmi.DropDownItems(j), ToolStripMenuItem))
        End If
    End If
  Next
End Sub

• Programmiere nach Standards

Akzeptiere, dass geschulte Leute, die mal wichtige Algorithmen entwickelt haben, Plan davon hatten. Erfinde den Quicksort nicht neu. Benutze den Standard.

• Kommentiere, aber nicht auf Teufel komm raus

Kommentare sind wichtig. Aber kommentiere keine Funktion, die “ErmittleKundenname” heißt mit  dem Kommentar “Ermittelt den Kundennamen”. Beschreibe, warum du den Kundennamen genau so ermittelst, wie du  es in dieser Routine tust.

• Benutze eine Sourcecodeverwaltung

Auch bei kleinen Programmen. Du kannst so immer wieder zu der Stelle zurückspringen, bevor du dich furchtbar verfranst hast. Du hast Überblick und Ordnung. Disziplin kann auch gut sein.

• Baue ein Programm so, wie du es auch vorfinden wolltest, wenn es ein anderer programmiert hätte

Schwierig, denn jeder Programmierer hat andere Vorstellungen vom programmieren. Deswegen: halte dich an Standards. Dann klappt’s auch mit dem Kollegen.

• Programmiere keine überflüssigen Dinge.

Jedes Goodie, was du einbaust, damit der Kunde sieht, wie toll du bist, kommt irgendwann zu dir zurück. Entweder als Ding, was du ständig warten musst oder als überflüssigen Tand, den du wieder ausbauen musst. Wenn du unbedingt etwas “cooles” einbauen möchtest, sprich es mit dem Kunden vorher ab!

• Ach ja, denke immer an den Kunden.

Er ist der Geldgeber. Er zahlt deine Miete, dein Essen, deinen Lebensstandard. Der Kunde muss letzten Endes glücklich sein. Mache alles, damit er glücklich ist.