Ver Mensaje Individual
  #9  
Antiguo 20-08-2012
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Reputación: 13
MartinS Va por buen camino
Ok, y de donde armaste la base de datos?... Proba pasandole el valor nulo por parametro o bien pasale un cero aunque todo depende del trigger, por ejemplo

Este es un trigger que se activa si el valor de Id es nulo o cero y por parametro lo pasarias asi: (Obvio que segun mi ejemplo)

Código SQL [-]
  IF ((NEW.ID_PASAJERO IS NULL) or (NEW.ID_PASAJERO =0)) THEN
      NEW.ID_PASAJERO = GEN_ID(PASAJERO_ID_GEN, 1);


Código Delphi [-]
begin
QRY_Acciones.Close;// cierro la conexion
QRY_Acciones.SQL.Clear; //limpio por si tenia alguna consulta anterior
//inserto los datos en la base de datos
QRY_Acciones.SQL.Add('INSERT into pasajero (id_pasajero, apellido, nombre, dni) VALUES (:Indice, :apellido, :nombre, :dni)');
QRY_Acciones.ParamByName('Indice').AsString := ''; // ó QRY_Acciones.ParamByName('Indice').AsInteger := 0;
QRY_Acciones.ParamByName('apellido').AsString := ED_Apellido.Text;
QRY_Acciones.ParamByName('nombre').AsString := ED_Nombre.Text;
QRY_Acciones.ParamByName('dni').AsInteger := StrToInt(ED_Dni.Text);
//ejecuto la sentencia SQL
QRY_Acciones.ExecSQL;
//refresco el dbgrid
end;

Fijate que cambie null por :indice y proba con open en vez de execSql ya que es un Query...
Hasta aca llego mi amor

Saludos
Responder Con Cita