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

السلام عليكم هذا كود البحث المشكلة اريد وضع مسج بوكس عند عدم وجود الاسم وشكرا لكم

(27-04-16, 02:02 PM)سعود كتب : [ -> ]

PHP كود :

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


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

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

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

---

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

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

(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

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

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

(28-04-16, 12:10 PM)Adrees كتب : [ -> ]جرب بالطريقة التالية
الكود خاص بالاكسس بإمكانك ان تأخذ الفكرة منه

PHP كود :

   Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles 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
انا كتبت لك الكود بناء على الداتاست المكتوبة بسؤالك.
بينما الحل كان في بناء اتصال جديد ومتغيرات جديدة.