procedimiento insert into.

[ingabraham]

alguien tiene algun procedimiento para guardar un insert into de cualquiera tabla y cualquier dimension de campos.
ej:

Código Delphi [-]
procedure guardardatos tabla(ptabla, pnrocampos,campo1,campo2...)
begin
insert into ptabla  value(...);
end;
 
 
INSERT INTO <nombre_tabla> 
[(<campo1>[,<campo2>,...])]
values 
(<valor1>,<valor2>,...);
 
]

y si tienen uno para modificar set, mucho mejor

[microbiano]

que es lo que realmente quieres un ejemplo de como se hace un insert?

algunos lo hacen asi :

Código Delphi [-]
with fmodulo.qry_registra do
   begin
     sql.Add('insert into volantes(usuario,recibe,volante,fecha_oficio)');
     sql.Add('values (:usuario,:recibe,:volante,:fecha_oficio);');
     Parameters.ParamByName('usuario').Value:=Trim(Fprincipal.wusuario);
     Parameters.ParamByName('recibe').Value:=wrecibio;
     Parameters.ParamByName('volante').Value:= woficio;
     Parameters.ParamByName('fecha_oficio').AsDate:= Fregistro.dtp_fecha_oficio.Date;
     try
      ExecSQL;
      application.MessageBox('Registro Almacenado Correctamente','',mb_ok + mb_iconinformation);
      exit;
     except
      on E:EOleException do
        begin
        //showmessage('Problemas con query ['+text+']');
        MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
        exit;
       end; 
     end;
   end;

sin embargo a mi no me funciona lo que a mi me funciona es:

Código Delphi [-]
with fmodulo.qry_registra do
   begin
     
sql.Add('INSERT INTO VOLANTES (');
   Sql.Add(' usuario,');   
   sql.Add(' recibe,');
   sql.Add(' volante,');
   sql.Add(' fecha_oficio');
   sql.Add(' ) values (');
   sql.Add(' '+QuotedStr(Fprincipal.wusuario)+', ');
   sql.Add(' '+QuotedStr(wrecibio)+', ');
   sql.Add(' '+QuotedStr(woficio)+', ');
   sql.Add(' '+QuotedStr(DateToStr(wfechaoficio))+')');     try
      ExecSQL;
      application.MessageBox('Registro Almacenado Correctamente','',mb_ok + mb_iconinformation);
      exit;
     except
      on E:EOleException do
        begin
        //showmessage('Problemas con query ['+text+']');
        MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
        exit;
       end; 
     end;
   end;

[[Caral]]

Hola
No amigo, lo que quiere es un procedimiento o funcion que sirva para hacer cualquier insert a cualquier tabla y a cualquier cantidad de campos, sin importar nombre o tipo de campo.
Segun entiendo, algo que sirva para todo.
Saludos

[Casimiro Notevi]

Se podía crear un procedimiento que se le pasara el nombre de la tabla, los campos que vamos a dar valores y los valores de los mismos.
Se recorrería todos los campos de la tabla, si se encuentra uno de los campos pasados entonces se le da el valor también pasado, si no existe ese campo entre los pasados entonces se "pasa de él". Se supone que tendrán un valor por defecto.
En fin, es demasiado genérico, habría que tener muy claro para qué tablas, campos y valores se va a hacer y tenerlo controlado.
Lo que no vale es para todos porque si un campo no puede quedar nulo y no le damos valor... saltará el error

[[Caral]]

Hola
De que es factible lo es.
Lo que pasa es que habría que diseñar el procedimiento muy bien y con un conocimiento exacto de las tablas.
Pero si se puede, con paciencia.
Saludos

[robacio_ivan]

Me parece que hacer un procedimiento de esa categoria no es muy complicado, pero me parece que no tendria sentido porque teniendo el componente IBDataSet los insert, edit o delet se hacen de manera muy sencilla.

De todas formas si queres hacer un procedimiento que sirva para todas las tablas lo que podes hacer es una funcion que le pases en nombre de la tabla y en un arreglo los campos de la misma cosa de que lo unico que tenes que hacer es llenar siempre el arreglo con los campos de la tabla a la cual queres hacer el insert.

[[movorack]]

y si la inserción es muchisimo mas compleja?

Código SQL [-]
INSERT INTO films (code, title) VALUES ('B6717', get_title('B6717'));

INSERT INTO films (code, title, did, date_prod, kind) VALUES
    ('B6717', 'Tampopo', 110, '1985-02-10', 'Comedy'),
    ('HG120', 'The Dinner Game', 140, DEFAULT, 'Comedy');

INSERT INTO films SELECT * FROM tmp_films WHERE date_prod < '2004-05-07';