Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.04.2014, 13:39
tsesarev tsesarev вне форума
Прохожий
 
Регистрация: 28.04.2014
Сообщения: 1
Версия Delphi: delfi 7
Репутация: 10
По умолчанию Поиск и вывод информации из таблицы Excel

Здравствуйте!!! Сразу к делу... Есть таблица в Excel, состоящая из 6 столбцов и множества строк... Нужна программа поиска информации в строке и вывода информации на экран по одному из параметров. Пример таблицы прикреплен, в нем же и примеры визуализации программы. Пожалуйста))

Пишу что нужна, т.к. уже позабыл язык программирования совсем, да и нет уже и программ и навыков.

Заранее спасибо тому кто сделает. (будет небольшой бонус)
Вложения
Тип файла: rar список.rar (9.9 Кбайт, 4 просмотров)
Ответить с цитированием
  #2  
Старый 09.01.2015, 19:15
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А не проще в этом случае считать всю таблицу в память и потом уже в памяти все искать?
Ответить с цитированием
  #3  
Старый 09.01.2015, 22:14
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Тут делов то на 15 минут. Подключить файл экселя как таблицу БД и собственно все. Мне неясно только во втором примере, почему при запросе на значение 123456789126 получаем еще 3 "левых" строки?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #4  
Старый 09.01.2015, 22:22
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
28.04.2014
...
И почему так активизировались в некротеме после поста спам-бота?...
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #5  
Старый 09.01.2015, 22:47
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Да я даже и не глянул на дату вопроса
Ладно, не пропадать же ответу. Может кому сгодится.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit Unit28;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;
 
type
  TForm28 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form28: TForm28;
 
implementation
 
{$R *.dfm}
 
procedure TForm28.Button1Click(Sender: TObject);
begin
 if AdoTable1.Filtered
 then AdoTable1.Filtered := not AdoTable1.Filtered
 else begin
      AdoTable1.Filter := Format('[%s]=''%s''',[ComboBox1.Items.Strings[ComboBox1.ItemIndex], Edit1.Text]);
      AdoTable1.Filtered := True;
      end;
end;
 
procedure TForm28.FormActivate(Sender: TObject);
Const
  XLSXConnectStr = 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties="Excel 12.0 Xml;HDR=YES";';
Var
  i: Integer;
begin
 AdoTable1.ConnectionString := Format(XLSXConnectStr, ['D:\2\список.xlsx']);
 AdoTable1.TableName := '[Лист1$]';
 AdoTable1.Open;
 for i := 0 to 5 {AdoTable1.Fields.Count - 1}
 do ComboBox1.Items.Add(AdoTable1.Fields[i].FieldName);
 ComboBox1.ItemIndex := 1;
end;
 
end.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:00.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025