Важная информация
Показано с 1 по 2 из 2

Тема: Delphi ,Excel и ADO вывод таблиц

  1. #1 Delphi ,Excel и ADO вывод таблиц 
    Новичок
    Регистрация
    08.05.2020
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Здравствуйте
    DataModule -dm
    TADODataset -set
    TADODconnection -con
    Listbox-box
    Пробую технологи ADO для Excel
    В процедуре Box2 при выборе нескольких элементов они должны выводиться в memo и в StringGrid одновременно.
    Выводятся сразу все или ничего помогите написать условие Box2.Selected[i], которое возвращает true, если на текущий момент i-тая опция выделена для вывода толька выбранных элементов в memo и в StringGrid который не изменяет размеры ColCount и RowCount и вообще ничего не выводит.Делал условие if Box2.Selected[i] = true then но ин выводит только первый нажатый элемент независимо выбрано несколько элементов или просто переход по элементам
    Рабочий код с момента вывода в Memo всего независимо от выбора элемента.
    Pascal Code:
    1. procedure TForm1.Box1Click(Sender: TObject);
    2. var i: Integer; s: string;
    3. begin
    4. with dm do begin
    5. set1.Close;
    6. set1.CommandText:='SELECT * FROM ['+Box1.Items[Box1.ItemIndex]+']';
    7. set1.Open;
    8. box2.Items:=set1.FieldList; for i:=0 to dg.FieldCount-1 do dg.Columns[i].Width:=59;
    9. memo1.Clear;
    10. set1.First;
    11. end;
    12. end;
    13.  
    14. procedure TForm1.Box2Click(Sender: TObject);
    15. var i: Integer; s: string;
    16. begin
    17. with dm do begin
    18. while not set1.Eof do begin
    19. s:='';
    20.   for i:=0 to set1.FieldCount-1 do s:=s+set1.Fields.Fields[i].AsString+chr(9);
    21. memo1.Lines.Add(s);
    22. set1.Next;
    23. end;
    24. end;
    25. end;
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    331
    Сказал(а) спасибо
    17
    Поблагодарили 90 раз(а) в 64 сообщениях
    Для начала отформатируй код и напиши комментарии, авось что-нибудь прояснится
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Excel
    от Logontip в разделе VBA
    Ответов: 8
    Последнее сообщение: 18.09.2018, 12:44
  2. EXCEL Вопрос
    от Antifrist в разделе Другие языки программирования
    Ответов: 0
    Последнее сообщение: 04.09.2018, 11:45
  3. Ответов: 1
    Последнее сообщение: 13.06.2017, 11:56
  4. Запрос из таблиц один ко многим
    от Виталий Архипов в разделе MySQL
    Ответов: 3
    Последнее сообщение: 22.02.2013, 15:10
  5. excel в delphi цикл по строкам
    от 123456789igor в разделе Delphi
    Ответов: 4
    Последнее сообщение: 11.09.2012, 22:40
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •