ClienteDataSet a ClientDataSet

[Chaja]

hola:
Como andan todos.... bien. Lo que estoy intentando hacer es: Tengo un ClienteDataSet el cual cargo los datos desde un archivo XML, el cual tiene todos los campos de la tabla de la base de datos. y tengo otro ClienteDataSet el cual esta vinculado con su DSProvider y este al SQL.
quiero asignar los datos del 2º CDS al 1º, pero este no se carga con los datos. yo hago esto:

CDSVentas:= CDSDatos_XML;

o debo recorre el el segundo e ir poniendo campo por campo?


Gracias

Luis Roldan
Mar del Plata
Argentina

[[Chris]]

Hola Chaja!

Podrías explicarte mejor?

Saludos!

[[Al González]]

Usa los métodos AppendData y, si se desea eliminar el contenido actual, EmptyDataSet. Encontrarás varios ejemplos de su uso en estos mismos foros.

Saludos.

[CHECHE81]

Saludos a todos¡¡
Pues haciendo un ciclo While recorriendo el ClientDataSet que tiene los datos, en mi caso el AdoDataSet1 lo cargue con datos de un archivo de excel que necesito cargar a mi tabla cdsPAsignaturas en mi bd de MySQL, algo asi:

Código Delphi [-]
AdoDataSet1.First;
   While not AdoDataSet1.EoF do
   begin
     CDSLastidA.active:= false; // cierro,esto lo uso para obtener el select max(idPlanYAsignatura) de mi tabla
     CDSLastidA.active:=true;  //abro,esto lo uso para obtener el select max(idPlanYAsignatura) de mi tabla

     cdsPAsignaturas.Append;  // Aquí pones en modo de inserción a tu tabla donde copiaras los datos.. 
     cdsPAsignaturas.FieldByName('idPlanYAsignatura').Value:= CDSLastidA.FieldByName('id').AsInteger+1;// Aquí obtengo el ultimo valor del campo ID, así lo uso yo ok
     cdsPAsignaturas.FieldByName('idPlanGeneral').Value := AdoDataSet1.Fields[0].Value;
     cdsPAsignaturas.FieldByName('sPlanNombreOficial').Value:= AdoDataSet1.Fields[1].Value ;
     cdsPAsignaturas.FieldByName('sPlanNombreCorto').Value := AdoDataSet1.Fields[2].Value ;
     cdsPAsignaturas.FieldByName('iOrden').Value := AdoDataSet1.Fields[3].Value ;
     cdsPAsignaturas.FieldByName('sPeriodoNombre').Value := AdoDataSet1.Fields[4].Value ;
     ....
     cdsPAsignaturas.post; // guardas los datos
     
     AdoDataSet1.Next;// siguiente hasta terminar el recorrido
    
     end;

Claro que para guardar los cambios directamente a la bd debe tener el famoso ApplyUpdates en el evento AfterPost del ClientDataSet donde copiaras los datos algo como:

Código Delphi [-]
procedure Tdmconexion.cdsPlantelesAfterPost(DataSet: TDataSet); 
begin
   if cdsPlanteles.ChangeCount > 0 then
   cdsPlanteles.ApplyUpdates( 0 );
end;

Esto me funciona, espero te sirva Chaja...saludos¡¡¡

[Chaja]

lo que quiero hacer es freezar un factura.Si se pude usar el termino.
Entonces que hago,el usuario empieza hace una factura, y por la mitad del detalle,decide cortar para facturar a otro cliente. para no perder lo echo, como uso clientdataset, hago un SavetoFile a un XML de los datos que tiene cargado. hago la otra factura y luego seria recuperar lo que habia empezado. para eso los archivos xml que habia guardado en el disco los leo con un CDS y hago un LoadFromFile(xx.xml) pero los datos del CDS con los datos delXML los debo asignar a los CDS que manejo habitualmente con los datos. Lo que no queria era asignar los datos de los campos de uno a otro en forma manual, pense al ser dos CDS iguales haciendo CDSDatos:=CDSXml, era suficiente.

Gracias

[[Al González]]

Empezado por Chaja

lo que quiero hacer es freezar un factura.Si se pude usar el termino.
Entonces que hago,el usuario empieza hace una factura, y por la mitad del detalle,decide cortar para facturar a otro cliente. para no perder lo echo, como uso clientdataset, hago un SavetoFile a un XML de los datos que tiene cargado. hago la otra factura y luego seria recuperar lo que habia empezado. para eso los archivos xml que habia guardado en el disco los leo con un CDS y hago un LoadFromFile(xx.xml) pero los datos del CDS con los datos delXML los debo asignar a los CDS que manejo habitualmente con los datos. Lo que no queria era asignar los datos de los campos de uno a otro en forma manual, pense al ser dos CDS iguales haciendo CDSDatos:=CDSXml, era suficiente.

Gracias

Te recomiendo que uses un TClientDataSet en memoria, no es necesario que lo guardes a un archivo XML. Usando el método AppendData que te sugerí mensajes arriba.

Saludos Cheché, un gusto verte.

Al.