تقييم الموضوع :
  • 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()
يجب عليك فتح الاتصال قبل عملية البحث الجديده
ولو واجهت مشكله ارسل الجزء ده من المشروع فى مشروع جديد ونعدله ليك
اوك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] طلب كود فجول بيسك ضروري mohammedvego 3 151 11-11-17, 01:07 AM
آخر رد: a.ahmed
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 2 123 27-10-17, 01:52 PM
آخر رد: The Light Fire
  مساعده بقراءة معلومات الشيك من جهاز خاص بالشيكات Rabeea Qbaha 4 128 16-10-17, 08:12 PM
آخر رد: Rabeea Qbaha
  احتاج كود لطباعة الصور المخزنة في الداتا بيز Access sajakh 0 51 14-10-17, 10:33 PM
آخر رد: sajakh
  [سؤال] احتاج مساعده في البحث gnoonplas 9 236 14-10-17, 04:03 PM
آخر رد: Amir_alzubidy
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 139 20-09-17, 04:00 PM
آخر رد: alsouf
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 427 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [كود] احتاج الى تعديل :( MeDo Ly 2 140 25-08-17, 11:41 PM
آخر رد: أبو نوره
  [VB.NET] اريد رابط مباشر لبرنامج السيكول سيرفر 2010 امل عوض 1 114 25-08-17, 12:01 PM
آخر رد: سعود الشامان
  [vb6.0] مشكلة فى vb 2010 Express abdoamar 5 179 21-08-17, 10:19 PM
آخر رد: abdoamar

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


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