[سؤال] عرض بيانات جدول في الدتا جريد بناءا على تكست بوكس

كود :

   Private Sub TXT_FATH_Leave(sender As Object, e As System.EventArgs) Handles TXT_FATH.Leave



        Dim dr As OleDb.OleDbDataReader



        Dim cmd As New OleDb.OleDbCommand("select STU_ID,STU_NAM,FATH_COD,FATH_MOB1,FATH_MOB2,RELA from STU_TBL where STU_FATH LIKE '%" & TXT_FATH.Text & "%'", con)

        con.Open()

        dr = cmd.ExecuteReader

        dr.Read()



        For I As Integer = 0 To DGV_STU.Rows.Count - 1

            TXT_N_MOB.Text = dr("FATH_MOB1")

            TXT_N_MOB2.Text = dr("FATH_MOB2")

            CMB_REL.Text = dr("RELA")

            TXT_FATH_ID.Text = dr("FATH_COD")



            DGV_STU.Rows(I).Cells("ST_ID").Value = dr("STU_ID")

            DGV_STU.Rows(I).Cells("STU_NAM").Value = dr("STU_NAM")

        Next

        dr.Close()

        con.Close()



    End Sub

كود :

      Dim dr As OleDb.OleDbDataReader



       Dim cmd As New OleDb.OleDbCommand("select STU_ID,STU_NAM,FATH_COD,FATH_MOB1,FATH_MOB2,RELA from STU_TBL where STU_FATH LIKE '%" & TXT_FATH.Text & "%'", con)

       con.Open()

       dr = cmd.ExecuteReader

       dr.Read()



       For I As Integer = 0 To DGV_STU.Rows.Count - 1

           TXT_N_MOB.Text = dr("FATH_MOB1")

           TXT_N_MOB2.Text = dr("FATH_MOB2")

           CMB_REL.Text = dr("RELA")

           TXT_FATH_ID.Text = dr("FATH_COD")



           DGV_STU.Rows(I).Cells("ST_ID").Value = dr("STU_ID")

           DGV_STU.Rows(I).Cells("STU_NAM").Value = dr("STU_NAM")

       Next

       dr.Close()

       con.Close()

كود :

Dim da As New OleDbDataAdapter

        Dim dt As New DataTable



        Try

            dt.Clear()

            da = New OleDbDataAdapter("select * from BILL_D_TBL where  FATH_NAM like '%" & TXT_SER.Text & "%'", con)

            da.Fill(dt)

            OLD_DGV.DataSource = dt

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        End Try

كود :

   Private Sub TXT_FATH_Leave(sender As Object, e As System.EventArgs) Handles TXT_FATH.Leave



        Dim dr As OleDb.OleDbDataReader

        Dim cmd As New OleDb.OleDbCommand("select FATH_COD,FATH_MOB1,FATH_MOB2,RELA from STU_TBL where STU_FATH LIKE '%" & TXT_FATH.Text & "%'", con)

        con.Open()

        dr = cmd.ExecuteReader

        dr.Read()

        TXT_FATH_ID.Text = dr("FATH_COD")

        TXT_N_MOB.Text = dr("FATH_MOB1")

        TXT_N_MOB2.Text = dr("FATH_MOB2")

        CMB_REL.Text = dr("RELA")

        dr.Close()

        con.Close()



        Call STUG()

        Try



            Dim dt As New DataTable

            dt.Clear()

            da = New OleDbDataAdapter("select STU_ID,STU_NAM,STU_MOB,STU_GEND,STU_GRAD from STU_TBL where  STU_FATH like '%" & TXT_FATH.Text & "%'", con)

            da.Fill(dt)

            DGV_STU.DataSource = dt

            DGV_STU.Columns(0).DataPropertyName("STU_ID").ToString()

            DGV_STU.Columns("STU_NAM").DataPropertyName("STU_NAM").ToString()

            DGV_STU.Columns("STU_MOB").DataPropertyName("STU_MOB").ToString()

            DGV_STU.Columns("STU_GEND").DataPropertyName("STU_GEND").ToString()

            DGV_STU.Columns("STU_GRAD").DataPropertyName("STU_GRAD").ToString()

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''

      

  Catch ex As Exception



           End Try

    End Sub