________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Function FuellenAbteilung(ByVal cboComboBox As ComboBox, Optional ByVal _
  blnMitLeerEintrag As Boolean = False) As clsXXXXX_Abteilungen
        '----------------------------------------------------------------------
        ' -----------------
        'Aufgabe: Fuellen der Combobox mit den verschiedenen Abteilungen
                '--------------------------------------------------------------
                ' -------------------------
        'Eingabe: cboComboBox: ComboBox: zu fuellende Combobox
        '         blnMitLeerEintrag: Boolean (Optional): soll ein Leereintrag 
        ' dazu erzeugt werden
        'Rueckgabe: clsXXXXX_Abteilungen: die gelesenen Abteilungen zurueckgeben
        '----------------------------------------------------------------------
        ' -----------------
        Dim i As Integer
        Dim udtAbteilungen As clsXXXXX_Abteilungen
 
        Try
            udtAbteilungen = New clsXXXXX_Abteilungen
 
            'Combobox leeren
            cboComboBox.Items.Clear()
 
            'Daten aus DB lesen
            udtAbteilungen.Laden(, , blnMitLeerEintrag = True)
 
            'Daten aus Klasse in die Combobox schreiben
 
            cboComboBox.DataSource = udtAbteilungen
            cboComboBox.DisplayMember = "Abteilung"
            cboComboBox.ValueMember = "Kurzname"
 
 
            'ersten Eintrag auswaehlen
            If cboComboBox.Items.Count > 0 Then
                cboComboBox.SelectedIndex = 0
            End If
        Catch ex As Threading.ThreadAbortException
            'bei einer ThreadAbortException soll gar nichts passieren
        Catch ex As Exception
            'im Fehlerfall Fehlermeldung ausgeben
            ErrorMessage1(ex)
        End Try
        Return udtAbteilungen
    End Function

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

"SELECT LfdNr, Name, Sort_Feld FROM Adressen UNION ALL SELECT 0, Null, Null" & _
  "FROM T_Union ORDER BY Sort_Feld"

    Private Shared Function AddUnionToSql(ByVal SQLString As String) As String
        Dim sUnion As String
        Dim FieldCount As Integer = GetFieldCount(SQLString)
        Dim FieldString As String = ""
        For x As Integer = 1 To FieldCount
            FieldString &= ", Null"
        Next
        sUnion = "UNION ALL SELECT 0" & FieldString & " FROM T_Union"
 
        If SQLString Is Nothing And sUnion Is Nothing Then
            Return ""
        ElseIf SQLString Is Nothing Then
            Return sUnion
        ElseIf sUnion Is Nothing Then
            Return SQLString
        End If
 
        SQLString = SQLString.TrimEnd
        sUnion = sUnion.Trim
 
        Dim iStartOrderBy As Integer
        Dim sOrderBy As String
 
        iStartOrderBy = SQLString.IndexOf(" ORDER BY ")
        If iStartOrderBy <> -1 Then
            sOrderBy = SQLString.Substring(iStartOrderBy, SQLString.Length - _
              iStartOrderBy)
            Return SQLString.Substring(0, iStartOrderBy) & " " & sUnion & _
            sOrderBy
        Else
            Return SQLString & " " & sUnion
        End If
    End Function
 
    Private Shared Function GetFieldCount(ByVal SQLString As String) As Integer
        ' ich 
        Dim pos As Integer
        Dim posKlAuf As Integer
        Dim posKlZu As Integer
        Dim posFrom As Integer
        Dim anzKl As Integer
        Dim aktPos As Integer
        Dim uSelBeg As Integer
 
        Do While 1
 
            posKlAuf = SQLString.IndexOf("(")
            posFrom = SQLString.IndexOf("FROM")
            If posKlAuf <> -1 Then
                If posKlAuf < posFrom Then
                    ' es gibt einen unterselect im Fieldstring
                    uSelBeg = posKlAuf
                    anzKl = 1
                Else
                    Exit Do
                End If
            Else
                Exit Do
            End If
 
            ' unterselect entfernen
            aktPos = uSelBeg + 1
 
            Do While anzKl <> 0
 
                posKlAuf = SQLString.IndexOf("(", aktPos)
                posKlZu = SQLString.IndexOf(")", aktPos)
                If posKlAuf = -1 Then posKlAuf = posKlZu + 1
                If posKlAuf < posKlZu Then
                    anzKl += 1
                    aktPos = posKlAuf + 1
                Else
                    anzKl -= 1
                    aktPos = posKlZu + 1
                End If
            Loop
            SQLString = SQLString.Remove(uSelBeg - 1, posKlZu - uSelBeg + 2)
        Loop
 
        pos = SQLString.IndexOf(" FROM")
        Return SQLString.Substring(6, pos).Split(",").Length - 1
 
    End Function