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
Nov 17, 2003

CreateDataAdapter - Creating a suitable DataAdapter object for a given connection object

' Create a suitable DataAdapter object for a given connection object.
' Requires Imports for System.Data, System.Data.Common, System.Data.OleDb,
'  System.Data.SqlClient, System.Data.Odbc and System.Data.OracleClient
'
' Example:
'    Dim da As DbDataAdapter = CreateDataAdapter("SELECT * FROM Titles", cn)

Function CreateDataAdapter(ByVal sql As String, ByVal cn As IDbConnection) As _
    DbDataAdapter
    If TypeOf cn Is OleDbConnection Then
        ' Create an OleDbDataAdapter and initialize its properties.
        Dim da As New OleDbDataAdapter(sql, DirectCast(cn, OleDbConnection))
        Dim cb As New OleDbCommandBuilder(da)
        da.UpdateCommand = cb.GetUpdateCommand()
        da.DeleteCommand = cb.GetDeleteCommand()
        da.InsertCommand = cb.GetInsertCommand()
        Return da
    ElseIf TypeOf cn Is SqlConnection Then
        ' Create an SqlDataAdapter and initialize its properties.
        Dim da As New SqlDataAdapter(sql, DirectCast(cn, SqlConnection))
        Dim cb As New SqlCommandBuilder(da)
        da.UpdateCommand = cb.GetUpdateCommand()
        da.DeleteCommand = cb.GetDeleteCommand()
        da.InsertCommand = cb.GetInsertCommand()
        Return da
    ElseIf TypeOf cn Is OdbcConnection Then
        ' Create an SqlDataAdapter and initialize its properties.
        Dim da As New OdbcDataAdapter(sql, DirectCast(cn, OdbcConnection))
        Dim cb As New OdbcCommandBuilder(da)
        da.UpdateCommand = cb.GetUpdateCommand()
        da.DeleteCommand = cb.GetDeleteCommand()
        da.InsertCommand = cb.GetInsertCommand()
        Return da
    ElseIf TypeOf cn Is OracleConnection Then
        ' Create an SqlDataAdapter and initialize its properties.
        Dim da As New OracleDataAdapter(sql, DirectCast(cn, OracleConnection))
        Dim cb As New OracleCommandBuilder(da)
        da.UpdateCommand = cb.GetUpdateCommand()
        da.DeleteCommand = cb.GetDeleteCommand()
        da.InsertCommand = cb.GetInsertCommand()
        Return da
    Else
        Throw New ArgumentException
    End If
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap