F�rum erro dbexpress #389407

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

Curtir t�pico

+ 0

Responder

Posts

26/10/2010

Wilson Junior

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.

Responder

Gostei + 0

26/10/2010

Luigi Maestrelli

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;

Responder

Gostei + 0

26/10/2010

Wilson Junior

O seu componente FMenu.Conexao est� conectado?

Responder

Gostei + 0

26/10/2010

Luigi Maestrelli

Sim, em uma tentativa anterior, testava a conexao

Responder

Gostei + 0

26/10/2010

Wilson Junior

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.

Responder

Gostei + 0