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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج كود لعرض مواعيد محدده بتاريخ hglogtd 7 184 22-02-17, 12:47 AM
آخر رد: مساعدة
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 89 20-02-17, 02:40 AM
آخر رد: ناصر شير
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  لايعمل البرنامج في فيجول ستوديو 2010 thams 0 52 23-01-17, 10:29 PM
آخر رد: thams
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 267 21-01-17, 04:35 PM
آخر رد: abudawoodd
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 650 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 196 06-12-16, 04:34 PM
آخر رد: Ayman97
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 188 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  احتاج كود في ريبورت فيور بشرطين hglogtd 3 186 21-11-16, 09:01 PM
آخر رد: hglogtd
  ربط قاعدة بيانات اكسس 2010 مع فيجوال 2012 diab4diab 2 281 15-11-16, 10:24 PM
آخر رد: thevirus

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


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