AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS: Conversations

Browse Source
This commit is contained in:
SchreiberM
2020-06-23 10:39:24 +02:00
parent 238c8e0860
commit a45b81dc47
39 changed files with 1652 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Modules.Database/MSSQLServer.vb
View File

@@ -101,7 +101,7 @@ Public Class MSSQLServer
Return Nothing
End If
_Logger.Debug("Running Query: {0}", SqlCommand)
_Logger.Debug("GetDatatable: {0}", SqlCommand)
Using oConnection = GetSQLConnection()
Using oSQLCOmmand = oConnection.CreateCommand()
@@ -130,8 +130,7 @@ Public Class MSSQLServer
If TestCanConnect(ConnectionString) = False Then
Return Nothing
End If
_Logger.Debug("Running Query: {0}", SqlCommand)
_Logger.Debug("GetDatatableWithConnection: {0}", SqlCommand)
Using oConnection = GetSQLConnection(ConnectionString)
Using oSQLCOmmand = oConnection.CreateCommand()
@@ -167,8 +166,8 @@ Public Class MSSQLServer
If TestCanConnect() = False Then
Return Nothing
End If
_Logger.Debug("ExecuteNonQuery: {0}", SQLCommand)
_Logger.Debug("Running Query: {0}", SQLCommand)
Using oConnection = GetSQLConnection()
Using oSQLCOmmand = oConnection.CreateCommand()
@@ -196,7 +195,8 @@ Public Class MSSQLServer
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = pSQLCommand
_Logger.Debug("Execute_non_Query_ConStr Created: " & pSQLCommand)
_Logger.Debug("ExecuteNonQueryCS: {0}", SQLcommand.CommandText)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -226,8 +226,7 @@ Public Class MSSQLServer
If TestCanConnect() = False Then
Return Nothing
End If
_Logger.Debug("Running Query: {0}", SQLCommand)
_Logger.Debug("GetScalarValue: {0}", SQLCommand)
Using oConnection As SqlConnection = GetSQLConnection()
Using oSQLCOmmand = oConnection.CreateCommand()
@@ -253,8 +252,8 @@ Public Class MSSQLServer
If TestCanConnect() = False Then
Return Nothing
End If
_Logger.Debug("GetScalarValue: {0}", SQLCommand)
_Logger.Debug("Running Query: {0}", SQLCommand)
If SQLCommand.CommandText.Contains(" ") Then
SQLCommand.CommandType = CommandType.Text
@@ -291,7 +290,7 @@ Public Class MSSQLServer
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = pSQLCommand
_Logger.Debug("Execute_Scalar_ConStr Scalar: " & pSQLCommand)
_Logger.Debug("GetScalarValueConStr Scalar: " & pSQLCommand)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -316,8 +315,7 @@ Public Class MSSQLServer
If TestCanConnect() = False Then
Exit Sub
End If
_Logger.Debug("Running Query: {0}", SqlCommand)
_Logger.Debug("NewExecuteNonQueryAsync: " & SqlCommand)
Try
Dim oCallback As New AsyncCallback(AddressOf NewExecuteNonQueryAsync_Callback)

4
Modules.Database/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.7")>
<Assembly: AssemblyFileVersion("1.1.0.0")>
<Assembly: AssemblyVersion("1.0.0.8")>
<Assembly: AssemblyFileVersion("1.2.0.0")>