Hola a tod@s
La situación que se me presenta en la tarde de hoy es la siguiente
Los Componentes utilizados son los siguientes:
- TADOQuery
- TProvider
- TClientDataset
y la funcion con la que los trabajo es la siguiente
Código Delphi
[-]
function crearClientDataset(pName : string; pParent : Tcomponent ; pSql : String) : TClientDataSet;
var qConsulta_temporal: TADOQuery;
dsProvedir_temporal : TDataSetProvider;
cds_temporal : TClientDataSet;
begin
Result:= nil;
qConsulta_temporal:= nil;
dsProvedir_temporal:= nil;
try
qConsulta_temporal:= TADOQuery.Create(nil);
qConsulta_temporal.ConnectionString:= DMBDSistema.getConexion.ConnectionString;
qConsulta_temporal.SQL.Text:= pSql;
qConsulta_temporal.Open;
dsProvedir_temporal:= TDataSetProvider.Create(pParent);
dsProvedir_temporal.DataSet:= qConsulta_temporal;
dsProvedir_temporal.Name:= 'DSP_' + pName ;
dsProvedir_temporal.ResolveToDataSet:= False;
dsProvedir_temporal.UpdateMode:= upWhereKeyOnly;
cds_temporal := TClientDataset.Create(pParent);
cds_temporal.ProviderName:= dsProvedir_temporal.Name;
cds_temporal.Name:= pName;
cds_temporal.PacketRecords:= -1;
Result:= cds_temporal;
except
end;
end;
En orden de ideas pretendo mostrar en un DBGrid que se alimenta desde un TCLientDataset, con un Provider, que se asocia con el TAdoQuery los datos propios de la consulta, asocio las propiedades básicas de los componentes y cuando se ejecuta muestra efectivamente los datos en la grilla.
en el formulario queda así
Código Delphi
[-]
self.cds_Usuario:= crearClientDataset('cds_Usuario', Self, 'Select * from ' + const_Tabla_usuario);
self.cds_Usuario.Close;
Self.cds_Usuario.OnCalcFields:= CalcularCampo;
Self.cds_Usuario.Open;
self.dsUsuario:= TDataSource.Create(self);
Self.dsUsuario.DataSet:= Self.cds_Usuario;
Self.dbgrdDBGDatos.DataSource:= Self.dsUsuario;
El fomulario es utilizado para que sirva de base para trabajar con otros formularios que a su vez ejecutan algun tipo de procedimiento tal como la inserción de registros, para esto utilizo una serie de instrucciones SQL que manejo como funciones ej.
Código Delphi
[-]
function AdicionarRegistro(NombreTabla, ListaCampo, ValorCampo: string; pCondicional : String = '') : Boolean;
var qConsulta_temporal: TADOQuery;
condicional_local : string;
begin
Result:= False;
if pCondicional <> '' then
condicional_local := ' where ' + pCondicional;
qConsulta_temporal:= TADOQuery.Create(nil);
qConsulta_temporal.ConnectionString:= DMBDSistema.getConexion.ConnectionString;
qConsulta_temporal.sql.text:= ' Insert Into ' + NombreTabla + ' (' + ListaCampo + ')' +
' Values (' + ValorCampo + ')' + condicional_local;
try
qConsulta_temporal.ExecSQL;
Result:= True
finally
TADOConnection(qConsulta_temporal).Connected:= False;
qConsulta_temporal.Free;
end;
end;
Bien en orden de ideas cuando cierro la ventana con la que ingrese la información y ejecuto el ApplyUpdate del TclientDataset, no veo ningún tipo de actualización, es decir no aparecen los nuevos registros ni tampoco los borrados
Que hacer, Agradezco de antemano su tiempo
gertorresm
Colombia
