How to Inherit ADODB?


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,
 
Ad

Advertisements

G

Guest

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
--
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
 
K

Kevin Spencer

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.
 
Ad

Advertisements

Joined
Oct 7, 2014
Messages
1
Reaction score
0
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top