Member 14810139 Ответов: 3

Как вставить фотографию в MS acess с помощью VB

Проблема "синтаксической ошибки в операторе INSERT into"

Что я уже пробовал:

Private Sub saveImage(sql As String)

      Try

          Dim arrImage() As Byte
          Dim mstream As New System.IO.MemoryStream()


          PictureBoxphoto.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)


          arrImage = mstream.GetBuffer()


          Dim FileSize As UInt32
          FileSize = mstream.Length

          mstream.Close()

          con.Open()

          cmd = New OleDbCommand
          With cmd
              .Connection = con
              .CommandText = sql
              .Parameters.AddWithValue("@img", arrImage)
              .ExecuteNonQuery()
          End With
      Catch ex As Exception
          MsgBox(ex.Message)
      Finally
          con.Close()
      End Try

  End Sub


Private Sub btnsavephoto_Click(sender As Object, e As EventArgs) Handles btnsavephoto.Click
       sql = "Insert into image(ID,img) Values('" & TextBoxpassport.Text & "',@img)"
       saveImage(sql)
       MsgBox("Image has been saved in the database")
   End Sub

3 Ответов

Рейтинг:
2

OriginalGriff

Никогда не объединяйте строки для построения команды SQL. Это оставляет вас широко открытыми для случайной или преднамеренной атаки SQL-инъекции, которая может уничтожить всю вашу базу данных. Вместо этого всегда используйте параметризованные запросы.

Когда вы объединяете строки, вы вызываете проблемы, потому что SQL получает такие команды, как:

SELECT * FROM MyTable WHERE StreetAddress = 'Baker's Wood'
Цитата, добавленная пользователем, завершает строку в том, что касается SQL, и вы получаете проблемы. Но могло быть и хуже. Если я приду и наберу вместо этого: "x';DROP TABLE MyTable;--", то SQL получит совсем другую команду:
SELECT * FROM MyTable WHERE StreetAddress = 'x';DROP TABLE MyTable;--'
Которые SQL видит как три отдельные команды:
SELECT * FROM MyTable WHERE StreetAddress = 'x';
Совершенно правильный выбор
DROP TABLE MyTable;
Вполне допустимая команда "удалить таблицу" 
--'
А все остальное-это комментарии.
Так оно и происходит: выбирает любые совпадающие строки, удаляет таблицу из базы данных и игнорирует все остальное.

Поэтому всегда используйте параметризованные запросы! Или будьте готовы часто восстанавливать свою БД из резервной копии. Вы ведь регулярно делаете резервные копии, не так ли?

Maciej Los

5ed!

Рейтинг:
1

CHill60

Далее к решению 2 - существует абсолютный максимальный размер для баз данных MS Access, который составляет около 2 ГБ. Хранение реальных фотографий в этих базах данных очень и очень быстро достигнет максимума.

Один из вариантов-иметь специальную папку для хранения изображений. Дайте каждому из них уникальное имя (например, GUID) и сохраните относительное расположение изображения в базе данных, а не само изображение.

Maciej Los

5ed!

Рейтинг:
0

MadMyche

Кроме того, SQL-инъекция уязвимость выше... Я не верю, что ... OleDB класс поддерживает именованные параметры в запросе; каждый из них должен быть заменен на ? (вопросительный знак) и затем их нужно добавить по порядку.

Я сложил ваш код в один блок, вы можете переставить его по мере необходимости

	qry = "Insert into image(ID,img) Values(?, ?)"

	con.Open()
	cmd = New OleDbCommand(qry, con)
	With cmd
		.Parameters.AddWithValue("@img", TextBoxpassport.Text)
		.Parameters.AddWithValue("@img", arrImage)
		.ExecuteNonQuery()
	End With

Catch ex As Exception
	MsgBox(ex.Message)
Finally
	con.Close()
End Try

Maciej Los

5ed!

MadMyche

Спасибо