مليء DataGridView بناء علي Parameter

السلام عليكم

ممكن تجرب الكود ده

sql_connection = New SqlConnection("Data Source=.\SQLEXPRESS;initial catalog=ws2connect;integrated security=true")

sql_command = New SqlCommand("sp_get_customers", sql_connection)

sql_command.CommandType = CommandType.StoredProcedure

sql_command.Parameters.Add("@id_number", SqlDbType.VarChar).Value = "%731%"

sql_connection.Open()

sql_reader = sql_command.ExecuteReader(CommandBehavior.CloseConnection)

DataGridView1.DataSource = sql_reader

لم يعمل الكود

عموماً شكراً لك لقد راجعت الكود مرة أخري وتوصلت للحل كما هو موضح أدناه

sqlcon.Open()

        Dim cmd As New SqlCommand("CheckFind", sqlcon)
        cmd.CommandType = CommandType.StoredProcedure

        Dim _CBOCompany As String = Convert.ToString(MDI.CBOCompany.Text)
        cmd.Parameters.Clear()
        cmd.Parameters.Add("@DATAAREAID", SqlDbType.NVarChar, (100)).Value = _CBOCompany
        dt = New DataTable

        da.SelectCommand = cmd
        da.Fill(ds, "BANKCHEQUETABLE")
        FChDGV.DataSource = ds.Tables("BANKCHEQUETABLE")

        FChDGV.Columns(0).HeaderText = "Check Number"
        FChDGV.Columns(1).HeaderText = "Bank ID"
        FChDGV.Columns(2).HeaderText = "Trans Date"

        FChDGV.Columns(0).Width = 80
        FChDGV.Columns(1).Width = 110
        FChDGV.Columns(2).Width = 100

        With Me.FChDGV
            .RowsDefaultCellStyle.BackColor = Color.Khaki
            .AlternatingRowsDefaultCellStyle.BackColor = Color.White
        End With

        sqlcon.Close()