¿Como hacer una consulta sql y utilizar los valore
Publicado por gerardo (48 intervenciones) el 14/10/2002 23:08:33
Me gustaria saber como puedo hacer la consulta.
Tengo en la tabla de TiposProductos el codigo de los tipos de productos,
y sus precios para cada producto.En Productos Pedidos tengo el codigo de
cada producto que he encargado y la cantidad.
Me gustaria hacer el total del importe multiplicando la cantidad de cada
producto pedido con el precio de cada producto, para asi saber el precio
total de todos los productos pedidos.
¿Es correcto como lo he hecho?¿Que cambios me aconsejarias?
Dim curImporteTotal as currency
strCadena = "SELECT Cantidad,[Precio Compra] FROM ProductosPedidos INNER JOIN TiposProductos ON ProductosPedidos.[Codigo Producto]=TiposProductos.CodigoTipoProducto"
With adoConsulta
.RecordSource = strCadena
'.Recordset.Update
.Refresh
.Recordset.MoveFirst
End With
With adoProductosPedidos.Recordset
Do While Not (.EOF)
curImporteTotal = curImporteTotal + (.Fields("Cantidad") * .Fields("Precio Compra"))
.MoveNext
Loop
End With
Gracias!
Tengo en la tabla de TiposProductos el codigo de los tipos de productos,
y sus precios para cada producto.En Productos Pedidos tengo el codigo de
cada producto que he encargado y la cantidad.
Me gustaria hacer el total del importe multiplicando la cantidad de cada
producto pedido con el precio de cada producto, para asi saber el precio
total de todos los productos pedidos.
¿Es correcto como lo he hecho?¿Que cambios me aconsejarias?
Dim curImporteTotal as currency
strCadena = "SELECT Cantidad,[Precio Compra] FROM ProductosPedidos INNER JOIN TiposProductos ON ProductosPedidos.[Codigo Producto]=TiposProductos.CodigoTipoProducto"
With adoConsulta
.RecordSource = strCadena
'.Recordset.Update
.Refresh
.Recordset.MoveFirst
End With
With adoProductosPedidos.Recordset
Do While Not (.EOF)
curImporteTotal = curImporteTotal + (.Fields("Cantidad") * .Fields("Precio Compra"))
.MoveNext
Loop
End With
Gracias!
Valora esta pregunta


0