new

SDL/cSqlDb.vb

@@ -870,7 +870,7 @@ Public Class SQL
         Return ""
     End Function
 
-    Public Function getValueTxtBySqlVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = Nothing) As String
+    Public Function getValueTxtBySqlVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = Nothing, Optional defaultValue As Object = "") As String
         Dim s As String = ""
         Try
             'MsgBox("1")
@@ -907,7 +907,7 @@ Public Class SQL
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         'MsgBox("3")
-        Return ""
+        Return defaultValue
 
     End Function
     Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = Nothing, Optional timeout As Integer = 0) As Boolean