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

add image methods

Browse Source
This commit is contained in:
JenneJ 2015-10-19 14:36:08 +02:00
parent d238d7fadc
commit 754149ae86
1 changed files with 52 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
app/BrainpoolXmlParser/DB.vb
View File

@ -14,6 +14,7 @@ Public Class DB
_db = dbname
End Sub
#Region "=== HELPERS ==="
Public Function formatTable(table As String) As String
Return String.Format("[{0}].[dbo].[{1}]", _db, table)
End Function
@ -37,6 +38,20 @@ Public Class DB
Return value
End Function
Public Function IsEqual(controlId As Integer, recordId As Integer, valueToCompare As Object)
Dim table = Me.formatTable("TBPMO_CONTROL_VALUE")
Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
Dim value = Me.Scalar(sql)
If (IsDBNull(valueToCompare) Xor IsDBNull(value)) Then
Return False
End If
Return value = valueToCompare
End Function
#End Region
#Region "=== RECORD ID ==="
Public Function GetRecordId(controlId As Integer, applicationNumber As String) As Integer
Dim sql = String.Format("SELECT RECORD_ID FROM {0} WHERE CONTROL_ID = {1} AND VALUE = '{2}'", Me.formatTable("TBPMO_CONTROL_VALUE"), controlId, applicationNumber)
Return Me.Scalar(sql)
@ -47,7 +62,9 @@ Public Class DB
Me.NonQuery(sql)
Return Me.Scalar("SELECT MAX(GUID) FROM TBPMO_RECORD")
End Function
#End Region
#Region "=== VALUES ==="
Public Function InsertValue(controlId As Integer, recordId As Integer, value As Object)
Dim table = Me.formatTable("TBPMO_CONTROL_VALUE")
Dim sql = String.Format("INSERT INTO {0} (CONTROL_ID, RECORD_ID, VALUE) VALUES ({1}, {2}, '{3}')", table, controlId, recordId, value)
@ -60,19 +77,9 @@ Public Class DB
Dim sql = String.Format("UPDATE {0} SET VALUE = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", table, value, controlId, recordId)
Me.NonQuery(sql)
End Sub
#End Region
Public Function IsEqual(controlId As Integer, recordId As Integer, valueToCompare As Object)
Dim table = Me.formatTable("TBPMO_CONTROL_VALUE")
Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
Dim value = Me.Scalar(sql)
If (IsDBNull(valueToCompare) Xor IsDBNull(value)) Then
Return False
End If
Return value = valueToCompare
End Function
#Region "=== DATABASE ==="
Public Function Scalar(queryString As String)
Dim conn As New SqlConnection(_connstring)
Dim cmd As New SqlCommand(queryString, conn)
@ -126,5 +133,37 @@ Public Class DB
Throw New Exception(String.Format("Error while executing SQL Query ({0}): {1}", queryString, ex.Message))
End Try
End Function
#End Region
#Region "=== IMAGES ==="
Public Sub InsertImage(bimage As Byte(), ControlId As Integer, RecordId As Integer)
Dim table = Me.formatTable("TBPMO_CONTROL_IMAGE")
Dim sql = String.Format("INSERT INTO {0} (CONTROL_ID, RECORD_ID, IMG) VALUES (@CONTROL_ID, @RECORD_ID, @IMG)", table)
Dim conn As New SqlClient.SqlConnection(_connstring)
Dim cmd As New SqlClient.SqlCommand(sql, conn)
cmd.Parameters.Add("@IMG", SqlDbType.Binary).Value = bimage
cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlId
cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordId
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
Public Sub UpdateImage(bimage As Byte(), ControlId As Integer, RecordId As Integer)
Dim table = Me.formatTable("TBPMO_CONTROL_IMAGE")
Dim sql = String.Format("UPDATE {0} SET IMG = @IMG WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID", table)
Dim conn As New SqlClient.SqlConnection(_connstring)
Dim cmd As New SqlClient.SqlCommand(sql, conn)
cmd.Parameters.Add("@IMG", SqlDbType.Binary).Value = bimage
cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlId
cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordId
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
#End Region
End Class