How to Inherit ADODB?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi Everybody,
I am working on a Project which is first developed in VB6.0 (IIS
Application) and now it is converted to .NET . We are using a logging all the
Querys in a log file using our own class. I have to find all the querys used
in the application and have to write the line to log. It is a time consuming
thing. I tried to inherit ADODB Class so that I can override the execute
function and use the logging function there. It is a simple thing if it is
possible.
Please help me to,
1. Inherit ADODB Class (mainly Connection)
2. If not possible, give me a solution

Thanks in Advance,
 
It's "Microsoft ActiveX Data Objects 2.8 Library" in AddReferences/COM tab

after that use code below to gain access to this library
using ADODB;
I am working on a Project which is first developed in VB6.0 (IIS
Application) and now it is converted to .NET . We are using a logging all the
Querys in a log file using our own class. I have to find all the querys used
in the application and have to write the line to log. It is a time consuming
thing. I tried to inherit ADODB Class so that I can override the execute
function and use the logging function there. It is a simple thing if it is
possible.
Please help me to,
1. Inherit ADODB Class (mainly Connection)
2. If not possible, give me a solution
Click to expand...

--
WBR,
Michael Nemtsev :: blog: http://spaces.msn.com/laflour

"At times one remains faithful to a cause only because its opponents do not
cease to be insipid." (c) Friedrich Nietzsche
 
You would be best off to convert all of the ADODB functionality to ADO.Net
functionlaity. ADODB is COM, and COM does not particularly mix well with
..Net.

--
HTH,

Kevin Spencer
Microsoft MVP
..Net Developer
A brute awe as you,
a Metallic hag entity, eat us.
 
Hola amigo,
Hello friend,

Espero te sirva esto.
I hope you serve this.

'
' SIMULAR RECORDSET ACCESS.
'
Class Recordset

Inherits ADODB.RecordsetClass

Private CN As ADODB.Connection

'
' NEW RECORDSET
'
Sub New()

MyBase.new()
CN = New ADODB.Connection

End Sub

'
' RECORDSET.OPEN
'
'RS.Open(SQL, CN, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
Sub Open(SQL As String, CONEXION As String, CURSOR As Long, LOCK As Long)

CN.Open(CONEXION)
MyBase.Open(SQL, CN, CURSOR, LOCK)

End Sub

'
' RECORDSET.CLOSE
'
Sub Close()

MyBase.Close()
CN.Close()
'RS = Nothing
CN = Nothing

End Sub

End Class

Saludos
Tony
buena vision
 
Back
Top