[خالد كامل1]

السلام عليكم ورحمة الله وبركاته

اخوانى الاحبه اتمنى من الله ان كتونوا جميعا بصحه جيده

عندى تكست بوكس استعمله فى قراءه جهاز قراءة الباركود يقرأ ممتاز ولكن عند اضافه كود فى حدث التكست شانج يقرأ رقم واحد

اين المشكله هل فى برمجه الكود او مشكله فنيه

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

أرفق الأكواد المستخدمة حتى يتم تحليل الكود ومعرفة أين المشكلة..

[خالد كامل1]

(19-12-23, 10:51 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

أرفق الأكواد المستخدمة حتى يتم تحليل الكود ومعرفة أين المشكلة..

كود :

       Dim dt_products2 As New DataTable
       Dim da As New OleDbDataAdapter
       dt_products2.Clear()
       da = New OleDbDataAdapter("select pro_code from products where pro_code = '" & pro_code.Text & "' ", con)
       'da.Fill(dt_products2)
       'If con.State = 1 Then con.Close()
       'con.Open()
       If pro_code.Text = "" Then
           Exit Sub
       End If
       If da.Fill(dt_products2) = 0 Then


           'For i = 0 To dt_products.Rows.Count - 1
           MsgBox("لا يوجد هذا الصنف")
       Else
           'If i <> pro_code.Text Then
           Dim cmd As New OleDbCommand
           With cmd
               .Connection = con
               If con.State = 1 Then con.Close()
               con.Open()
               .CommandType = CommandType.Text
               .CommandText = "select pro_code,pro_name,pro_sheraa from products where pro_code= @pro_code"
               .Parameters.AddWithValue("@pro_code", OleDbType.VarChar).Value = pro_code.Text
               Dim dr As OleDbDataReader = cmd.ExecuteReader
               'If con.State = 1 Then con.Close()
               'con.Open)
               'While dr.Read
               dr.Read()

               pro_name.Text = dr.Item(1)
               pro_price.Text = dr.Item(2)


               dr.Close()

               'End While


           End With
           'pro_code.Text = ""

       End If
       'con.Close()
       'pro_code.Text = ""

       con.Close()

[Taha Okla]

الكود المرفق لا يوجد به مشكلة برمجية ،، 
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
......    ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox   
 اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
.....     ......  
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress 
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق

أو في حدث  KeyDown   أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق
       

[خالد كامل1]

(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،، 
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
......    ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox   
 اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
.....     ......  
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress 
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق

أو في حدث  KeyDown   أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق
       

افادك واكرمك الله اخى الكريم

---

(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،، 
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
......    ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox   
 اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
.....     ......  
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress 
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق

أو في حدث  KeyDown   أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة  : 

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
''''  تضيف بعدها كود القراءة والتحقق
       

اخى الكريم هل يمكنك الاطلاع على تلك
  http://vb4arb.com/vb/thread-47629.html

[new_programer]

السلام عليكم

ممكن نتشارك فى موضوع واحد
لحل مشاكل تصميم وطباعة الباركود
ويكون مرجع لاستخدامة

انا عندى موضوع. تم طرحة

وكذلك عندى برنتر باركود للتجرىة

[HALIM ELEULMA]

لكود الذي قدمته يحاول استعراض بيانات من جدول products باستخدام رمز المنتج كمعرّف. يبدو أن هناك استعلامين SQL مختلفين مستخدمين للبحث عن نفس المعلومات.

لكن، المشكلة الرئيسية هنا تكمن في الاستخدام المتضارب لـ OleDbDataAdapter و OleDbCommand في هذا السياق. يجب التأكد من استخدام الأدوات المناسبة لتنفيذ استعلامات SQL واسترداد البيانات من قاعدة البيانات.

المشكلة الأخرى قد تكون في استخدام Exit Sub في حالة عدم وجود رمز المنتج. قد يكون هذا هو السبب الذي يجعل البرنامج يخرج دون الانتهاء من العملية.