IT Nothotline, allgemeine Verbesserungen

Dokumentation/Classes/Class1.vb

@@ -62,7 +62,7 @@ Public Class Class1
             Class1.DBConString = DBDokuTest '"Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
         Else
-            Class1.DBConString = DBDoku '"Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.DBConString = DBDoku '"Server=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
         End If
     End Function
@@ -722,7 +722,7 @@ Public Class Class1
 
             '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
             ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
-            txtbox.AutoCompleteCustomSource = tmp
+
 
             For Each dr As DataRow In ds.Tables(0).Rows
                 Try
@@ -733,6 +733,47 @@ Public Class Class1
                 'Items.Add(dr.Item(0))
             Next
 
+            txtbox.AutoCompleteCustomSource = tmp
+
+            con.Close()
+        Catch ex As Exception
+            MsgBox("Fehler Autocomplete: " & ex.Message)
+            con.Close()
+        End Try
+        con.Close()
+    End Function
+
+    Public Shared Function AutocompleteCombo(ByRef Combo As ComboBox, spalte As String, Tabelle As String, Optional ByVal ItemNr As Integer = 0)
+        Dim tmp As New AutoCompleteStringCollection
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        Try
+            con.Open()
+
+            Dim ds As New DataSet()
+            Dim dt As New DataTable()
+            Dim dataadapter As New SqlDataAdapter("SELECT Distinct " & spalte & " from " & Tabelle & "", con)
+            dataadapter.Fill(ds)
+
+            '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            Combo.AutoCompleteCustomSource = tmp
+
+            For Each dr As DataRow In ds.Tables(0).Rows
+                Try
+                    tmp.Add(dr.Item(ItemNr))
+                Catch
+                End Try
+
+                'Items.Add(dr.Item(0))
+            Next
+            Combo.DataSource = tmp
+            Combo.AutoCompleteMode = AutoCompleteMode.Suggest
+            Combo.AutoCompleteCustomSource = tmp
+
             con.Close()
         Catch ex As Exception
             MsgBox("Fehler Autocomplete: " & ex.Message)