consultas sql en delphi 2007

[nolo]

Mira estos son los valores (a mi entender mas importantes) que tengo...
Creo que esta todo bien enlazado
TADOConnection
- Connected: True
- Connection String: Provider=SQL.......... (Verificado tiene coneccion)
- DefaultDataBase: (mi base de datos)
- KeepConnectio: True
- Name: .....
TADODataSet
- CommandText: mi codigo sql
- ConnectionString: no tiene nada porque lo conecte asi:
- Linkage (Connection: TADOConnection) esta bien esto??
- Parameters: los 3 que tiene estan verificados
- Active: True
TDataSource
-Action, Input y Visual
- Enabled: True
- DataSet: TADODataSet
DBGrid
- Action y Visual
- Enabled: True
- Visible: True
- DataSource: TDataSource
El problema no es que me tira error, el problema es que no me tira nada cuando apreto el TBotton..
el contenido del TBotton ya te lo puse mas arriba...

[nolo]

y si lo hago segun tu estructura quedaria asi no??

Código Delphi [-]
adsReporte.Close;
adsReporte.SQL.Clear;
adsReporte.SQL.Add('select V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,);
adsReporte.SQL.Add('RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - '));
adsReporte.SQL.Add(' + RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, ');
adsReporte.SQL.Add('( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision ');
adsReporte.SQL.Add('FROM VentasItems VI, TiposDoc TID');
adsReporte.SQL.Add('WHERE VI.idTipoDoc = TID.idTipoDoc');
adsReporte.SQL.Add('AND VI.idTipoDoc = V.idTipoDoc');
adsReporte.SQL.Add('AND VI.idPV = V.idPV');
adsReporte.SQL.Add('AND VI.idNumdoc = V.idNumDoc ) AS Comision');
adsReporte.SQL.Add('from'FROM Ventas V');
adsReporte.SQL.Add('INNER JOIN Clientes C ON V.idCliente = C.idCliente');
adsReporte.SQL.Add('INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc');
adsReporte.SQL.Add('whereWHERE V.fDocumento >= dtpDesde.DateTime');
adsReporte.SQL.Add('AND V.fDocumento <= dtpHasta.DateTime');
adsReporte.SQL.Add('AND V.idVendedor := edtidVendedor.AsInteger');
adsReporte.SQL.Add('AND V.bAnulado = 0');
adsReporte.SQL.Add('ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC');
adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger
adsReporte.Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime
adsReporte.Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime;
adsReporte.Open;

me tira error en la segunda linea, osea aca
adsReporte.SQL.Clear;

[[Caral]]

Hola

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.SQL.Clear;     
sQ := 'SELECT V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,'+
         'RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - ')+
         'RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, '+
         '( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision'+
         'FROM VentasItems VI, TiposDoc TID'+
         'WHERE VI.idTipoDoc = TID.idTipoDoc'+
         'AND VI.idTipoDoc = V.idTipoDoc'+
         'AND VI.idPV = V.idPV'+
         'AND VI.idNumdoc = V.idNumDoc ) AS Comision'+
         'FROM Ventas V'+
         'INNER JOIN Clientes C ON V.idCliente = C.idCliente'+
         'INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc'+
         'WHERE V.fDocumento >= :FechaDesde'+
         'AND V.fDocumento <= :FechaHasta' +
         'AND V.idVendedor := :idVendedor'+
         'AND V.bAnulado = 0'+
         'ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC'+
         'adsDatos1.CommandText := sQ;';
adsReporte.SQL.Add(sQ);
adsReporte.Open;
  end;
end.

No veo parametros por ningun lado.
Saludos

[[Delphius]]

Tal vez la pregunta que diré es un tanto tonta pero es necesaria: ¿Te aseguraste de que la consulta devuelve datos?

Prueba lanzar esta misma consulta desde el editor del motor que empleas.

O si no prueba con esto:

Código Delphi [-]
tuDataSet.Open;
if tuDataSet.RecordCount > 0
   then ShowMessage('Hay datos')
   else ShowMessage('No hay datos');

Y disculpa mi insistencia, pero creo que es conveniente emplear el TADOQuery, que es el componente más conveniente.

Saludos,

[[Caral]]

Hola
Ya vi los parametros:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.SQL.Clear;     
sQ := 'SELECT V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,'+
         'RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - ')+
         'RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, '+
         '( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision'+
         'FROM VentasItems VI, TiposDoc TID'+
         'WHERE VI.idTipoDoc = TID.idTipoDoc'+
         'AND VI.idTipoDoc = V.idTipoDoc'+
         'AND VI.idPV = V.idPV'+
         'AND VI.idNumdoc = V.idNumDoc ) AS Comision'+
         'FROM Ventas V'+
         'INNER JOIN Clientes C ON V.idCliente = C.idCliente'+
         'INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc'+
         'WHERE V.fDocumento >= :FechaDesde'+
         'AND V.fDocumento <= :FechaHasta' +
         'AND V.idVendedor := :idVendedor'+
         'AND V.bAnulado = 0'+
         'ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC'+
         'adsDatos1.CommandText := sQ;';
adsReporte.SQL.Add(sQ);
adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.Text;
adsReporte.Parameters.ParamByName('FechaDesde').Value := DateTostr(dtpDesde.DateTime);
adsReporte.Parameters.ParamByName('FechaHasta').Value := DateToStr(dtpHasta.DateTime);
adsReporte.Open;
  end;
end.

Saludos

[[Caral]]

Hola
Estoy mas ciego que una cabra.
Nunca he trabajado con dataset, asi que supongo que sera asi, no me hagan mucho caso.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.CommandText.Clear;     
sQ := 'SELECT V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,'+
         'RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - ')+
         'RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, '+
         '( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision'+
         'FROM VentasItems VI, TiposDoc TID'+
         'WHERE VI.idTipoDoc = TID.idTipoDoc'+
         'AND VI.idTipoDoc = V.idTipoDoc'+
         'AND VI.idPV = V.idPV'+
         'AND VI.idNumdoc = V.idNumDoc ) AS Comision'+
         'FROM Ventas V'+
         'INNER JOIN Clientes C ON V.idCliente = C.idCliente'+
         'INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc'+
         'WHERE V.fDocumento >= :FechaDesde'+
         'AND V.fDocumento <= :FechaHasta' +
         'AND V.idVendedor := :idVendedor'+
         'AND V.bAnulado = 0'+
         'ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC';
adsReporte.CommandText := sQ;
adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.Text;
adsReporte.Parameters.ParamByName('FechaDesde').Value := DateTostr(dtpDesde.DateTime);
adsReporte.Parameters.ParamByName('FechaHasta').Value := DateToStr(dtpHasta.DateTime);
adsReporte.Open;
  end;
end.

Saludos

[ContraVeneno]

Empezado por nolo

y si lo hago segun tu estructura quedaria asi no??

me tira error en la segunda linea, osea aca
adsReporte.SQL.Clear;

Código Delphi [-]
with adsReporte do begin //Donde adsReporte es un TADOQuery
 If active then Close; 
 SQL.Clear; 
 SQL.Add('select V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,');
  ....
 SQL.Add('ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC');
 Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger
 Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime
 Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime;
 Open;
end; //with

Edite un poco el código, esa sería la manera más adecuada de realizar la consulta que deseas. Y debería funcionar correctamente. Si te marca error en la linea "SQL.Clear", por favor, dinos cuál error es el que te marca para saber cuál es el problema.