Как я могу вставить штрих-код в базу данных MySQL? - PullRequest
Новая
       24

Как я могу вставить штрих-код в базу данных MySQL?

0 голосов
/ 17 октября 2019

Я пытаюсь вставить изображение штрих-кода в базу данных, используя AxBarCodeWiz, это инструмент, который генерирует штрих-код и отображается в виде картинки, и я могу редактировать штрих-код, используя его встроенное свойство.

Моя проблема заключается в том, что, когда я пытаюсь вставить штрих-код в базу данных, появляется сообщение об ошибке «Количество столбцов не соответствует значению в строке 1». Я думал, что это потому, что я использую неправильный тип данных в моей базе данных, поэтому я изменил его тип данных на BLOB, но все еще ошибка также пробовал CHAR, но все та же ошибка.

Это код, который я использую для вставки значений в базу данных, если это важно 

 Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

    Dim insertbarcode As String = "INSERT INTO eeldatabase.barcode(Barcode, ItemCode, Operation, BundleNumber, Color, Size, Quantity, Price, Amount) values( '" & AxBarCodeWiz3.Barcode & "', '" & txtItemCode.Text & "', '" & txtOperation.Text & "', '" & txtBundleNo.Text & "', '" & txtColor.Text & "', '" & txtSize.Text & "' '" & txtQuantity.Text & "', '" & txtPrice.Text & "', '" & txtAmount.Text & "')"
    Dim answer As Integer

    If txtItemCode.Text = "" Or txtOperation.Text = "" Or txtBundleNo.Text = "" Or txtColor.Text = "" Or txtSize.Text = "" Or txtQuantity.Text = "" Or txtPrice.Text = "" Or txtAmount.Text = "" Then
        MessageBox.Show("Please complete the required fields!", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

    Else

        answer = MsgBox("Add this Barcode to the database?", vbYesNo + vbQuestion, "Add Barcode")

        If answer = vbYes Then


            ExecuteQuery(insertbarcode)
            MessageBox.Show("Barcode successfuly added!")
            connection.Close()
            connection.Dispose()



            txtItemCode.Text = ""
            txtOperation.Text = ""
            txtBundleNo.Text = ""
            txtColor.Text = ""
            txtSize.Text = ""
            txtQuantity.Text = ""
            txtPrice.Text = ""
            txtAmount.Text = ""

        Else

            MessageBox.Show("Barcode not inserted")

            txtItemCode.Text = ""
            txtOperation.Text = ""
            txtBundleNo.Text = ""
            txtColor.Text = ""
            txtSize.Text = ""
            txtQuantity.Text = ""
            txtPrice.Text = ""
            txtAmount.Text = ""

        End If

        connection.Close()

        Dim table As New DataTable()
        Dim adapter As New MySqlDataAdapter("SELECT * FROM eeldatabase.barcode", connection)

        adapter.Fill(table)

        dgvBarcode.DataSource = table

    End If

End Sub

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

...