Record Set question

[vbmark]

I am calling a Visual Basic 6 DLL to that returns a Record Set.

Here is my code in my VB.NET program.

Dim objRS

objRS = oMyObject.ReturnRecordSet()

If Not objRS Is Nothing Then
Do While Not objRS.EOF
sw.WriteLine(objRS("UserID"))
sw.WriteLine(objRS("UserName"))
objRS.MoveNext()
Loop
End If
What happens is objRS just returns System.__ComObject.

How do I get this to work? That is, to get the returned Record Set and
then be able to enumerate through the records.

[Ken Tucker [MVP]]

Hi,

Stop using late binding.

Dim objRS as RecordSet

Ken
---------------------
"vbmark" <[e-mail]> wrote in message
news:Xn************************@199.45.49.11...
I am calling a Visual Basic 6 DLL to that returns a Record Set.

Here is my code in my VB.NET program.

Dim objRS

objRS = oMyObject.ReturnRecordSet()

If Not objRS Is Nothing Then
Do While Not objRS.EOF
sw.WriteLine(objRS("UserID"))
sw.WriteLine(objRS("UserName"))
objRS.MoveNext()
Loop
End If
What happens is objRS just returns System.__ComObject.

How do I get this to work? That is, to get the returned Record Set and
then be able to enumerate through the records.

[vbmark]

I get "Type 'RecordSet' is not defined"

What do I need to Import?

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in news:uMVuVI7KFHA.1136
@TK2MSFTNGP10.phx.gbl:

Hi,

Stop using late binding.

Dim objRS as RecordSet

Ken
---------------------
"vbmark" <[e-mail]> wrote in message
news:Xn************************@199.45.49.11...
I am calling a Visual Basic 6 DLL to that returns a Record Set.

Here is my code in my VB.NET program.

Dim objRS

objRS = oMyObject.ReturnRecordSet()

If Not objRS Is Nothing Then
Do While Not objRS.EOF
sw.WriteLine(objRS("UserID"))
sw.WriteLine(objRS("UserName"))
objRS.MoveNext()
Loop
End If
What happens is objRS just returns System.__ComObject.

How do I get this to work? That is, to get the returned Record Set and
then be able to enumerate through the records.

[Cor Ligthert]

vbmark,

Probably is the solutioon, what when you don't give late binding

Dim objRS as RecordSet

I hope this helps,

Cor

[vbmark]

Never mind. I added a reference to adodb.

Thanks.

vbmark <[e-mail]> wrote in
news:Xn************************@199.45.49.11:

I get "Type 'RecordSet' is not defined"

What do I need to Import?

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in
news:uMVuVI7KFHA.1136 @TK2MSFTNGP10.phx.gbl:

Hi,

Stop using late binding.

Dim objRS as RecordSet

Ken
---------------------
"vbmark" <[e-mail]> wrote in message
news:Xn************************@199.45.49.11...
I am calling a Visual Basic 6 DLL to that returns a Record Set.

Here is my code in my VB.NET program.

Dim objRS

objRS = oMyObject.ReturnRecordSet()

If Not objRS Is Nothing Then
Do While Not objRS.EOF
sw.WriteLine(objRS("UserID"))
sw.WriteLine(objRS("UserName"))
objRS.MoveNext()
Loop
End If
What happens is objRS just returns System.__ComObject.

How do I get this to work? That is, to get the returned Record Set
and then be able to enumerate through the records.