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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعديل على مشروع فيجول ستديو EMADMW17 8 112 منذ 50 دقيقة مضت
آخر رد: elgokr
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 97 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 101 07-02-19, 11:23 PM
آخر رد: princelovelorn
  خطأ في اقلاع الفجوال 2010 raaddawood 3 95 05-02-19, 12:51 AM
آخر رد: سعود
  [كود] احتاج كود بسيط لتشفير ملف exe dametucorazon 6 256 30-01-19, 11:14 AM
آخر رد: dametucorazon
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 274 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  احتاج مساعدة لحل مشكلة Aziz170020 2 125 27-01-19, 12:38 PM
آخر رد: sendbad100
  مشكلة بعد عمل setup لبرنامج في فيجوال بيسك 2010 السائل 11 400 02-01-19, 05:13 PM
آخر رد: السائل
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 485 01-01-19, 01:12 AM
آخر رد: YousefOkasha
  [VB.NET] ربط قاعدة بيانات اكسس2007مع 2010 دوت نت raaddawood 11 8,255 01-01-19, 12:35 AM
آخر رد: اسامه الهرماوي

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


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