22-01-15, 05:49 AM
احتاج كود خاص بقراءة البار كود فجول ستديو 2010
لان الكود اللي عندي يقراء اول سجل بالقاعدو فقط
انا ابيه يقرا جميع السجلال
عموما هذا الكود لو في
ه تعديلعليه اكون شاكر لكم
لان الكود اللي عندي يقراء اول سجل بالقاعدو فقط
انا ابيه يقرا جميع السجلال
عموما هذا الكود لو في
كود :
Private Sub TextBox20_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox20.KeyDown
If (e.KeyCode = Keys.Enter) Then
Try
If TextBox20.Text = "" Then MsgBox("يجب ادخال رقم بار كود اولا", vbInformation, "خطاء") : Exit Sub
Dim cmdSELECT As New OleDbCommand
cmdSELECT = New OleDbCommand("SELECT * FROM alsader WHERE code =code", conn)
cmdSELECT.Parameters.Add(New OleDbParameter("code", TextBox20.Text))
conn.Open()
Dim re As OleDbDataReader
re = cmdSELECT.ExecuteReader
If re.Read Then
TextBox1.Text = re(0).ToString
DateTimePicker5.Value = re(1).ToString
ComboBox3.Text = re(2).ToString
ComboBox2.Text = re(3).ToString
ComboBox1.Text = re(4).ToString
TextBox4.Text = re(5).ToString
TextBox5.Text = re(6).ToString
TextBox6.Text = re(7).ToString
ComboBox5.Text = re(8).ToString
TextBox8.Text = re(9).ToString
TextBox3.Text = re(10).ToString
ComboBox4.Text = re(11).ToString
TextBox21.Text = re(12).ToString
Else
MsgBox("رقم بار كود غير موجود ابحث برقم اخر")
End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
conn.Close()
End If
End Sub