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

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
    cb.Dispose()
    Return da
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap