467,915 Members | 1,861 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 467,915 developers. It's quick & easy.

obtain recordset of an object COM made in VB6 and soon fill dataset

Hello Group, I need to obtain recordset of an object COM made in VB6 and
soon fill dataset, some idea of where is the error? Thanks.

Imports System.Data
Imports System.Configuration

Public Class WebForm1
Inherits System.Web.UI.Page
Dim o_interlab As INTERLAB.CLaboratorio

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
o_interlab = New INTERLAB.CLaboratorio

Dim ds As DataSet
If Not Page.IsPostBack Then
BindGrid()
End If
End Sub

Sub BindGrid()
Dim strSQL As String = "SELECT ShipperID, CompanyName FROM Shippers
ORDER BY CompanyName"
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim r As Object
r = o_interlab.ListaNomenclador("A")
da.Fill(ds, r)
vadetalle.DataSource = ds
vadetalle.DataBind()
End Sub
Private Sub ListaElejidos_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim r
r = o_interlab.PrecioAnalito("1", "412", "33", "B")
End Sub
End Class
Jan 27 '06 #1
  • viewed: 906
Share:

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

16 posts views Thread by D Witherspoon | last post: by
18 posts views Thread by D Witherspoon | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.