[SOLUCIONADO] Como puedo obtener mediante VBA el valor de un campo de una subconsulta

[jeremiselxi]

Buenas tardes.

Como el titulo dice, estoy necesitando obtener el valor de una subconsulta.

El codigo vba es el siguiente

Código vb:

Sub comprueba_usuario()
 
Dim miconexion As New ADODB.Connection
 
Dim mirecorset As New ADODB.Recordset
 
Dim instruccion As String
 
Set miconexion = CurrentProject.Connection
 
Dim INS As String
 
 
instruccion = "SELECT * FROM empleados AS t1 WHERE (Exists (SELECT t2.idusuario as app  FROM usuarios as t2 WHERE t1.Nombre_Completo like '%'+t2.Nombre+'%' and t1.Nombre_Completo like '%'+t2.Apellido+'%'));"
 
mirecorset.Open instruccion, miconexion
 
While mirecorset.EOF = False
 
'En la consulta del select al campo t2.idusuario lo renombré como app. Necesito obtener el valor del campo t2.idusuario para poder actualizar el campo del idusuario de la tabla empleados pero me da un error. en la línea siguiente
 
INS = "UPDATE empleados SET idusuario ='" & mirecorset!app & "' where id=" &id
 
DoCmd.RunSQL INS
 
'Debug.Print mirecorset!Nombre_completo
 
mirecorset.MoveNext
 
 
Wend
 
mirecorset.Close
Set mirecorset = Nothing
miconexion.Close
Set miconexion = Nothing
 
 
End Sub
 

[gnzsoloyo]

El resultado de la subconsulta no existe en ese contexto. Solo existe dentro de sí misma, porque únicamente válida el TRUE o FALSE. Nada mas.
Los únicos datos recuperablesson los del SELECT.
Para lo que quieres deberías usar JOIN.

[jeremiselxi]

Iniciado por gnzsoloyo

El resultado de la subconsulta no existe en ese contexto. Solo existe dentro de sí misma, porque únicamente válida el TRUE o FALSE. Nada mas.
Los únicos datos recuperablesson los del SELECT.
Para lo que quieres deberías usar JOIN.

Gracias por responder, pero como puedo solucionar esto ya que no puedo hacer un join sino tengo un campo en común. Hay algo que se me ocurrió pero me sale que la operación de la consulta debe ser actualizable y es esto:

Código MySQL:

Dim ins as string
 
ins = "update empleados as t1 set t1.idusuario=(SELECT t2.idusuario as app  FROM usuarios as t2 WHERE t1.Nombre_Completo like '%'+t2.Nombre+'%' and t1.Nombre_Completo like '%'+t2.Apellido+'%')"
 
Docmd.runsql ins
 

[jeremiselxi]

Buenos días.

Pude obtener lo que necesitaba de la siguiente manera: como tenia dos tablas sin campos en común y con diferentes registros cree un campo llamado por ejemplo ""
Unir_tablas y a todos los registros les puse el valor 1.

Cree un inner join y esa información la pase a otra tabla. Realice la siguiente consulta y listo.

Código SQL:

SELECT * FROM nuevatabla AS t1 
WHERE (EXISTS (SELECT t2.idusuario AS app  FROM usuarios AS t2 
         WHERE t1.Nombre_Completo LIKE '*'+t2.Nombre+'*' AND t1.Nombre_Completo LIKE '*'+t2.Apellido+'*'));"