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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 63 أمس, 04:55 PM
آخر رد: mohamedgadain61
  احتاج مساعدة ارجوكم naderalkeng54 11 247 29-09-18, 12:01 PM
آخر رد: naderalkeng54
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 1 68 21-09-18, 08:12 PM
آخر رد: aljzazy
  [سؤال] استفسار عن فيجوال ستديو اصدار 2015 essawq 15 393 15-09-18, 05:36 PM
آخر رد: essawq
  احتاج شرح بسيط medomshakl20 3 109 26-08-18, 10:57 PM
آخر رد: elgokr
  احتاج كود التحقق من صن محمل على ويب راوزر bidaya 1 94 09-08-18, 04:12 AM
آخر رد: elgokr
  [VB.NET] احتاج كود بسيط medomshakl20 7 242 08-08-18, 10:40 PM
آخر رد: elgokr
  [سؤال] كيفية اضافة signalr للفيجوال 2010 alims 2 136 27-07-18, 02:21 PM
آخر رد: mero5000
  طلب مساعده كود بالفيجوال بيسك 2010 للمحترفين معاذ ابراهيم العامري 20 684 22-07-18, 11:16 PM
آخر رد: elgokr
  [كود] احتاج فكرة لعمل تقسيم الصنف الى حبة شدة كرتون فراس الغزي 2 144 20-07-18, 02:44 AM
آخر رد: sendbad100

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


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