[carmelina]

Hola a todos!!!!

Tengo un problema y no se como resolverlo, la cosa es que tengo una conexion a una base de datos mysql. Utilizo los componentes Query y Tabla pero me da un error:

"Project Project1.exe raised exception class EOleException with message 'Argumentos incorrectos fuera del intervalo permitido o en conflicto con otros'. Proceso stopped. Use Step or Run to Continue"

Y no se porque puede ser. Voy a adjuntaros el código por si veis que es lo que hago mal.

procedure InsertarEnTabla(nombrevideo : String; Tabla : TADOTable; Query1 : TADOQuery);
var
 fech  : String;
begin
Tabla.Insert;
fech:=GetLocalT;
Query1.SQL.Add('INSERT INTO misvideos VALUES (:fecha, :nombrevideo, :ruta)');
Query1.Parameters.ParamByName('fecha').value:=StrToDate(fech);
Query1.Parameters.ParamByName('nombrevideo').value:=nombrevideo;
Query1.Parameters.ParamByName('ruta').value:='c:\videos';
Query1.ExecSQL;
end;
procedure Insertar(nombrevideo : String; Tabla : TADOTable; Query1 : TADOQuery);
begin
If Tabla.Active then
  begin
  nombrevideo:=form2.SaveDialog1.FileName;
  InsertarEnTabla(nombrevideo,Tabla,Query1);
  end
Else
  begin
  Tabla.open;
 nombrevideo:=form2.SaveDialog1.FileName;
  InsertarEnTabla(nombrevideo,Tabla,Query1);
end;
end;

procedure TForm1.ControlClick(Sender: TObject);
begin
If Control.Caption='Abrir' then
  begin
  OK:=True;
  Control.Caption:='Cerrar';
  Tabla.open;
   Insertar(nombrevideo,Tabla,Query1);
   end
Else
  begin
  Control.Caption:='Abrir';
  Tabla.Close;
end;
end;

Cuando da el fallo, me señala la linea:InsertarEnTabla(nombrevideo,Tabla,Query1);

El codigo tiene más lineas pero yo creo que el problema está en esta parte que os he puesto.


La cosa es que si cada vez que me sale el error, le doy a run y al final si me termina insertando los datos bien, pero no se porque sale el error ni como quitarlo.

Si pudieseis ayudarme os lo agradecería.

Un saludo y gracias de antemano.