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
