[rookan]

احتاج كود خاص بقراءة البار كود فجول ستديو 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

ه تعديلعليه اكون شاكر لكم

[WAEL ABED]

علشان انت قفلت الاتصال
conn.Close()
يجب عليك فتح الاتصال قبل عملية البحث الجديده
ولو واجهت مشكله ارسل الجزء ده من المشروع فى مشروع جديد ونعدله ليك
اوك