carmelina
18-06-2008, 18:00:02
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.
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.