01

cSQL.vb

@@ -0,0 +1,76 @@
+Imports System.Data.SqlClient
+
+Public Class cSQL
+    Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = cRes.DBConString
+        cmd.Connection = con
+
+        Dim dataadapter As New SqlDataAdapter(selector, con)
+        con.Open()
+        dataadapter.Fill(ds)
+        con.Close()
+    End Sub
+
+    Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = cRes.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "UPDATE " & table & " SET " & values & " WHERE " & where & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+    Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = cRes.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "INSERT INTO " & table & " " & insert & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+    Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = cRes.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "DELETE FROM " & table & " WHERE " & where & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+
+End Class
+
+Public Class SQLVariable
+    Private Text, Value As String
+    Private prim As Boolean
+
+    Public Sub New(ByVal btext As String, ByVal bvalue As String, Optional bprim As Boolean = False)
+        Me.Value = bvalue
+        Me.Text = btext
+
+    End Sub
+
+    Public ReadOnly Property SQLText() As String
+        Get
+            Return Text
+        End Get
+    End Property
+
+    Public ReadOnly Property SQLValue() As Object
+        Get
+            Return Value
+        End Get
+    End Property
+End Class