FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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; |
#2
|
||||
|
||||
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: . |
#3
|
||||
|
||||
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.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 31-05-2011 a las 22:25:55. |
#4
|
|||
|
|||
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; |
#5
|
||||
|
||||
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:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 31-05-2011 a las 20:22:12. |
#6
|
||||
|
||||
Cita:
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 PD: ¿No te parece que esa consulta puede resolverse de forma mas sencilla? Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
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.
|
#8
|
||||
|
||||
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
__________________
Dulce Regalo que Satanas manda para mi..... |
#9
|
||||
|
||||
#10
|
|||
|
|||
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 |
#11
|
||||
|
||||
FlexGrid? de Visual Basic?
este es un foro del Delphi saca conclusiones
__________________
Dulce Regalo que Satanas manda para mi..... |
#12
|
||||
|
||||
Cita:
Gracias!!.. voy a intentar nuevamente hacerme un tiempito para pasar a diario! Abrazo! Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|