Fórum Incompatible types: WideString do ADODataSet.CommandText #253361
05/10/2004
0
Olá pessoal,
Alguém sabe como faço para saber a quantidade de valores no CommandText para utilizá-lo do ´While´ ? :?:
Estou importando uma planilha de excel para o sistema, porém eu gostaria que o usuário pudesse escolher qual planilha do arquivo ele quer. Exemplo: Plan1, Plan2, etc... no combobox.
Valeu galera, um abraço
Ricardo Vano Jr. :D [color=green:ea6ddb1d2b][/color:ea6ddb1d2b]
Alguém sabe como faço para saber a quantidade de valores no CommandText para utilizá-lo do ´While´ ? :?:
Estou importando uma planilha de excel para o sistema, porém eu gostaria que o usuário pudesse escolher qual planilha do arquivo ele quer. Exemplo: Plan1, Plan2, etc... no combobox.
procedure TFormImportar.BT_ProcurarClick(Sender: TObject);
var
Planilhas: WideString;
begin
if OpenDialog1.Execute then
EditNomeArquivo.Text := OpenDialog1.FileName;
Planilhas:= ADODataSet1.CommandText;
while not Eof (Planilhas) do
begin
ComboBox1.Items.Add(Planilhas);
end;
end;
Valeu galera, um abraço
Ricardo Vano Jr. :D [color=green:ea6ddb1d2b][/color:ea6ddb1d2b]
Ricardo.vano
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)