OutputStream1.InitializeToBytesArray(1024)
File.Copy2(InputStream1, OutputStream1)
Buffer = OutputStream1.ToBytesArray
Dim MyStringUtilities As StringUtils
Dim PictureBuffer As String = MyStringUtilities.EncodeBase64(Buffer)
MySqlquery = "UPDATE " & DbMainTableName & _
" SET " & MainTableColumnNames(FotoIndex) & " = '" & PictureBuffer & "' " & _
"WHERE " & MainTableColumnNames(0) & " = '" & txtMainTableColumnNames0.Text & _
"' AND " & MainTableColumnNames(3) & " = '" & TxtProjectReferentie.Text & _
"' AND " & MainTableColumnNames(7) & " = '" & TxtSerienummer.Text & "'"
MySql.ExecNonQuery(MySqlquery)