Problema Firedac Sql Advantagedatabase 12 Multiple Row Insert

[amadis]

No tengo condición.

Inserto en la tabla todos los registros que hay en el Clientdataset. que tienen el dato del articulo facturado, la cantidad y el numero de comprobante.

[[AgustinOrtu]]

Es lo que dice casimiro, la coma luego de la lista de parametros no va

[bitbow]

Extrae tu sql resultante (SQL.Text) y valida la sintaxis (reemplaza los params por valores) y ejecutalo en un cliente independiente.

Saludos.

[amadis]

La sintaxis está correcta, luego de ponerle el QuotedStr que comenté al parametro String, funcionó.
Solamente que el problema lógico ahora es que reutilizo los mismos parametros, y al recorrer el ClientDatasat, si este tiene 5 registros, e nel query se agregan las cinco lineas de parámetros y asigna el valor y una a una, pero como el nombre de los parametros es la mismo, en definitiva me guardó 5 veces el registro último.

La COMA del final ES CORRECTA, ya que delimita el grupo de valores, y recorro el ClientDataset hasta -1 para luego en el proximo sqlstring reemplazar la COMA por PUNTOyCOMA, indicando fin de valores.


Lo que tendria que hacer es crear parametros multiplicados por los N registros tenga en el clientdataset.
Nombaralos igual agregando el numero del registro

de esa forma los primeros parametros serían (:art1, :cant1, :com1), luego (:art2, :cant2, :com2) y sucesivamente.

[ecfisa]

Hola.

Empezado por amadis

No tengo condición.

Inserto en la tabla todos los registros que hay en el Clientdataset. que tienen el dato del articulo facturado, la cantidad y el numero de comprobante.

Entonces te interpreté mal. Aunque hay algunos puntos que desconozco, creo que lo que buscas sería mas o menos así:

Código Delphi [-]
...
begin
  QryGuardaDet.Close;
  QryGuardaDet.SQL.Clear;
  QryGuardaDet.SQL.Add('INSERT INTO DETALLE(ARTICULO, CANTIDAD, COMPROBANTE)');
  QryGuardaDet.SQL.Add('VALUES(:ART, :CAN, :COM)');
  QryGuardaDet.Prepare;

  while not datos.CDSDetalleFcant.Eof do
  begin
    QryGuardaDet.ParamByName('ART').Value := datos.CDSDetalleFarticulos.Value;
    QryGuardaDet.ParamByName('CAN').Value := datos.CDSDetalleFcant.Value;
    QryGuardaDet.ParamByName('CON').Value := xxx {valor de comprobante que corresponda};
    QryGuardaDet.ExecSQL;  // ejecutar la consulta de actualización
    datos.CDSDetalleFcant.Next;
  end;
  ...
end;

Saludos

[amadis]

Si seria eso, suena a que va a funcionar, ya que ejecuta el query en cada registro. y asigna los valores a los parametos.

Yo desconocia la funcion del PREPARE, y en cada registro repetía todos los pasos anteriores.