Tema: insertar en base de datos
Ver Mensaje Individual
  #1  
Antiguo 23-09-2011
Avatar de pmtzg
pmtzg pmtzg is offline
Miembro
  
Registrado: jul 2007
Posts: 179
Reputación: 17
pmtzg Va por buen camino
insertar en base de datos
hola amigos
preguntando a los expertos nuevamente !!!

usando un DataModule Llamado DMClientes con FibDataset
y otro Datamodule Llamado AccesoDatos donde esta FibData (Bd)

al grabar en una base de datos lo hago de la siguiente manera:

Código Delphi [-]
DMClientes.DTSMovClientes.Append;
   DMClientes.DTSMovClientes.QInsert.Params[0].Value:= enumero.Text;
   DMClientes.DTSMovClientes.QInsert.Params[1].Value:= 'A';
   DMClientes.DTSMovClientes.QInsert.Params[2].Value:= enombre.Text;
   DMClientes.DTSMovClientes.QInsert.Params[3].Value:= erfc.Text;
   DMClientes.DTSMovClientes.QInsert.Params[4].Value:= edir.Text;
   DMClientes.DTSMovClientes.QInsert.Params[5].Value:= epob.Text;
   DMClientes.DTSMovClientes.QInsert.Params[6].Value:= ecp.Text;
   DMClientes.DTSMovClientes.QInsert.Params[7].Value:= etel.Text;
   DMClientes.DTSMovClientes.QInsert.Params[8].Value:= eatencion.Text;
   DMClientes.DTSMovClientes.QInsert.Params[9].Value:= eaten_cobranza.Text;
   DMClientes.DTSMovClientes.QInsert.Params[10].Value:= eclasific.Text;
   DMClientes.DTSMovClientes.QInsert.Params[11].Value:= edias_cred.Text;
   DMClientes.DTSMovClientes.QInsert.Params[12].Value:= mem_obser.Text;
   DMClientes.DTSMovClientes.QInsert.Params[13].Value:= ecol.Text;
   DMClientes.DTSMovClientes.QInsert.Params[14].Value:= efax.Text;
   DMClientes.DTSMovClientes.QInsert.Params[15].Value:= email.Text;
   DMClientes.DTSMovClientes.QInsert.Params[16].Value:= ecurp.Text;
   DMClientes.DTSMovClientes.QInsert.Params[17].Value:= eclv_ciec.Text;
   DMClientes.DTSMovClientes.QInsert.Params[18].Value:= eclv_idse.Text;
   DMClientes.DTSMovClientes.QInsert.Params[19].Value:= eclv_rec.Text;
   DMClientes.DTSMovClientes.QInsert.ExecQuery;
   AccesoDatos.FibTr.Commit;
obiamente ya en el FIBDataset ya tengo los parametros de insert

ahora estoy pensando hacerlo con un PROCEDIMIENTO ALMACENADO
pero no lo he hecho !!
Como sería ? ... me iluminarian como hacerlo ? ? ?? ? ? ?

y que sera mas rapido ?, si lo hago masivo; por decir cada 1000 registros
grabar !!!

sera mas rapido FIBDataset o el Procedimiento Almacenado ????

espero sus comentarios y su apoyo
mil gracias por su tiempo
Responder Con Cita