Presento mi problema:
Estoy haciendo un programa utilizando una base de datos de Acces.
Para ello dispongo de:
- Una Clase
- Una Base de Datos Acces
- Formulario Principal-
Pues bien, la idea que tengo es la siguiente:
- Cuando Cargue (inicie la aplicación) se cargan varias empresas en un combobox
- Seleccionamos una de las empresas y aparece un listado en otro Combobox con usuarios.
- Al seleccionar el Usuario, que rellene los datos de la base de datos en distintos Textbox
Las dos primeras secciones me funcionan correctamente. Pero la última me falla, os indico el error:
Cando selecciono por ejemplo una tabla con varios usuarios, en vez de que me devuelva la opción seleccionada me dá el resultado el último valor de la tabla. Me explico con el siguiente ejemplo:
Tabla Empresa1
Campos Empresa1:
- Código: Valor Autonumérico
- Empresa: Texto
- Nom_Usuario: Texto
- Usuario: Texto
Lo doy valores a los campos:
Empresa1 Usuario1 Usuario1
Empresa1 Usuario2 Usuario2
Empresa1 Usuario3 Usuario3
Empresa1 Usuario4 Usuario4
Al seleccionar en el combobox el Usuario2 en el Form me devuelve que he seleccionado el Usuario2 (hasta aqui todo correcto) pero a la hora de coger el valor en la clase, me coge el último valor de todos) en este caso el Usuario4.
El código de la clase es el siguiente:
Cita:
En el MsgBox(user) es donde veo que me devuelve el usuario incorrecto.Public Function Obtener_Usuario(ByVal operador As String)
Dim user As String = ""
sql.CommandText = String.Format("Select Usuario from Tabla_Empresa where Nom_Usuario = '{0}'", UsuarioAKO)
datos = sql.ExecuteReader
If datos.Read() Then
user = datos("Usuario")
MsgBox(user)
End If
datos.Close()
Return user
End Function
Dim user As String = ""
sql.CommandText = String.Format("Select Usuario from Tabla_Empresa where Nom_Usuario = '{0}'", UsuarioAKO)
datos = sql.ExecuteReader
If datos.Read() Then
user = datos("Usuario")
MsgBox(user)
End If
datos.Close()
Return user
End Function
Ya me estoy empezando a desquiciar un poco...
¿Alguna idea? Gracias
Edito: Ya he encontrado el error... estaba al inicio del código..
Public Function Obtener_Usuario(ByVal operador As String)
Habia que tenerlo así:
Public Function Obtener_Usuario(ByVal UsuarioAko As String)
Gracias de todas formas.
Se puede cerrar el Hilo
. 
Excelente la solución xq no da mucha visión panorámica sobre el problema! 
. Cuando conteste mis respuesta anterior no vi que ya lo habias solucionado. Saludos!
