Change DataReader to return a table

R

R Walker

Public Function Get_Emp() As System.Data.IDataReader
Dim myConnStr As String = "Provider=""MSDAORA.1"";Data Source=taxdb"
Dim mySelectQuery As String = "Select * from EmpInfo"
Dim myConnection As New OleDb.OleDbConnection(myConnStr)
Dim myCommand As New OleDb.OleDbCommand(mySelectQuery, myConnection)
Dim myReader As OleDb.OleDbDataReader

Try
myConnection.Open()
myReader = myCommand.ExecuteReader()

** just showing the file
Do While myReader.Read()
MessageBox.Show(myReader.Item(1))
Loop

** I need myReader to be a table or something to return
Return [SOME TABLE]
** Everything I've tried doesn't work

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
myReader.Close()
myConnection.Close()
End Try

End Function
 
Top