Asignar resultado de una consulta sql de tabla access a una variable
 

Tengo un requerimiento de guardar unos datos en una tabla de access. Son dos posibilidades: si un usuario con campo cc (cedula o identificacion) existe ya como fila o registro, en cuyo caso actualizo algun campo y la otra si el usuario no existe en la tabla en cuyo caso ingreso datos en los campos de la tabla.

Se me ha ocurrido hacer una consulta como la siguiente en SQL que me genera la variable CANREG, ccusu es la variable tipo String donde almaceno la cédula proveniente desde un TEdit (debo decir que me interesa tenerla como String pues valido que sea cedula anteriormente con otro procedimiento):

Código Delphi [-]
 rs2.CommandText := 'SELECT COUNT(*) AS CANTREG FROM plancli WHERE CC = ' + ccusu;

Si recibo un valor 0, me encargaría de generar la actualizacion de algun campo, o si es > 0 inserto nueva fila con todos los datos.

Necesito su ayuda con una guia que deberia hacer para capturar esa variable CANREG y poder hacer esa validación, con que comando.

O si por el contrario hay otro código que haga lo que necesito.


Mil gracias


EderFCR

Envio codigo adicional para compresion:
 

Envío código adicional para compresión:

Código Delphi [-]
  rs2 := TADODataSet.Create(nil);
  rs2.Connection := connection2;
  rs2.CursorType := ctStatic;
  rs2.LockType := ltOptimistic;
  rs2.CommandText := 'SELECT COUNT(*) AS CANTREG FROM plancli WHERE CC = ' + ccusu;
  rs2.Open();

Hola.

Intenta de este modo:

Código Delphi [-]
function CantCed(Connect: TADOConnection; const Cedula: string): Integer;
var
  ads: TADODataSet;
begin
  ads := TADODataSet.Create(nil);
  try
    ads.Connection  := Connect;
    ads.CommandText := 'SELECT COUNT(*) AS CANTREG FROM PLANCLI WHERE CC = :PARAM';
    ads.Parameters.ParamByName('PARAM').Value := Cedula;
    ads.Open;
    Result := ads.FieldByName('CANTREG').Value;
  finally
    ads.Close;
    ads.Free;
  end;
end;

Ej. de uso:

Código Delphi [-]
var
  r : Integer;
begin
  r := CantidadCed(ADOConnection1, '25374893');
  if r = 0 then
    ShowMessage('No existen registros con esa cédula')
  else
    ShowMessage(Format('Existen %d registros con esa cédula',[r]));

Saludos :)

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;

Problema resuelto!!
 

Hola buen día.

Resuelto el problema, asi quedo mi función:

Código Delphi [-]
function TDBClass.CantCed(Connect: TADOConnection; var Cedula: string): Integer;
var
  ads: TADODataSet;
begin
  ads := TADODataSet.Create(nil);
  try
    ads.Connection  := Connect;
    ads.CursorType := ctStatic;
    ads.LockType := ltOptimistic;
    ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc=PARAM';
    ads.Parameters.ParamByName('PARAM').Value := Cedula;
    ads.Open;
    CantCed := ads.FieldByName('CANTREG').Value;
  finally
    ads.Close;
    ads.Free;
  end;
end;

Quedo superbien y corriendo. Mil Gracias.


EderFCR

Hay un error de tipeo aca:

Código Delphi [-]
  ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc=PARAM';

Te faltaron los dos puntos para indicar que es un parametro:

Código Delphi [-]
  ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc= :PARAM';

Si, gracias. Tenia una pequeña falla.

EderFCR