Ver Mensaje Individual
  #4  
Antiguo 16-06-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Si bien por algun lado lei que existe una clase TADODataSet, nunca la he usado

Siempre uso TADOQuery para ejecutar consultas SQL (en general, todos los select) y TADOCommand para el resto

Yo cambiaria el TADODataSet por TADOQuery y como siempre aconsejamos, mejor temprano que tarde, hay que acostumbrarse a usar parametros en las sentencias SQL

Código Delphi [-]
procedure ...
var
  qry: TADOQuery;
  Cantidad: Integer;
begin
  qry := TADOQuery.Create(nil);
  try
     // setear propiedades necesarias, Conection  ConnectionString, etc
     qry.SQL.Text := ' SELECT COUNT(*) AS CANTREG FROM plancli WHERE CC = :ccusu ';
     qry.SQL.Text.Parameters.ParamByName('ccusu').DataType := TFieldType.ftString;
     qry.SQL.Text.Parameters.ParamByName('ccusu').Value := ccusu;
     qry.Open;   
     Cantidad := qry.FieldByName('CANTREG').AsInteger; // accedes al campo y lo guardas en una variable integer 
  finally
     qry.Free;
  end;
end;
Responder Con Cita