LogON LogOFF werden protokoliert

cSQL.vb

@@ -1,22 +1,28 @@
 Imports System.Data.SqlClient
 
 Public Class cSQL
-    Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
+
+    Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet, Optional ByRef DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
         Dim con As New SqlConnection
         Dim cmd As New SqlCommand
-        con.ConnectionString = cRes.DBConString
+        con.ConnectionString = DBConnect 'Class1.DBConString
         cmd.Connection = con
-
-        Dim dataadapter As New SqlDataAdapter(selector, con)
-        con.Open()
-        dataadapter.Fill(ds)
-        con.Close()
+        Try
+            Dim dataadapter As New SqlDataAdapter(selector, con)
+            con.Open()
+            dataadapter.Fill(ds)
+            con.Close()
+        Catch ex As Exception
+            'MsgBox("hier")
+        End Try
     End Sub
 
-    Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String)
+    Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String, Optional ByRef DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
         Dim con As New SqlConnection
         Dim cmd As New SqlCommand
-        con.ConnectionString = cRes.DBConString
+        con.ConnectionString = DBConnect ' Class1.DBConString
         cmd.Connection = con
 
         con.Open()
@@ -25,10 +31,11 @@ Public Class cSQL
         con.Close()
     End Sub
 
-    Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String)
+    Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String, Optional ByRef DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
         Dim con As New SqlConnection
         Dim cmd As New SqlCommand
-        con.ConnectionString = cRes.DBConString
+        con.ConnectionString = DBConnect ' Class1.DBConString
         cmd.Connection = con
 
         con.Open()
@@ -37,10 +44,11 @@ Public Class cSQL
         con.Close()
     End Sub
 
-    Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String)
+    Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String, Optional ByRef DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
         Dim con As New SqlConnection
         Dim cmd As New SqlCommand
-        con.ConnectionString = cRes.DBConString
+        con.ConnectionString = DBConnect ' Class1.DBConString
         cmd.Connection = con
 
         con.Open()
@@ -49,6 +57,19 @@ Public Class cSQL
         con.Close()
     End Sub
 
+    Public Shared Sub SQLCommand(command As String, Optional ByRef DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = DBConnect ' Class1.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = command
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
 
 End Class
 
@@ -70,7 +91,9 @@ Public Class SQLVariable
 
     Public ReadOnly Property SQLValue() As Object
         Get
-            Return Value
+            Return value
         End Get
     End Property
+
 End Class
+