تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم)
#1
PHP كود :
 Try
            
            If txtname
.Text = (""Then
                MsgBox
("يرجى ادخال الاسم لغرض البحث")
           End If
 
          ()conn.Open
            
"sqlstr = "Select From tb Where name=@name
          
(cmd = New SqlCommand(sqlstrconn
            cmd
.Parameters.Add("@name"SqlDbType.NVarChar50).Value txtname.Text
            
(da = New SqlDataAdapter(cmd
            ds 
= New DataSet
            
()ds.Clear
           
("da.Fill(ds, "tb

            bs 
= New BindingSource
            
("bs.DataSource = ds.Tables("tb

            
()txtid.DataBindings.Clear
            
()txtname.DataBindings.Clear
           
            
("txtid.DataBindings.Add("Text", bs, "id_name
         
("txtname.DataBindings.Add("Text", bs, "name
         
         
()conn.Close
        Catch ex 
As Exception
            If conn
.State ConnectionState.Open Then conn.Close
            
(MsgBox(ex.Message

        End 
Try 
السلام عليكم هذا كود البحث المشكلة اريد وضع مسج بوكس عند عدم وجود الاسم وشكرا لكم
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
if ds.tables("tb").rows.count=0 then
msgbox
("الاسم غير موجود")
end if 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: Namer , Namer , Adrees
#3
(27-04-16, 02:02 PM)سعود كتب :
PHP كود :
if ds.tables("tb").rows.count=0 then
msgbox
("الاسم غير موجود")
end if 

اشكرك اخي ولكن يظهر لي خطأ
الصورة في المرفقات


الملفات المرفقة صورة/صور
   
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#4
اخي الكريم الكود اللي كتبته لك يعطيك رسالة بعدم وجود شي بالسجل.
اما رسالة الخطا فهي بسبب شي اخر

كما انصحك باستخدام استعلام باتصال مباشر وليس داتاست.

مثال بسيط
http://vb4arb.com/vb/thread-13641.html
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: Namer
#5
اشكرك اخي
ولكن حاولت بكل الطرق و المشكلة لم تحل
اما طريقة الداتا سيت فانا افضلها
وسانتظر بقية الاجوبة
شاكر تعبك معي
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#6
كود :
If txtname.Text.Trim = String.Empty Then
            MsgBox("يرجى ادخال الاسم لغرض البحث")
            Exit Sub
        End If

        Try
            Dim cmd As New SqlCommand("Select [id_name] From [tb] Where [name] = @name", conn)
            cmd.Parameters.AddWithValue("@name", txtname.Text.Trim)
            conn.Open()
            txtid.Text = cmd.ExecuteScalar()
            conn.Close()

        Catch ex As Exception
            If conn.State = ConnectionState.Open Then conn.Close()
            MsgBox(ex.Message)
        End Try
الرد }}}}
تم الشكر بواسطة: Namer
#7
(27-04-16, 05:39 PM)amgad525 كتب :
كود :
       If txtname.Text.Trim = String.Empty Then
           MsgBox("يرجى ادخال الاسم لغرض البحث")
           Exit Sub
       End If

       Try
           Dim cmd As New SqlCommand("Select [id_name] From [tb] Where [name] = @name", conn)
           cmd.Parameters.AddWithValue("@name", txtname.Text.Trim)
           conn.Open()
           txtid.Text = cmd.ExecuteScalar()
           conn.Close()

       Catch ex As Exception
           If conn.State = ConnectionState.Open Then conn.Close()
           MsgBox(ex.Message)
       End Try
اشكرك اخي ولكن اريد عند كتابة الاسم وعند عدم وجود الاسم تظهر مسج بوكس
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#8
جرب بالطريقة التالية
الكود خاص بالاكسس بإمكانك ان تأخذ الفكرة منه

PHP كود :
   Private Sub TextBox3_TextChanged(sender As ObjectAs EventArgsHandles TextBox3.TextChanged
        Dim da 
As New OleDbDataAdapter("Select * from UTB where Uname Like'%" TextBox3.Text.Trim() & "%'"cn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       If dt.Rows.Count 0 Then
            MsgBox
("عفوا هذا الاسم غير موجود")
 
       Else

            DataGridView1
.DataSource dt

        End 
If

 
   End Sub 
الرد }}}}
تم الشكر بواسطة: Namer , Namer , سعود , honest
#9
(28-04-16, 12:10 PM)Adrees كتب : جرب بالطريقة التالية
الكود خاص بالاكسس بإمكانك ان تأخذ الفكرة منه

PHP كود :
   Private Sub TextBox3_TextChanged(sender As ObjectAs EventArgsHandles TextBox3.TextChanged
        Dim da 
As New OleDbDataAdapter("Select * from UTB where Uname Like'%" TextBox3.Text.Trim() & "%'"cn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       If dt.Rows.Count 0 Then
            MsgBox
("عفوا هذا الاسم غير موجود")
 
       Else

            DataGridView1
.DataSource dt

        End 
If

 
   End Sub 
اشكرك اخي جزاك الله خيرا لقد تم حل المشكلة Smile
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة: سعود , Adrees
#10
اخي الكريم Namer
انا كتبت لك الكود بناء على الداتاست المكتوبة بسؤالك.
بينما الحل كان في بناء اتصال جديد ومتغيرات جديدة.
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: Namer


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 98 أمس, 09:49 PM
آخر رد: سعود
  [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي dubai.eig 2 43 17-10-17, 10:22 AM
آخر رد: dubai.eig
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 108 17-10-17, 12:09 AM
آخر رد: e-coder
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 85 14-10-17, 10:55 PM
آخر رد: ابو روضة
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 41 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 36 13-10-17, 06:39 PM
آخر رد: e-coder
  ظهور البرنامج عند نسخ رابط ابو روضة 8 159 12-10-17, 02:47 PM
آخر رد: ابو روضة
  أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. nassery99 4 63 11-10-17, 09:17 PM
آخر رد: nassery99
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 900 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 60 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل

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


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