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

وبالمرة نستغل خبراتكم دام الموضوع مطروح بالمنتدى

والحين عملت عملية بحث ولم تطلع لي نتيجه واريد اظهار رسالة لا توجد بيانات اثناء عملية البحث ( ما هو الكود الذي ينفذ هالشي)

ولا يهمك لكن لدقة الاجابة
اطرح لنا الكود الخاص بالبحث كاملاً
بالتوفيق.

طبعا البحث بالضغط على زر البحث عن الرقم المتسلسل وجنبه تكست بوكس لادخال الرقم المتسلسل

---

---

مدري عندي احساس ان حل المسالة

datagridview 1= nothing

اظهر رسالة ان لا توجد بيانات التي تبحث عنها

جرب وبالتوفيق

comm
من وين جاء هذا الكود

(07-09-16, 01:25 PM)بادئ كتب : [ -> ]comm
من وين جاء هذا الكود

معليش غلطة
استيدلها ب cmd

(07-09-16, 09:30 AM)أبو عمر كتب : [ -> ]

حلين وانت اختار اللي يناسبك

PHP كود :

Dim cmd As New OleDbCommand("select * from Table1 where serialin like @serialin + '%'", con2010)
        cmd.Parameters.AddWithValue("@serialin", TextBox1.Text.Trim)
        con2010.Open()
        If comm.ExecuteScalar().ToString = "" Then
            MessageBox.Show("لا توجد نتائج")
            Exit Sub
        End If
            Table1.Load(cmd.ExecuteReader) Then
        DataGridView1.DataSource = Table1
        con2010.Close() 


الثاني

PHP كود :

Try
            Dim cmd As New OleDbCommand("select * from Table1 where serialin like @serialin + '%'", con2010)
            cmd.Parameters.AddWithValue("@serialin", TextBox1.Text.Trim)
            con2010.Open()
            Table1.Load(cmd.ExecuteReader) Then
            DataGridView1.DataSource = Table1
            con2010.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try 


جرب وبالتوفيق

 شكرا بس هل قمت بتجريب الاكواد

جرب كالتالي

(08-09-16, 02:39 PM)ابو ليلى كتب : [ -> ]جرب كالتالي

PHP كود :

               Dim cmd As New SqlClient.SqlCommand("select * from Table1 where serialin like @serialin + '%'", con2010)
                cmd.Parameters.AddWithValue("@serialin", TextBox1.Text.Trim)
                con2010.Open()
                Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader

                If reader.HasRows = False Then
                    MessageBox.Show("لا توجد نتائج")
                    DataGridView1.DataSource = Nothing
                Else
                    Table1.Load(reader)
                    DataGridView1.DataSource = Table1
                End If
                reader.Close()
                cmd.Dispose()
                con2010.Close() 


بس قاعدة البيانات ونوع الاتصال هو بالاكسس