VB.NET: Извлечь изображение (blob) из MySQL DB

Question

У меня есть поле под названием «Фото» в MySQL DB. Это поле является блобом. Когда я использовал SQL Server, следующий код работает:

Dim conn As New MySqlConnection 
    conn.ConnectionString = ConnectionString 
    Dim cmd As New MySqlCommand 
    cmd.Connection = conn 
    conn.Open() 
    cmd.CommandText = "SELECT Foto FROM MyTable WHERE ID = '" & IDtxt.ToString & "'" 
    Dim reader As MySqlDataReader 

     reader = cmd.ExecuteReader 
     While reader.Read 
      If (IsDBNull(reader("Foto"))) Then 
       frmCartaIdentitaView.pctImage.Image = Nothing 
      Else 
       Dim byteImage() As Byte = reader("Foto") 
       Dim frmImageView stmFoto As New System.IO.MemoryStream(byteImage) 
       frmImageView.pctImage.Image = Image.FromStream(stmFoto) 
       frmImageView.pctImage.SizeMode = PictureBoxSizeMode.Zoom 
       frmImageView.Show() 
      End If 
     End While 

Но теперь, когда я использую MySQL, производится следующая ошибка: недопустимый параметр.

Answer 1

Если ваше поле идентификатора является целым числом, посмотрите, не прошло ли оно этой ошибки. Вместо этого:

cmd.CommandText = "SELECT Foto FROM MyTable WHERE ID = '" & IDtxt.ToString & "'" 

Попробуйте это:

cmd.CommandText = "SELECT Foto FROM MyTable WHERE ID = " & ctype(int32,IDtxt).ToString 

Answer 2

У меня была такая же проблема. Я получил эту ошибку, когда столбец BLOB был пуст, то я решил так: Извините, но я нашел этот пост только сейчас

Dim conn As New MySqlConnection 
conn.ConnectionString = ConnectionString 
Dim cmd As New MySqlCommand 
cmd.Connection = conn 
conn.Open() 
cmd.CommandText = "SELECT Foto, length(Foto) AS picLen FROM MyTable WHERE ID = '" & IDtxt.ToString & "'" 
Dim reader As MySqlDataReader 

    reader = cmd.ExecuteReader 
    While reader.Read 
     If (reader("picLen "))=0 Then 
      frmCartaIdentitaView.pctImage.Image = Nothing 
     Else 
      Dim byteImage() As Byte = reader("Foto") 
      Dim frmImageView stmFoto As New System.IO.MemoryStream(byteImage) 
      frmImageView.pctImage.Image = Image.FromStream(stmFoto) 
      frmImageView.pctImage.SizeMode = PictureBoxSizeMode.Zoom 
      frmImageView.Show() 
     End If 
    End While