استفسار عن ال datareader

اخي wa7id tamam

يمكنك ذلك عن طريق الكود التالي :

Dim rd As OleDbDataReader
Dim cmdSel As New OleDbCommand

With cmdSel
                .CommandType = CommandType.Text
                .CommandText = "SELECT * FROM EMPLOYEES WHERE EmpSerialNo= " & p
                .Connection = CON
            End With
rd = cmdSel.ExecuteReader

            While rd.Read
                Me.txtSerialNo.Text = rd("EmpSerialNo").ToString
                Me.txtPassportNo.Text = rd("PassportNo").ToString
                Me.txtAName.Text = rd("ArabicName").ToString
                Me.txtEName.Text = rd("EnglishName").ToString
End While

            rd.Close()

اتمنى اكون افدتك

واهلا وسهلا بك

الله يعطيك العافية يا ابو خالد والله ما قصرت معي