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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعده كود بالفيجوال بيسك 2010 للمحترفين معاذ ابراهيم العامري 16 337 أمس, 05:29 PM
آخر رد: elgokr
Lightbulb احتاج كود لفحص ملف على موقع aldery 7 90 05-07-18, 03:26 AM
آخر رد: elgokr
  احتاج كود عدم السماح للمستخدم بتجاوز المحاولات maram2423 4 104 28-06-18, 07:44 AM
آخر رد: elgokr
  اسم الاداة شكل الموجودة في اوفيس 2010 atefkhalf2004 10 213 13-06-18, 06:51 PM
آخر رد: elgokr
  [نقاش] كيفية ربط قاعدة بينات بفجوال بيسك 2010 egy-sat 3 134 10-06-18, 04:52 PM
آخر رد: elgokr
  احتاج رأيكم في رسائل sms hglogtd 20 468 10-06-18, 07:17 AM
آخر رد: hglogtd
  [VB.NET] مشكله فى برنامج vb.net 2010 Mahmoud Nasser 8 144 08-06-18, 07:39 PM
آخر رد: elgokr
  احتاج مساعدة في كود التعديل maram2423 5 128 08-06-18, 03:53 PM
آخر رد: elgokr
  احتاج مساعدتكم في كود الطباعة maram2423 0 57 05-06-18, 08:54 PM
آخر رد: maram2423
  احتاج كود يقوم بتقريب هذا الرقم 2.500 الي 5 farah112233 2 91 01-06-18, 06:25 AM
آخر رد: sendbad100

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


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