تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود خاص بقراءة البار كود فجول ستديو 2010
#1
احتاج كود خاص بقراءة البار كود فجول ستديو 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
ه تعديلعليه اكون شاكر لكم
الرد
تم الشكر بواسطة:
#2
علشان انت قفلت الاتصال
conn.Close()
يجب عليك فتح الاتصال قبل عملية البحث الجديده
ولو واجهت مشكله ارسل الجزء ده من المشروع فى مشروع جديد ونعدله ليك
اوك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] ملصقات البار كود مع crystal report Rabeea Qbaha 7 128 07-12-18, 03:39 AM
آخر رد: Rabeea Qbaha
  البار كود المنتج لا يقراء من جهاز الباركود [تم الحل] Rabeea Qbaha 0 60 07-12-18, 03:36 AM
آخر رد: Rabeea Qbaha
  [VB.NET] مطلوب التعديل عالمثال المرفق للطباعة بفيجوال بيسك 2010 دوت نت hbsbamaga 1 119 23-11-18, 12:51 PM
آخر رد: hbsbamaga
  [VB.NET] طلب رابط تحميل Visual Basic 2010 Express Mostafa elo 1 88 21-11-18, 05:54 PM
آخر رد: elgokr
  [VB.NET] مشكلة عدم ظهور كريستال ريبورت في فجول 2013 عبدالرحمن بشري عمر 9 124 17-11-18, 03:31 AM
آخر رد: عبد العزيز البسكري
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 80 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
Heart احتاج كود بحث ahmadpal 2 90 08-11-18, 08:42 PM
آخر رد: ahmadpal
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 2 156 22-10-18, 12:57 PM
آخر رد: Mohamed Magdy
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 106 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 159 16-10-18, 04:55 PM
آخر رد: mohamedgadain61

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم