Как добавить изображение в VB.net на Xammp MySql с этим кодом - PullRequest
0 голосов
/ 27 февраля 2019

Здравствуйте, поиск в Интернете кода о том, как добавить изображение в VB в Mysql, но я нахожу это сложным, потому что я использую код, который я предпочитаю.Есть ли другой способ сделать это.

вот мой код:

 Private Sub register_Click(sender As Object, e As EventArgs) Handles register.Click
    Dim command As New MySqlCommand


    Dim MySqlConnection As New MySqlConnection("host=127.0.0.1; user=root; database=library")
    Dim READER As MySqlDataReader


    Try
        MySqlConnection.Open()
        Dim query As String
        query = "insert into library.student (ID, First_name, Middle_name, Last_name, Course, Address, Contact_Number, RFID , image  ) values ('" & idnum.text & "','" & fname.text & "','" & mname.text & "','" & lname.text & "','" & course.text & "','" & address.text & "','" & contact.text & "','" & rfid.text & "','" & rfid.text & "')"
        command = New MySqlCommand(query, MySqlConnection)
        READER = command.ExecuteReader

        MessageBox.Show("Data saved!")


        MySqlConnection.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        MySqlConnection.Dispose()

    End Try
End Sub

Private Sub BunifuFlatButton1_Click(sender As Object, e As EventArgs) Handles BunifuFlatButton1.Click



    Dim opf As New OpenFileDialog

    opf.Filter = "Choose Image(*.JPG; *.PNG;*.GIF;)|*.jpg;*.png;*.gif"

    If opf.ShowDialog = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(opf.FileName)

    End If
End Sub

BunifuFlatButton1_Нажмите, чтобы открыть диалоговое окно для выбора изображения.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...