Código:
#Region "ABSTRACT CONFIGURATION"
Protected Overridable Sub ConfigureParameterValue(ByRef cmd As IDbCommand, ByRef row As DataRow)
End Sub
Protected Overridable Sub ConfigureDataObject()
End Sub
#End Region
#Region "OTHERS METHODS"
Public Function GetDataTable() As DataTable Implements IDataObject.GetDataTable
Me.OpenConnection()
Dim da As IDataAdapter = DataFactory.CreateDataAdapter(commandTextSelect & Me.conditionClause, connection)
Dim dtTemp As DataTable = Nothing
Dim dsTemp As DataSet = Nothing
Try
dsTemp = New DataSet()
dtTemp = New DataTable()
da.Fill(dsTemp)
If dsTemp.Tables.Count <> 0 Then dtTemp = dsTemp.Tables(0)
Me.newRow = dtTemp.NewRow()
Catch ex As Exception
Throw ex
Finally
'Clear the memory used by the command
Me.CloseConnection()
da = Nothing
End Try
Return dtTemp
End Function
Public Function GetRecordCount() As Integer Implements IDataObject.GetRecordCount
Dim iResult As Integer = 0
Me.OpenConnection()
Dim cmd As IDbCommand = DataFactory.CreateCommand()
cmd.CommandText = commandTextSelect + Me.conditionClause
cmd.Connection = connection
Try
iResult = cmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
Finally
' Clear the memory used by the command
Me.CloseConnection()
cmd = Nothing
End Try
Return iResult
End Function
Protected Function GetNewRowFormat() As DataRow
Me.OpenConnection()
Dim da As IDataAdapter = DataFactory.CreateDataAdapter(commandTextSelect & " WHERE 1=0", connection)
Dim dtTemp As DataTable = Nothing
Dim dsTemp As DataSet = Nothing
Try
dsTemp = New DataSet()
dtTemp = New DataTable()
da.Fill(dsTemp)
If dsTemp.Tables.Count <> 0 Then dtTemp = dsTemp.Tables(0)
Me.newRow = dtTemp.NewRow()
Catch ex As Exception
Throw ex
Finally
'Clear the memory used by the command
Me.CloseConnection()
da = Nothing
End Try
Return dtTemp.NewRow()
End Function
Public Sub OpenConnection()
If currentConnection <> "" Then
If connection Is Nothing Then connection = DataFactory.CreateConnection()
If connection.State = ConnectionState.Closed Then
connection.ConnectionString = Me.currentConnection
connection.Open()
End If
Else
If connection.State = ConnectionState.Closed Then
connection.Open()
bCloseExternalConnectionAfterUse = True
End If
End If
End Sub
Public Sub CloseConnection() Implements IDataObject.CloseConnection
If currentConnection <> "" Then
If Not connection Is Nothing Then
connection.Dispose()
connection = Nothing
End If
Else
If bCloseExternalConnectionAfterUse Then connection.Close()
End If
End Sub
Public Function NewRow() As DataRow Implements IDataObject.NewRow
If NewRow Is Nothing Then NewRow = GetNewRowFormat()
Return NewRow
End Function
#End Region
End Class
End Namespace
ahora me da error en la funcion NewRow, DataTable y Connection
Aqui les dejo los proyectos
Original CSharp
http://www.sendspace.com/file/ewwf1j
Traducido a VB
http://www.sendspace.com/file/bsotim
denme sus opiniones si con este proyecto es la menjor forma de manejar base de datos o existe una mejor bueno no soy experto en Vstudio pero toy empezando de antemano muchas gracias