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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 8 124 24-05-17, 04:19 PM
آخر رد: alma2
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 109 16-05-17, 06:50 PM
آخر رد: moh_g
  كيف أضيف أداة تقرأ ملفات PDF إلى فيجوال 2010 محمد بن عطية 2 97 09-05-17, 07:59 PM
آخر رد: safalo
  احتاج كود انتقل فيه من textbox1 الى textbox2 بواسطه كود وليس tab contrlo mohammed.gadain61 6 160 22-04-17, 12:55 AM
آخر رد: A-R
  احتاج مساعده جدا لمشروعي :( a_abdullah 4 260 20-04-17, 11:35 PM
آخر رد: IBRA939
  احتاج مساعدة معقدة عجزت في طباعة صور باركود ب Datagridviwe وطباعتها في Reportviwer mohammed.gadain61 2 119 17-04-17, 05:26 PM
آخر رد: mohammed.gadain61
  السلام عليكم احتاج مساعدة بكود اختبار صغير داخل داتا جيرد mohammed.gadain61 4 106 16-04-17, 03:38 AM
آخر رد: mohammed.gadain61
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 3 313 14-04-17, 07:21 AM
آخر رد: slk
  كود لاستطيع نقل مشروع فجول دوت نت مع قاعدة البيانات اكسس الى اى جهاز اخر a.baomar 2 100 11-04-17, 11:27 PM
آخر رد: abdualla

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


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