Visual Basic - Error buscando registro AYUDA!

Life is soft - evento anual de software empresarial
   
Vista:

Error buscando registro AYUDA!

Publicado por Sergio (5 intervenciones) el 10/08/2011 20:05:42
Muy buenas y gracias de antemano por llegar hasta aquí

He puesto, esta duda tambien en el foro de VB ADO, pero este tiene más movimiento, a ver si hay suerte.

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error buscando registro AYUDA!

Publicado por Sergio (5 intervenciones) el 11/08/2011 11:39:27
Ya he encontrado la solución a mi problema, aqui la cuelgo para el que la pueda necesitar:

Ado.CommandType = adCmdText
Ado.RecordSource = "SELECT Usuario FROM USUARIOS WHERE IdUsuario LIKE '" & VarIdUsuario & "%' "
Ado.Refresh
text1.text = "Usuario: " & Ado.Recordset!Usuario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar