erro dbexpress

Delphi

26/10/2010

Boa tarde, estou usando o Delphi 7, Firebird 2.1 eo dbexpress como componente de conexão.
Porém quando uso a função GetTableNames, retorna o erro "DBEXPRESS ERROR: OPERATION NOT SUPPORTED"

O comando que uso é o seguinte :


  DM.Conexao.GetTableNames(Tabelas, False);



Alguma Sugestão?
Luigi Maestrelli

Luigi Maestrelli

Curtidas 0

Respostas

Wilson Junior

Wilson Junior

26/10/2010

Veja se isto lhe ajuda, pois o utilizei com o Delphi 2007.
var
  stlTabela: TStringList;
begin
  stlTabela := TStringList.Create;
  DM.Conexao.GetTableNames( stlTabela );

  { Utilize o stlTabela para saber o nome das tabelas }
end;


Espero ter colaborado.
GOSTEI 0
Luigi Maestrelli

Luigi Maestrelli

26/10/2010

Esse codigo é basicamento o que estou usando. Essa é a procedure onde esta o erro:

procedure TFConSQL.Adiciona;
var
 i : integer;
 Tabelas : tstringlist
begin
  if uppercase(ComboBox1.Text) = Uppercase(alias) then
      exit;
  alias := ComboBox1.Text;
  TreeView1.items.Clear;
  tabelas := tstringlist.Create;
  FMenu.Conexao.GetTableNames(Tabelas, False);
  FProgresso.Max := tabelas.count;
  Fprogresso.Show;
  FProgresso.Refresh;
  TreeView1.Items.Add(nil,'Tabelas');
  for i := 0 to tabelas.Count - 1 do
  begin
    TreeView1.Items.AddChild(TreeView1.Items[0],Tabelas[I]);
    FProgresso.Gauge1.Progress := FProgresso.Gauge1.Progress + 1;
  end;
  fprogresso.close;
end;

GOSTEI 0
Wilson Junior

Wilson Junior

26/10/2010

O seu componente FMenu.Conexao está conectado?
GOSTEI 0
Luigi Maestrelli

Luigi Maestrelli

26/10/2010

Sim, em uma tentativa anterior, testava a conexao
GOSTEI 0
Wilson Junior

Wilson Junior

26/10/2010

Este erro pode ser por N motivos, pois ele não é específico, tente verificar se as propriedades e os parâmetros de conexão estão corretos.

Espero ter colaborado.
GOSTEI 0
POSTAR