This commit is contained in:
SchreiberM
2016-03-07 09:13:55 +01:00
parent 45e67aea4e
commit 3266da1baa
17 changed files with 8363 additions and 8828 deletions

View File

@@ -32,8 +32,8 @@
Dim image As Bitmap = CType(Drawing.Image.FromFile(pbNew.ImageLocation, True), Bitmap)
Dim bimage() As Byte = BitmapToByteArray(image)
Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName)
Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID"
'UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID"
Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID"
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)
@@ -41,6 +41,7 @@
cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid
conn.Open()
'ClassDatabase.Execute_non_Query(SQL, True)
cmd.ExecuteNonQuery()
conn.Close()