Problema con ExecuteReader y scanner de codigos de barra
Publicado por Edgar (55 intervenciones) el 08/06/2019 21:02:11
Buenas tardes estoy creando una base de datos en acces, explico mi problema:
Genero un código de barras el cual solo arroja códigos: 19551955 (por ejemplo)
Ese número está en una base de datos Acces puesto que forma parte una fila
El scanner lee perfectamente el código/número 19551955.
Ahora quiero traer del Acces los campos que están en la línea de ese código, a unos Textbox, escribiendo a mano o leyendo con el scanner ese número 19551955 en un Textbox1.
Lo que sucede esque apenas comienzo a escribir a mano o a leer con el scanner en el Textbox1 me arroja este error:
Error:
My código:
Y busqué y no encuentro la solución, ayudenme :(
Genero un código de barras el cual solo arroja códigos: 19551955 (por ejemplo)
Ese número está en una base de datos Acces puesto que forma parte una fila
El scanner lee perfectamente el código/número 19551955.
Ahora quiero traer del Acces los campos que están en la línea de ese código, a unos Textbox, escribiendo a mano o leyendo con el scanner ese número 19551955 en un Textbox1.
Lo que sucede esque apenas comienzo a escribir a mano o a leer con el scanner en el Textbox1 me arroja este error:
Error:
My código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports System.DataImports iTextSharp.text.pdf
Imports System.Data.OleDb
Public Class Form3
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim conex As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.16.0; Data Source=" & Application.StartupPath & "\Inventory.accdb;Persist Security Info=False;")
conex.Open()
Dim cdm As New OleDbCommand("SELEC *FROM Product WHERE Code =@Code", conex)
cdm.Parameters.Add("@Code", OleDbType.VarChar).Value = TextBox1.Text
Dim dr As OleDbDataReader = cdm.ExecuteReader()
If dr.Read() Then
TextBox2.Text = dr("Name").ToString()
TextBox3.Text = dr("Description").ToString()
TextBox4.Text = dr("Quantity").ToString()
End If
dr.Close()
conex.Close()
End Sub
End Class
Y busqué y no encuentro la solución, ayudenme :(
Valora esta pregunta
0