201020

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -508,6 +508,17 @@ Public Class SQL
     End Function
 
 
+    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL") As List(Of String)
+        Dim list As New List(Of String)
+        Dim dt = loadDgvBySql("SELECT  " & srchField & "  FROM " & table & " WHERE " & where & "", conn_art)
+        If dt IsNot Nothing Then
+            For Each r As DataRow In dt.Rows
+                list.Add(r(srchField))
+            Next
+        End If
+        Return list
+    End Function
+
 
     Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String