تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 145 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil

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


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