lector =comandos.ExecuteReader( me dice que no existe la relacion con la tabla ingreso)
este es el codigo
Código vb:
porfavor alguien me puede ayudar Ver original
Imports System.Data.Odbc Public Class Frmloginacces Dim conexion As New Odbc.OdbcConnection("DSN=hospital") Dim comandos As New Odbc.OdbcCommand Dim adaptador As New Odbc.OdbcDataAdapter Dim lector As OdbcDataReader Private Sub Frmloginacces_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub limpiar() txtusuario.Clear() txtcontraseña.Clear() txtusuario.Focus() End Sub Dim consulta As String Private Sub btningresar_Click(sender As Object, e As EventArgs) Handles btningresar.Click conexion.Open() consulta = "SELECT * FROM ingreso WHERE usuario ='" & txtusuario.Text & "' AND contraseña= '" & txtcontraseña.Text & "'" comandos = New Odbc.OdbcCommand(consulta, conexion) adaptador.SelectCommand = comandos lector = comandos.ExecuteReader If lector.HasRows = True Then Form2.Show() Me.Hide() limpiar() Else MsgBox("usuaario incorrecto") limpiar() End If End Sub Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click conexion.Close() End End Sub End Class