منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=15602)

الصفحات: 1 2


تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Namer - 27-04-16

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 
السلام عليكم هذا كود البحث المشكلة اريد وضع مسج بوكس عند عدم وجود الاسم وشكرا لكم


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - سعود - 27-04-16

PHP كود :
if ds.tables("tb").rows.count=0 then
msgbox
("الاسم غير موجود")
end if 



RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Namer - 27-04-16

(27-04-16, 02:02 PM)سعود كتب :
PHP كود :
if ds.tables("tb").rows.count=0 then
msgbox
("الاسم غير موجود")
end if 

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


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - سعود - 27-04-16

اخي الكريم الكود اللي كتبته لك يعطيك رسالة بعدم وجود شي بالسجل.
اما رسالة الخطا فهي بسبب شي اخر

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

مثال بسيط
http://vb4arb.com/vb/thread-13641.html


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Namer - 27-04-16

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


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - amgad525 - 27-04-16

كود :
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



RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Namer - 28-04-16

(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
اشكرك اخي ولكن اريد عند كتابة الاسم وعند عدم وجود الاسم تظهر مسج بوكس


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Adrees - 28-04-16

جرب بالطريقة التالية
الكود خاص بالاكسس بإمكانك ان تأخذ الفكرة منه

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 



RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - Namer - 28-04-16

(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


RE: تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) - سعود - 28-04-16

اخي الكريم Namer
انا كتبت لك الكود بناء على الداتاست المكتوبة بسؤالك.
بينما الحل كان في بناء اتصال جديد ومتغيرات جديدة.