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;