consultas sql en delphi 2007

[nolo]

hola amigo gracias por la bienvenida y disculpa por empresarme mal..

la ventana ya lo tengo todo echo, y enlazado con las bases de datos y todo, mi problema es que cuando apretieto el evento TBotton no me tira nada el DBGrid

en el TButton tengo este codigo

var
sQ: WideString;
begin
adsReporte.Open;
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 >= dtpDesde.DateTime'+
'AND V.fDocumento <= dtpHasta.DateTime' +
'AND V.idVendedor := edtidVendedor.AsInteger'+
'AND V.bAnulado = 0'+
'ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC'+
'adsDatos1.CommandText := sQ;';
{adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger;
adsReporte.Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime;
adsReporte.Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime}
//adsReporte.CommandText := sQ;
//adsReporte.Close;

soy novato en esto, me se bastante sql pero poco delphi jeje
agradeceria tu ayuda

[[Delphius]]

Hola nolo,
Lo que veo, de vista rápida, es que primero haces el Open, luego le indicas la consulta y al final un Close.

El orden es en realidad al contrario.

1. Cerrar el DataSet
2. Armar consulta
3. Abrirlo

Por otro lado, para escribir código delphi y se resalte, usa las etiquetas delphi. De este modo:


[delphi]
tu código aqui...
[/delphi]


Saludos,

[nolo]

bueno disculpas nuevamente, este seria mi codigo

si primero cierro el dataset y despues lo abro como decis vos, me tira un errorcito, la unica forma de que por lo menos se ejecute era ponerlo de esa forma a pesar de que yo tenia entendido de que es como tu dices

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var
   sQ: WideString;
 begin
   adsReporte.Open;
   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.Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger;
  adsReporte.Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime;
  adsReporte.Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime}
   //adsReporte.CommandText := sQ;
   //adsReporte.Close;
 end;
end.

en fin mi pregunta es, si esta bien el codigo en el TBotton o si es que falta algo o sobra, porque no me tira nada el DBGrid

[[Delphius]]

Ummm, veamos, debería funcionarte de este modo:

Código Delphi [-]
TuDataSet.Close;
tuDatSet.SQL.Clear;
TuDataSet.SQL.Add('select ....');
TuDataSet.SQL.Add('from ... ');
TuDataSet.SQL.Add('where ... ');
TuDataSet.Parameters.ParamByName('tu_parametro').Value := ...
TuDataSet.Parameters.ParamByName('tu_parametro').Datatype := ftxxxx;
// Otros parámetros...

TuDataSet.Open;

Acabo de releer tu post inicial. ¿Empleas TADODataSet? No se si tendrá algo que ver... pero prueba con un TADOQuery.

Saludos,

[nolo]

si con esa estructura la probe al principio, es la que todos usan, pero tampco me andubo che, ni usando TADOQuery... que macana

bueno tratare de encoontrar la solucion, gracias por tu tiempo.. saludos

[[Delphius]]

¿Te aseguraste de que estén bien enlazados los componentes? ¿Te aseguraste de que el TADOConection esté conectado y que los demás controles estén activados?

¿Podrías indicarnos como estás llevando la conexión y el enlace de los componentes?

¿Te arroja un error? Si es así, cual y en que línea.

Necesitaríamos conocer más detalle de tu situación para poder ayudarte. Cuanto más información nos proporciones más fácil será hallar el problema y su solución (o en su defecto, alguna alternativa).
No te vamos a cobrar por la cantidad de líneas que escribas. Sientete en confianza.

Saludos,

[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...