--------------------------- Gestorcomb --------------------------- Parameter 'NUM' not found. --------------------------- Aceptar ---------------------------
Este es el codigo que llevo:
procedure TSolicitud.CrearSolicitud(DB: TIBDatabase; Numero,Fecha: string; Suplidor,Estado: Integer; Nota: string); var Insertar: TIBQuery; Transaccion: TIBTransaction; begin if DB = nil then Exit; Transaccion := TIBTransaction.Create(nil); Transaccion.DefaultDatabase := DB; Insertar := TIBQuery.Create(nil); Insertar.Transaction := Transaccion; Insertar.SQL.Add('INSERT INTO SOLICITUDES(SOL_ID, SOL_NUMERO, SOL_FECHA, SUP_ID, SOL_STATUS, SOL_NOTA) VALUES('',:NUM,:FECHA,:SUP,:ESTADO,:NOTA)'); Insertar.ParamByName('NUM').AsString := Numero; Insertar.ParamByName('FECHA').AsString := Fecha; Insertar.ParamByName('SUP').AsInteger := Suplidor; Insertar.ParamByName('ESTADO').AsInteger := Estado; Insertar.ParamByName('NOTA').AsString := Nota; Insertar.Prepare; Transaccion.StartTransaction; try Insertar.ExecSQL; except Transaccion.Rollback; raise; end; FreeAndNil(Insertar); FreeAndNil(Transaccion); end;
Así es como la llamo:
Solicitud.CrearSolicitud(FrmPrincipal.BaseDatos,edNumero.Text,DateToStr(edFecha.Date),cbSuplidor.ItemIndex,cbEstado.ItemIndex,edNota.Lines.Text);
No consigo ver donde está el problema.
Saludos.