Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Aplicaciones/Fragmentos de Código

Articulos Mas Vendidos En El Mes

Responder al tema

 

Fenriz07
Citar
Mensajes: 118
Jueves, 09 Diciembre 2010, 21:18
Objetivo: Articulos Mas Vendidos En El Mes
Bueno, tenia tiempo que no pasaba por el foro, siempre paso a preguntar y a preguntar y bueno nunca dejo algo con que contribuir ademas de preguntar ja.

Bueno primero voy a hechar el cuento, primero que todo, queria crear un registro mysql que cada vez que se compre algo valla almacenando cuanto se a vendido y ademas por mes y año. En otras palabras unas especies de contador.

Me las ingenie y bueno aqui les dejo el pequeño codigo, Salu2 espero comentarios
PUBLIC cn AS NEW Connection
PUBLIC rs AS Result
PUBLIC consulta2 AS Result

PUBLIC SUB Form_Open()
fecha.Text = DateChooser1.Month & "/" & DateChooser1.Year
ME.center

WITH cn
.Type = "mysql"
.Host = "localhost"
.Login = "root"
.Password = "6419148"
.name = "hola"

TRY .Open
IF ERROR THEN
Message.Error("Error abriendo la base de datos")
ME.Close
ELSE
rs = cn.Exec("select * from Medicamentos")
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
END IF
END IF
END WITH
END

PUBLIC SUB Button6_Click()
DIM grabarMasvendidoMES AS Result
'Articulos mas vendidos por mes'
consulta2 = cn.Exec("select * from ArtmasvendMES where Nombre='" & textbox1.text & "' AND Fecha= '" & fecha.text & "';")
IF consulta2.Available = TRUE THEN
cn.Exec("UPDATE ArtmasvendMES SET Cantidad='" & textbox3.Text & "' + Cantidad where Nombre='" & textbox1.Text & "' AND Fecha='" & fecha.text & "';")
ELSE
grabarMasvendidoMES = cn.Create("ArtmasvendMES")
grabarMasvendidoMES!id = ""
grabarMasvendidoMES!Nombre = textbox1.Text
grabarMasvendidoMES!Cantidad = textbox3.Text
grabarMasvendidoMES!Precio = textbox5.Text
grabarMasvendidoMES!Proveedor = proveedor.Text
grabarMasvendidoMES!Fecha = fecha.Text
grabarMasvendidoMES.Update
END IF
'FIN'


Despues los datos recojidos se podrian expresar de otra manera, yo los expresos en un tableview Salu2 =)

última edición por Fenriz07 el Jueves, 09 Diciembre 2010, 21:20; editado 1 vez
Perfil MP   MSN
ivanovichenco
Citar
Mensajes: 274 Ubicación: Neiva, Huila, Rep. de Colombia
Viernes, 10 Diciembre 2010, 02:03
Objetivo: Re: Articulos Mas Vendidos En El Mes
Gracias por el cdigo y pase mas a menudo por acá.
Suerte.

Perfil MP  
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1311s (PHP: -30% SQL: 130%)
Consultas SQL: 24 - Debug off - GZIP Activado