devxlogo

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

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 IfEnd Function

devx-admin

Share the Post: