mySQL e FireDAC

MySQL

Delphi

19/08/2015

Ao usar o código acima aparece a mensagem de erro: Argument out range.

Código:

FDConnection1 := TConexao.GetConexao;
  FDConnection1.Open();
  FDConnection1.ExecSQL('insert into CLIFORN (CLIFORN_ID, CLIFORN_NOME, CLIFORN_RAZAO) values(:Par1,:Par2,:Par3,:Par4,Par5)',
    [2,'PH','0865432'],
    [ftInteger,ftString,ftString,ftString,ftString]);


O TConexao.Get vem do:

  FDConnection := TFDConnection.Create(nil);
  FDConnection.Params.DriverID := 'MySQL';
  FDConnection.Params.Database := 'academia';
  FDConnection.Params.Add('Server=127.0.0.1');
  FDConnection.Params.UserName := 'root';
  FDConnection.Params.Password := 'minhasenha';
  FDConnection.Connected := True;
  Result := FDConnection;
Paulo Andrade

Paulo Andrade

Curtidas 0

Respostas

Paulo Andrade

Paulo Andrade

19/08/2015

Ao usar o código acima aparece a mensagem de erro: Argument out range.

Código:

FDConnection1 := TConexao.GetConexao;
  FDConnection1.Open();
  FDConnection1.ExecSQL('insert into CLIFORN (CLIFORN_ID, CLIFORN_NOME, CLIFORN_RAZAO) values(:Par1,:Par2,:Par3,:Par4,Par5)',
    [2,'PH','0865432'],
    [ftInteger,ftString,ftString,ftString,ftString]);


O TConexao.Get vem do:

  FDConnection := TFDConnection.Create(nil);
  FDConnection.Params.DriverID := 'MySQL';
  FDConnection.Params.Database := 'academia';
  FDConnection.Params.Add('Server=127.0.0.1');
  FDConnection.Params.UserName := 'root';
  FDConnection.Params.Password := 'minhasenha';
  FDConnection.Connected := True;
  Result := FDConnection;


Descobri e corrigi essa Linha:
FDConnection1.ExecSQL('insert into CLIFORN (CLIFORN_ID, CLIFORN_NOME, CLIFORN_RAZAO) values(:Par1,:Par2,:Par3)',
    [2,'PH','0865432'],
    [ftInteger,ftString,ftString]);


Só que agora aparece a seguinte mensagem: Oject factory for class {324-23422-234214} is missing. to register it, you can drop component [TFDGUIxWaitCursos] into your project.
GOSTEI 0
POSTAR