Sigo intentándolo y nada, no logro hacerlo.
A ver en la clase tengo lo siguiente:
Cita: Imports System.Data.OleDb
Public Class ClassBBDD
Public Ds As New DataSet
Public Cm As OleDbCommand
Public Dr As OleDbDataReader
Public Ad As OleDbDataAdapter
Public ClassConecta As New ClassConecta
Public Property Dt() As DataSet
Get
Return Ds
End Get
Set(ByVal value As DataSet)
Ds = value
End Set
End Property
Y en el Modulo lo siguiente
Cita: Imports System.Data.OleDb
Module ModFuncInsertar
Public BD As New ClassBBDD
'Carga la página web del proveedor en el campo de texto
Sub TbWeb()
If FormInsertarServicios.CbProveedor.SelectedIndex <> 0 Then
Else
FormInsertarServicios.CbProveedor.SelectedIndex = 0
End If
End Sub
Clase conecta:
Cita: Imports System.Data.OleDb
Public Class ClassConecta
'Contructor
Private Cx As OleDbConnection
'Conectar a la bbdd
Public Sub Conecta()
Cx = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=GESPRICE.accdb;")
Cx.Open()
End Sub
'Desconecta el programa de la bbdd
Public Sub Desconecta()
If Cx.State = ConnectionState.Open Then
Cx.Close()
End If
End Sub
'Devuelve el valor del objeto
Public ReadOnly Property Cs() As OleDbConnection
Get
Return Cx
End Get
End Property
End Class
La pregunta es.
Cómo puedo rellenar el TextBox sin tener que crear otra conexión dado que ya la tengo creada en la clase conecta que es la que llama la clase bbdd.
Espero vuestra ayuda.