Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Oct 5, 2002

CreateDataReader_OleDb - Create an OLEDB Data Reader

' return a DataReader over an OleDbConnection
'
' CONNSTRING is the connection string
' SQL is the SQL Select statement to be executed
'
' the connection will be automatically closed when the DataReader is disposed
' any exception is returned to the caller

Function CreateDataReader_OleDb(ByVal connString As String, _
    ByVal sql As String) As System.Data.OleDb.OleDbDataReader
    ' open the connection
    Dim cn As New System.Data.OleDb.OleDbConnection(connString)
    cn.Open()
    ' prepare the SQL SELECT command
    Dim cmd As New System.Data.OleDb.OleDbCommand(sql, cn)
    ' create a DataReader - note the CloseConnection argument
    ' which causes the Connection to be closed when the DataReader is disposed
    Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader _
        (CommandBehavior.CloseConnection)
    ' dispose the Command object and return the result
    cmd.Dispose()
    Return dr
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap