
31/07/2007, 08:07
|
| | Fecha de Ingreso: junio-2007
Mensajes: 24
Antigüedad: 17 años, 10 meses Puntos: 0 | |
Abs Hola otra vez a tod@s:
Mi problema es el siguiente.
Estoy utilizando Visual Basic 6.0, con conexion ADO a SQL.
Necesito leer un campo de una tabla, pero parece ser que no me lee nada.
Os pongo el codigo:
rst.Open "SELECT LineaDetallePedido.CodigoLinea as IDLinea, LineaDetallePedido.Linea as Linea, " & _
"Articulo.preciomedioponderado,Articulo.CodigoArti culo as Codigo, " & _
"LineaDetallePedido.Descripcion as Descripcion, LineaDetallePedido.UnidadesPedidas as " & _
"UnidadesPe, LineaDetallePedido.UnidadesServidas as UnidadesServidas, " & _
"LineaDetallePedido.PVP as PVP, LineaDetallePedido.DescuentoArticulo1 as DTO1, " & _
"LineaDetallePedido.DescuentoArticulo2 as DTO2, LineaDetallePedido.DescuentoArticulo3 " & _
"as DTO3, LineaDetallePedido.TotalNeto as Base, LineaDetallePedido.PrecioCoste as Coste, " & _
"LineaDetallePedido.ComisionVenta as Comision,LineaDetallePedido.CodigoArticulo as " & _
"IDArticulo,LineaDetallePedido.CodigoPorcentaj e as IDCodigoPorcentaje " & _
"FROM LineaDetallePedido INNER JOIN Articulo ON LineaDetallePedido.CodigoArticulo = " & _
"Articulo.IdenCodigoArticulo " & _
"Where (((LineaDetallePedido.CodigoPedido) = " & frmPedidoCliente.Caption & ") And " & _ "(Abs([LineaDetallePedido].[UnidadesPedidas]) > Abs([LineaDetallePedido].[UnidadesServidas]))) " & _
"ORDER BY LineaDetallePedido.CodigoLinea ASC;", cnn, adOpenDynamic, adLockOptimistic
Lo que esta en rojo es donde tengo problemas he probado a poner:
"(Abs([LineaDetallePedido]![UnidadesPedidas]) > Abs([LineaDetallePedido]![UnidadesServidas]))) " & _
Pero me da error.
Si alguien sabe algo que me lo haga saber.
Muchas gracias de antemano |