Vb 6.0

[Richard Lopez G]

Estimados.

Tengo mi Query que realizado en SQL server 2005 pero quiero ponerlo en mi codigo de VB 6.0 alguien me puede ayudar aqui le mando mi query y la imagen de mi pantalla donde quiero que valla mi query para filtrar.

select r.*,isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Entrada'and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Entrada,
isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Salida'and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Salida
FROM(SELECT [Cod_per] CodPers
,[Cod_Finger] FingerID
,[DNI_per] DNI
,[ApePat_per] ApellidoPaterno
,[ApeMat_per] ApellidoMaterno
,[Nom_per] NombrePersonal
FROM T_Personal
where [NomProy_per] ='Nextel'---and NomArea_per = 'Sistemas'
and Estado_per ='Activo')r
OrderBy r.ApellidoPaterno, r.ApellidoMaterno;

[Casimiro Notevi]

Hola Richard Lopez G, por favor, te recuerdo (una vez más) que leas nuestra guía de estilo, gracias.

También te recuerdo, una vez más, el uso de etiquetas:





.

[ecfisa]

Hola Richard Lopez G.

Esa forma de presentar el código es irritante , sólo he visto algo similar en las películas, en los carteles de Las Vegas. ¿ Que motivo te impulsa a hacerlo de ese modo ?

Por otro lado, como veo que trabajas en VB, te aconsejo que pongas tu consulta en un foro de ese lenguaje. Vas a tener más y mejores respuestas...


Saludos.

[Richard Lopez G]

Estimados.

Tengo mi Query que realizado en SQL server 2005 pero quiero ponerlo en mi codigo de VB 6.0 alguien me puede ayudar aqui le mando mi query y la imagen de mi pantalla donde quiero que valla mi query para filtrar.

select r.*,isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Entrada'and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Entrada,
isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Salida'and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Salida
FROM(SELECT [Cod_per] CodPers
,[Cod_Finger] FingerID
,[DNI_per] DNI
,[ApePat_per] ApellidoPaterno
,[ApeMat_per] ApellidoMaterno
,[Nom_per] NombrePersonal
FROM T_Personal
where [NomProy_per] ='Nextel'---and NomArea_per = 'Sistemas'
and Estado_per ='Activo')r
OrderBy r.ApellidoPaterno, r.ApellidoMaterno;

[ecfisa]

Hola Richard Lopez G.

No dupliques mensajes.
He combinado los mensajes que pusiste en los foros: SQL y .NET ya que tienen el mismo contenido. Lee la GUIA DE ESTILO .

Ya es la cuarta o quinta vez que te pedimos que uses las ETIQUETAS para presentar tu código, en este caso corresponden: [sql] [/sql] . Por favor...

quiero ponerlo en mi codigo de VB 6.0

Y como te aconsejé anteriormente seguramente encuentres más y mejores respuestas en un foro de Visual Basic sobre este tema.

Saludos.

[delphi.com.ar]

Empezado por Richard Lopez G

Tengo mi Query que realizado en SQL server 2005 pero quiero ponerlo en mi codigo de VB 6.0 alguien me puede ayudar aqui le mando mi query y la imagen de mi pantalla donde quiero que valla mi query para filtrar.

Dim rs As New ADODB.Recordset
  rs.Open "select r.*,isnull((select Top 1 convert(varchar(30), [LogTime]) " & _
                             "from History as h " & _
                            "where [UserID]= r.FingerID " & _
                              "AND [FKey]='Entrada' " & _
                              "and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Entrada," & _
                 "isnull((select Top 1 convert(varchar(30), [LogTime]) " & _
                          "from History as h " & _
                         "where [UserID]= r.FingerID " & _
                           "AND [FKey]='Salida' " & _
                           "and [LogDate] ='2011/05/30'),'NO DIGITO HUELLA') Salida" & _
          "FROM (SELECT [Cod_per] CodPers, [Cod_Finger] FingerID, [DNI_per] DNI, " & _
                       "[ApePat_per] ApellidoPaterno, [ApeMat_per] ApellidoMaterno, " & _
                       "[Nom_per] NombrePersonal " & _
                  "From T_Personal " & _
                 "where [NomProy_per] ='Nextel' " & _
                   "and Estado_per ='Activo') r " & _
        "Order By r.ApellidoPaterno, r.ApellidoMaterno", _
          modDataBase.dbMain, adOpenForwardOnly, adLockOptimistic

La pregunta es: ¿Qué quieres hacer con esa consulta?... ¿Mostrarla en una grilla?.. ¿Recorrerla "a mano"?...

PD: ¿No te parece que esa consulta puede resolverse de forma mas sencilla?

Saludos!

[Richard Lopez G]

lo que pasa es que yo tengo un from y como te abras dado cuenta hay dos fechas el cual la quiero utilizar con el dtpiker y despues dos consultas que esta al ultimo despues del where que es nomproy_per y nomarea_per y el estado que siempre va a estar de esa forma pues. un correo para escribirte ahi y enseñarme mi from.

[[oscarac]]

Richard, disculpame pero me mareas, te hacen una pregunta y respondes otra cosa (ya pareces un candidato presidencial de por aqui)

si el codigo ya te esta funcionando (porque hemos visto las respuestas en otro hilo), me gustaria saber que necesitas y como te dije en el otro hilo... tu query es bastante complicado, quiza si colocas las estructuras de tus tablas, los campos principales alguien podria orientarte a tener un codigo mas limpio y de facil mantenimiento

si necesitas correrlo en V.B. seria bueno que te ubiques en un foro de V.B. como ya te lo habia dicho ecfisa

trata de orientarnos con una idea sencilla y clara para poder ayudarte de una mejor manera

saludos

[Casimiro Notevi]

Empezado por delphi.com.ar

Saludos!

Me alegra verte por aquí de nuevo, ¡¡¡saludos!!!

[Richard Lopez G]

Bueno si el query de mi SQL es bien complejo y de dificil mantenimiento, pero ahora lo tengo que unir con un Flesgrid para que el usuario final haga las consultas desde ahi.

Ayuda

[[oscarac]]

FlexGrid? de Visual Basic?

este es un foro del Delphi

saca conclusiones

[delphi.com.ar]

Empezado por Richard Lopez G

lo que pasa es que yo tengo un from y como te abras dado cuenta hay dos fechas el cual la quiero utilizar con el dtpiker y despues dos consultas que esta al ultimo despues del where que es nomproy_per y nomarea_per y el estado que siempre va a estar de esa forma pues. un correo para escribirte ahi y enseñarme mi from.

Sinceramente se me hace imposible comprenderte. Por favor, intenta explicarte mejor para que podamos ayudarte.

Empezado por Casimiro Notevi

Me alegra verte por aquí de nuevo, ¡¡¡saludos!!!

Gracias!!.. voy a intentar nuevamente hacerme un tiempito para pasar a diario!
Abrazo!

Saludos!