Private Logo_Pfad, Logo_Name As String
Dim FC As FileChooser
FC.Initialize
FC.Title = "Logo einfügen"
FC.InitialDirectory = "C:\"
' Dim DirChosen As String
FC.SetExtensionFilter("Image",Array As String("*.jpg","*.png","*.bmp"))
Dim FileChosen As String
FileChosen=FC.ShowOpen(frm)
'convert the image file to a bytes array
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput("", FileChosen)
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
'write the image to the database
SQL_DB.InitializeSQLite(File.DirApp,"Alle_Betriebsdaten.db", True)
SQL_DB.ExecNonQuery("UPDATE Firma_Grunddaten SET Logo_Name = 'Logo', Logo_Image = '" & Array As Object(Buffer) & "'")