Error buscando registro AYUDA!
Publicado por Sergio (5 intervenciones) el 10/08/2011 18:43:01
Muy buenas y gracias de antemano por llegar hasta aquí
Estoy tratando de hacer una conexión a access 2010 desde vb6, para hacer una búsqueda en una tabla con un determinado dato sabido de antemano (VarIdUsuario), según esa búsqueda quiero coger el nombre de usuario (UsuUsuario) resultado de esa búsqueda para mostrarlo en la statusbar. Me da error en la línea 6 (Nombre de origen de datos demasiado largo). Acepto otras ideas alternativas si son más sencillas y eficientes. ¿Qué hago mal?
1 Dim adoConexion As New ADODB.Connection
2 Dim sSQLQuery As String
3 Dim adoRegistros As New ADODB.Recordset
4 Set cn = New Connection
5 adoConexion.Provider = "MSDASQL.1"
6 adoConexion.Open (App.Path & "\db.mdb")
7 sSQLQuery = "SELECT * FROM USUARIOS WHERE IDUsuario = '" & VarIdUsuario
8 adoRegistros.Open sConsulta, adoConexion, adOpenStatic, adLockReadOnly
9 If adoRegistros.BOF = adoRegistros.EOF And adoRegistros.EOF = False Then
10 StB_Principal.Panels.Item(4) = "Usuario: " & adoRegistros!UsuUsuario
11 End If
12 adoConexion.Close
13 Set adoConexion = Nothing
Estoy tratando de hacer una conexión a access 2010 desde vb6, para hacer una búsqueda en una tabla con un determinado dato sabido de antemano (VarIdUsuario), según esa búsqueda quiero coger el nombre de usuario (UsuUsuario) resultado de esa búsqueda para mostrarlo en la statusbar. Me da error en la línea 6 (Nombre de origen de datos demasiado largo). Acepto otras ideas alternativas si son más sencillas y eficientes. ¿Qué hago mal?
1 Dim adoConexion As New ADODB.Connection
2 Dim sSQLQuery As String
3 Dim adoRegistros As New ADODB.Recordset
4 Set cn = New Connection
5 adoConexion.Provider = "MSDASQL.1"
6 adoConexion.Open (App.Path & "\db.mdb")
7 sSQLQuery = "SELECT * FROM USUARIOS WHERE IDUsuario = '" & VarIdUsuario
8 adoRegistros.Open sConsulta, adoConexion, adOpenStatic, adLockReadOnly
9 If adoRegistros.BOF = adoRegistros.EOF And adoRegistros.EOF = False Then
10 StB_Principal.Panels.Item(4) = "Usuario: " & adoRegistros!UsuUsuario
11 End If
12 adoConexion.Close
13 Set adoConexion = Nothing
Valora esta pregunta
0