Saltar al contenido

Ayuda sql


carluci

Recommended Posts

publicado

cordial saludo

estimado,

tengo un archivo en excel con una consulta sql en el editor de visual basic para extraer informacion de la base de datos de un programa de la empresa donde laboro.

Hoja1.Range("A10:U20000").Clear

Hoja1.Range("A10:U20000").Interior.Color = &HF5F5F5

Hoja1.Range("A10:U20000").Font.Color = &H8000000D

Hoja1.Cells(4, 1) = "Intervalo:" & Me.cmb_Fini & "-" & Me.cmb_FFin

Hoja1.Cells(5, 1) = "Linea de Producción:" & Me.cmb_LProd

SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,min(P.Fecha_Pprog) Fecha_Pprog,Sum(P.Cantidad_Pprog) Cantidad, OT.descrip_tord "

SQL = SQL & "From cliente C, orden O, programacion_prod P, linea L, ordentipo OT "

SQL = SQL & "Where O.Cod_Cliente=P.CodCliente_Pprog AND "

SQL = SQL & "O.No_Orden=P.NoOrden_Pprog AND "

SQL = SQL & "P.CodLote_pprog<>-1 AND P.codlinea_pprog=L.cod_linea AND O.codtipoorden = OT.cod_tord AND C.cod_cliente not in (2478,2479) AND "

If Me.cmb_LProd.List(Me.cmb_LProd.ListIndex) <> "TODAS" Then

SQL = SQL & "P.CodLinea_Pprog=" & Me.List_LProd.List(Me.cmb_LProd.ListIndex) & " AND "

End If

SQL = SQL & "P.Fecha_pprog>='" & Me.cmb_Fini & "' AND "

SQL = SQL & "P.Fecha_pprog<='" & Me.cmb_FFin & "' AND "

SQL = SQL & "C.cod_cliente=O.cod_cliente "

SQL = SQL & "AND O.ESTADO='APROBADA' "

SQL = SQL & "Group BY C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,P.NoOrden_Pprog,P.CodLote_pprog,L.nom_linea "

SQL = SQL & "Order BY O.FAprob,P.NoOrden_Pprog, P.CodLote_pprog"

Db.Open CONSTRING

Rs.Open SQL, Db

i = 10

While Not Rs.EOF

DoEvents

Hoja1.Cells(i, 20) = Rs("Nom_Linea")

Hoja1.Cells(i, 21) = Rs("descrip_tord")

Hoja1.Cells(i, 1) = Rs("Nom_Cliente")

el codigo resaltado con rojo me agrupa los campos, lo que quisiera aprender es como traigo los datos de forma individual y no agrupados, ya le quite el sum y el min, pero una orden tiene varios item con sus respectivas cantidades y solo me trae el primer item.

por favor ayúdenme a resolver esta duda.

gracias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      29

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    2    1

  • Crear macros Excel

  • Mensajes

    • HOLA, BUENAS TARDES!   TENGO EL SIGUIENTE TEMA, NECESITO REALIZAR UNA SERÍE DE OPERACIONES CON INFORMACIÓN DE LOS PRODUCTOS DE VENTA, PARA PODER REALIZARLO NECESITO EXTRAER LAS PIEZAS Y GRAMOS DE ACUERDO A LAS FACTURAS QUE TENGO, EL PUNTO ES QUE NO TODAS LAS FACTURAS SON IGUALES LAS ABREVIATURAS YA QUE UNAS MANEJAN "G", OTRAS "grs",    ESPERO ME PUEDAN APOYAR,   SALUDOS!productos.xlsx    
    • Buenas, Te paso dos opciones que uso muchisimo. Eso si, para que funcionen, tienes que activar el calculo iterativo... foro.xlsx
    • Buenas, Al final lo he arreglado guardando una copia del "export" en el odenador que lo ejecute. Como el informe lo ejecutara cada persona en su ordenador, y cada vez que lo utilice necesitara datos actualizados, el export lo guardo en la raiz de C:\ de cada ordenador y PQ hace la llamada a esa ruta. Da igual que en cada ordenador haya un export, porque el valido siempre será el que se cree en ese momento, con independencia de donde se haya creado. Me hubiera gustado poder guardarlo en sharepoint, mas que nada por tenerlo todo organizado, pero asi me vale; ademas la macro que genera el export, se encarga de guardarlo, cerrarlo y actualizar la plantilla para capturar con PQ. Saludos a todos.
    • Estimados buenos días, Quisiera saber si me pueden brindar su soporte con lo siguiente. Tengo lo siguiente una data de FECHAS CON CANTIDADES y quisiera saber si hay alguna formula para poder contabilizar desde la última fecha cuando días son consecutivos, ejemplo si en una fila queda vacío porque no se repite y la fecha matriz es la ultima fecha quiere decir que no se repite y es 0.   DIAS CONSECUTIVOS.xlsx
    • Buenos días con todo, espero se encuentren bien de salud!. Favor quisiera ver si me pueden ayudar con lo siguiente. Tengo una data en excel con los siguiente criterios FECHAS DIFERENTES , CODIGO Y NOMBRE DEL PRODUCTO. Lo que quiero realizar es que si en la fecha 17-02  tienes cantidad x de códigos y si estos no se repite el día siguiente 18-02 que automáticamente se borre, esto con la finalidad de tener un control de a partir del 18 al 19  se repite 1 vez y no me considere 2 desde fecha 17-02  teniendo en cuenta que el producto en el 18-02 no aparece. Lo sombreado son los que se repiten .   TABLA ELIMINAR.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.