Guardar Registros en diferentes tablas
 

Hola a todos

Estoy desarrollando un pequeño programita de ventas de libros, en Delphi 7 y SQL server, el problema que tengo es que tengo una pantalla con los datos de las ventas yo los quiero guardar en tres tablas, tengo un boton que me realiza la opcion guardar yo hice por ejemp.
ModuloDato.Venta.fielbyname('codigo').asinteger:=strtoint(edit1.text);
...............................
................
............guarda bien los datos pero no lo veo adecuado, no se si se hay una manera de hacerlo mediante sql por favor una ayudita :mad:

A ver si alguna idea te sirve:

Código Delphi [-]
const strSql = 'INSERT INTO %s (campo1, campo2, campo3) values (:uno, :dos, :tres)';
var Tablas : array [1..3] of string = ('Tabla1', 'Tabla2', 'Tabla3');
begin

for i:= low(Tablas) to high(Tablas) do
begin
  query1.sql.text := format(strSql, tablas[i]);
  query1.paramsbyname('uno').AsString := Edit1.text;
  query1.paramsbyname('dos').AsString := Edit2.text;
  query1.paramsbyname('tres').AsInteger := strToIntDef(Edit4.text, 0);
  query1.ExecSql;
end;

Si los nombres de campos son distintos en las 3 tablas, pues usa otro Array o un Array de Registros.. en fins, hay muchas formas.

Saludos

Solo que no es ParamsByName sino ParamByName, sin la "s" antes de la "B".

Suerte.

Asias por "estar al quite" nemesio ;)

Saludos

Gracias
 

Nemesio Lo de la s era un error al escribir rapido
Gracias a Lepe por la ayuda