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 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'
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 =)