1

No seguinte codigo, ele deveria me apresentar as colunas de uma tabela que tenho no meu sistema, porem ao clicar para exibir as opções no combobox não aparece nada. Entretanto se eu começar a digitar o nome do campo por exemplo Nome_ ele completa com Nome_Rsocial e apresenta o resultado corretamente.

o codigo:

        cbbColunas.Items.Clear();
     with TADOQuery.Create(Self) do
         begin
     Connection := ADOConnection1; 
        SQL.Text := 'SELECT '+ ' c.name '+
         'FROM '+ ' Sys.Columns c '+
         'LEFT OUTER JOIN '+
         ' sys.index_columns ic ON ic.object_id = c.object_id AND ic.column_id = c.column_id '
        + 'LEFT OUTER JOIN '+
         ' sys.indexes i ON ic.object_id = i.object_id AND ic.index_id = i.index_id '
        + 'WHERE '+
         ' c.object_id = OBJECT_ID(:tabela)';
        Parameters.ParamByName('tabela').DataType := ftString; Parameters.ParamByName('tabela').Value := cbbTabelas.Text;
         Open();
         First(); 
        while not Eof do begin cbbColunas.Items.Add(FieldByName('name').AsString);
        Next(); 
        end; 
        end;
9
  • E este código apresentado esta sendo chamado onde ? Commented 5/11/2015 às 21:17
  • onchange do combobox Commented 6/11/2015 às 10:35
  • onde estou não posso rodar o Delphi, ali no where onde esta buscando pelo parâmetro, tenta usar um LIKE. Pergunta, precisa usar o parâmetro ? Commented 6/11/2015 às 11:02
  • Posso tentar com o Like, no almoço testo e retorno aqui Commented 6/11/2015 às 11:16
  • Não funcionou, o que me intriga é que se eu digitar algum texto no combo, as colunas aparecem, porem se eu clicar nelas elas nao preenchem o combo. Commented 6/11/2015 às 14:25

1 Resposta 1

-1

Utilize a função abaixo:

ADOConnection.GetFieldNames('NOME_DA_TABELA', cbbColunas.Items);

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .