Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Vb 6.0 (https://www.clubdelphi.com/foros/showthread.php?t=74114)

Richard Lopez G 31-05-2011 16:34:28

Vb 6.0
 
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 Noteví 31-05-2011 16:44:08

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 31-05-2011 19:37:33

Hola Richard Lopez G.

Esa forma de presentar el código es irritante :mad::mad::mad:, 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 31-05-2011 19:43:34

Visual Basic 6.0
 
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 31-05-2011 19:53:18

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...


Cita:

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 01-06-2011 15:45:59

Cita:

Empezado por Richard Lopez G (Mensaje 402034)
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.


Código:

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 01-06-2011 16:57:09

Visual Basic 6.0
 
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 01-06-2011 17:08:24

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 Noteví 01-06-2011 17:17:22

Cita:

Empezado por delphi.com.ar (Mensaje 402176)
Saludos!

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

Richard Lopez G 01-06-2011 17:20:33

Visual Basic 6.0
 
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 01-06-2011 17:26:41

FlexGrid? de Visual Basic?

este es un foro del Delphi

saca conclusiones

delphi.com.ar 02-06-2011 21:54:01

Cita:

Empezado por Richard Lopez G (Mensaje 402185)
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.


Cita:

Empezado por Casimiro Notevi (Mensaje 402192)
Me alegra verte por aquí de nuevo, ¡¡¡saludos!!! :)

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

Saludos!


La franja horaria es GMT +2. Ahora son las 11:57:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi