[بادئ]

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

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

[أبو عمر]

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

[بادئ]

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

---

كود :

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)
DataGridView1.DataSource = Table1
      con2010.Close()

---

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

datagridview 1= nothing

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

[أبو عمر]

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

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 


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

[بادئ]

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 


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

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

[ابو ليلى]

جرب كالتالي

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() 


[بادئ]

(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() 


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

[ابو ليلى]

طيب خليها Oledb.Datareader