Tabla_Registro_Historico_Ventas: TADOQuery;
..
procedure HacerAlgoConLaTabla;
begin
if not(Tabla_Registro_Historico_Ventas.Active) then
Tabla_Registro_Historico_Ventas.Open;
Tabla_Registro_Historico_Ventas.Edit;
Tabla_Registro_Historico_Ventas.FieldByName('Apellidos_Y_Nombres_Cliente').AsString :=
Tabla_Registro_Historico_Ventas.FieldByName('Apellido').AsString + ', ' +
Tabla_Registro_Historico_Ventas.FieldByName('Nombres').AsString
Tabla_Registro_Historico_Ventas.Post;
end;
procedure OtraForma;
begin
with Tabla_Registro_Historico_Ventas do
begin
if (not Active) then
Open;
Edit;
FieldByName('Apellidos_Y_Nombres_Cliente').AsString :=
FieldByName('Apellido').AsString + ', ' +
FieldByName('Nombres').AsString;
Post;
end;
end;
procedure OtraMas;
var
FadoCnn: TADOConnection;
begin
FadoCnn := TADOConnection.Create(nil);
FadoCnn.LoginPrompt := False;
FadoCnn.ConnectionString := ;
with TADOQuery.Create(nil) do
begin
Connection := FadoCnn;
SQL.Add('SELECT');
SQL.Add(' Apellidos_Y_Nombres_Cliente');
SQL.Add(' ,Apellido');
SQL.Add(' ,Nombres');
SQL.Add(' FROM Clientes');
Open;
Edit;
FieldByName('Apellidos_Y_Nombres_Cliente').AsString :=
FieldByName('Apellido').AsString + ', ' +
FieldByName('Nombres').AsString;
Post;
FadoCnn.Free;
Free;
end;
end;