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

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


طيب خليها Oledb.Datareader