منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج (/showthread.php?tid=28729)

الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - georgos - 23-02-19

مرحبا يا شباب

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

كود :
If e.KeyCode = Keys.Enter Then
           Try
             
               cmd = New OleDb.OleDbCommand("select Pro_Name from TBL_Products where Pro_Code = " & txtprocode.Text, con)
               con.Open()
               Dim drr As OleDb.OleDbDataReader = cmd.ExecuteReader
               If drr.HasRows Then
                   txtdes.Text = drr(0)



               Else
                   MsgBox("This Product Not Found !", MsgBoxStyle.Exclamation, "Sorry !!")
                   txtprocode.Clear()
                   txtdes.Clear()
                   txtqu.Clear()
                   txtmoms.Clear()
                   txtPris.Clear()
                   txtrbt.Clear()
                   txttotalt.Clear()

                   txtprocode.Focus()

               End If
               drr.Close()



           Catch ex As Exception
               Exit Sub

           Finally
               con.Close()
           End Try

       End If

 Pro_Name : اسم المنتج
pro_Code : كود المنتج

مع العلم ترتيب الاعمدة بالجدول :
Pro_ID
Pro_Code
Pro_Name

txtdes : هو تكتست بوكس لاظهار اسم المنتج

RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - حريف برمجة - 23-02-19

(23-02-19, 03:25 AM)georgos كتب : مرحبا يا شباب

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

كود :
If e.KeyCode = Keys.Enter Then
           Try
             
               cmd = New OleDb.OleDbCommand("select Pro_Name from TBL_Products where Pro_Code = " & txtprocode.Text, con)
               con.Open()
               Dim drr As OleDb.OleDbDataReader = cmd.ExecuteReader
               If drr.HasRows Then
                   txtdes.Text = drr(0)



               Else
                   MsgBox("This Product Not Found !", MsgBoxStyle.Exclamation, "Sorry !!")
                   txtprocode.Clear()
                   txtdes.Clear()
                   txtqu.Clear()
                   txtmoms.Clear()
                   txtPris.Clear()
                   txtrbt.Clear()
                   txttotalt.Clear()

                   txtprocode.Focus()

               End If
               drr.Close()



           Catch ex As Exception
               Exit Sub

           Finally
               con.Close()
           End Try

       End If

 Pro_Name : اسم المنتج
pro_Code : كود المنتج

مع العلم ترتيب الاعمدة بالجدول :
Pro_ID
Pro_Code
Pro_Name

txtdes : هو تكتست بوكس لاظهار اسم المنتج

أولاً : عدل هذا السطر :

كود :
                cmd = New OleDb.OleDbCommand("select Pro_Name from TBL_Products where Pro_Code = " & txtprocode.Text & " ", con)


ثانياً : هل الحقل Pro_Code رقمي او نصي ؟

اذا رقمي الكود سليم .

إذا نصي يجب تعديله كالتالي :


كود :
                cmd = New OleDb.OleDbCommand("select Pro_Name from TBL_Products where Pro_Code = '" & txtprocode.Text & "'" , con)


RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - georgos - 23-02-19

pro_code رقمي
ونفس المشكلة ال else تتنفذ لكن
كود :
 txtdes.Text = drr(0)

لا تتفذ

RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - asemshahen5 - 23-02-19

جرب هذا الكود إذا لم ينجح ضع مثالا مصغرا عن البرنامج أي فورم مختصر مع قاعدة البيانات .

PHP كود :
Dim StrSQL as string = "select Pro_Name from TBL_Products where Pro_Code = " & CInt(txtprocode.Text) 
 If Con.State = ConnectionState.Closed Then Con.Open()
 Dim da As New OleDbDataAdapter(StrSQL, con)
 Dim dt As New DataTable
 da.Fill(dt)
 If Con.State = ConnectionState.Open Then Con.Close()
 txtdes.Text = dt.rows(0)("Pro_Name").ToString 


RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - elgokr - 23-02-19

مرحباً اخى الفاضل

فى البداية تعال على السطر التالى
كود :
Exit Sub

واستبدله بـ 
كود :
               MsgBox(ex.Message)

حتى تظهر معك رسالة الخطاء ووضعها هنا لتوضح معنا اين تقع المشكلة لديك

تحياتى لك
وتمنياتى لك التوفيق


RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - georgos - 23-02-19

لم تنجح Sad

RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - elgokr - 23-02-19

فقط قم باستبدال الكود كاملاً بهذا الكود
كود :
       If e.KeyCode = Keys.Enter Then
           'Get product info
           Dim StrSQL As String = "select Pro_Name from TBL_Products where Pro_Code = " & CInt(txtprocode.Text)
           Dim da As New OleDbDataAdapter(StrSQL, con)
           Dim dt As New DataTable
           da.Fill(dt)
           If dt.Rows.Count <> 0 Then
               txtdes.Text = dt.Rows(0)("Pro_Name").ToString
           Else
               MsgBox("This Product Not Found !", MsgBoxStyle.Exclamation, "Sorry !!")
               txtprocode.Clear()
               txtdes.Clear()
               txtqu.Clear()
               txtmoms.Clear()
               txtPris.Clear()
               txtrbt.Clear()
               txttotalt.Clear()

               txtprocode.Focus()
           End If
       End If

وسيتم حل مشكلة ظهور الرسالة بمجرد الكتابة

تحياتى لك
وتمنياتى لك التوفيق


RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - georgos - 23-02-19

شكرا لك اخي الكريم

RE: الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج - elgokr - 23-02-19

الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق