Buenas a todos ! Soy novato en el visual basic, estoy intentando hacer una funcion o un procedimiento para poder llamar a una conexión de una base de datos desde otras clases pero me dice que
comando.Connection = leerdatos.leer "No genera ningun valor"
Tengo lo siquiente:
Public Class leerdatos
Shared Sub leer()
Dim conexion As New OleDb.OleDbConnection()
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\basesdedatos\mibasededatos.MDB"
conexion.Open()
End Sub
Luego la llamo desde otra clase que se llama Usuarios:
Public Class Usuarios
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim usuario As String = TextBox1.Text
Dim clave As String = TextBox2.Text
leerdatos.leer()
Dim comando As New OleDb.OleDbCommand
comando.CommandText = "select Usuario, Clave from Usuarios where Usuario = '" & usuario & "'"
comando.Connection = leerdatos.leer
He probado hacer una función tambien en vez de un Sub y me dice igual, por favor, alguien me puede ayudar!!
Muchas gracias de antemano.