Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

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

CreateDataAdapter_OleDb - Create an initialized OLEDB Data Adapter

' create and return a DataAdapter over an open OleDbConnection
' and initialize its delete, insert, and update commands
' CN is the OleDbConnection object
' SQL is the SQL Select statement to be executed
' any exception is thrown to the caller

Function CreateDataAdapter_OleDb(ByVal cn As System.Data.OleDb.OleDbConnection, _
    ByVal sql As String) As System.Data.OleDb.OleDbDataAdapter
    ' Create the DataAdapter
    Dim da As New System.Data.OleDb.OleDbDataAdapter(sql, cn)
    ' create a CommandBuilder
    Dim cb As New System.Data.OleDb.OleDbCommandBuilder(da)
    ' derive the delete/insert/update commands
    da.DeleteCommand = cb.GetDeleteCommand()
    da.InsertCommand = cb.GetInsertCommand()
    da.UpdateCommand = cb.GetUpdateCommand()
    ' dispose the CommandBuilder and return the result
    Return da
End Function
Francesco Balena
Comment and Contribute






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