edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Diverses

Browse Source
This commit is contained in:
ms
2020-01-08 14:32:30 +01:00
parent 5f24e2a9e1
commit 46a9991b2a
22 changed files with 1579 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Dokumentation/Classes/cSQL.vb
View File

@@ -2,10 +2,11 @@
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 = Class1.DBConString
con.ConnectionString = DBConnect 'Class1.DBConString
cmd.Connection = con
Dim dataadapter As New SqlDataAdapter(selector, con)
@@ -14,10 +15,11 @@ Public Class cSQL
con.Close()
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 = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -26,10 +28,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 = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -38,10 +41,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 = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -50,10 +54,11 @@ Public Class cSQL
con.Close()
End Sub
Public Shared Sub SQLCommand(command As String)
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 = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()