Jump to content
Ranja AZ

Open HFSQL WINDEV Table error

Recommended Posts

My objective is to access the tables of a database named GMAO of a WINDEV HFSQL (Hyperfile SQL) server. I try to use ODBC.

Here is my source:

 

procedure TForm1.Button1Click(Sender: TObject);
var
  FDConnectionODBCHFSQL: TFDConnection;
  TableODBC:TFDTable;
begin
  TableODBC := TFDTable.Create(nil);
  FDConnectionODBCHFSQL := TFDConnection.Create(nil);
  try
    FDConnectionODBCHFSQL.Params.Clear;
    FDConnectionODBCHFSQL.DriverName := 'ODBC';
    FDConnectionODBCHFSQL.Params.Add('ODBCDriver=HFSQL');
    FDConnectionODBCHFSQL.Params.Add('Database=GMAO');
    FDConnectionODBCHFSQL.Params.Add('User_Name=admin');
    FDConnectionODBCHFSQL.Params.Add('ExtendedMetadata=True');
    FDConnectionODBCHFSQL.Params.Add('ODBCAdvanced=Server Name=DESKHOLY-PC;Server Port=4900;IntegrityCheck=1');
    FDConnectionODBCHFSQL.Open;

    TableODBC.Connection := FDConnectionODBCHFSQL;
    TableODBC.TableName := 'appartenance';

    try
      TableODBC.Open;
      ShowMessage('Table is open!');
      except
      on E: Exception do
      begin
        ShowMessage('Open Table error : ' + E.Message);
        exit;
      end;
    end;


  except
    on E: Exception do
    begin
      ShowMessage('Connection Error: ' + E.Message);
      exit;
    end;
  end;
end;

 

The connection goes through, but when I try to open a table there is always an error:

 

Error opening Table: [FireDAC][Phys][ODBC][Microsoft][ODBC Driver Manager] The driver does not support this function.

 

Please, can anyone help me to resolve this issue?

 

Regards!

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×