منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

(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()

الكود المرفق لا يوجد به مشكلة برمجية ،،
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ 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 '''' تضيف بعدها كود القراءة والتحقق

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

(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

السلام عليكم

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

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

خالد كامل1

Taha Okla

خالد كامل1

Taha Okla

خالد كامل1

new_programer

HALIM ELEULMA