Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2015, 08:08   #1
Оля2394
Пользователь
 
Регистрация: 22.02.2015
Сообщений: 30
По умолчанию Запрос к excel

Здравствуйте Подскажите пожалуйста, программно создаю таблицу в Excel, которая имеет вид:
qw.jpg
Вопрос такой: как сделать запрос на вывод в dbgid только одной определенной строки, например "qw1"?
Оля2394 вне форума Ответить с цитированием
Старый 28.05.2015, 08:43   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Для этого нужно подключить Экзел через ADO компоненты.
Умеешь с ADOQuery или ADOTable работать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.05.2015, 09:33   #3
Оля2394
Пользователь
 
Регистрация: 22.02.2015
Сообщений: 30
По умолчанию

с ADOTable нет
Оля2394 вне форума Ответить с цитированием
Старый 28.05.2015, 09:35   #4
Оля2394
Пользователь
 
Регистрация: 22.02.2015
Сообщений: 30
По умолчанию

подключаюсь через data sourse, adoconnection и adoquery
Оля2394 вне форума Ответить с цитированием
Старый 28.05.2015, 10:12   #5
SQLPowerUser
Форумчанин
 
Аватар для SQLPowerUser
 
Регистрация: 19.01.2015
Сообщений: 158
Восклицание Прикладываю проект-шаблон

Код:
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(ParamStr(0)) + 'Book1.xls;User ID=Admin;Password=;' +
  'Extended Properties="Excel 8.0;' + IfThen(CheckBox1.Checked, 'HDR=YES', 'HDR=NO') +
  ';IMEX=1"'; // IMEX=1 нужен, чтобы корректно прочитался столбец, если в нем идут вмеперешку ячейки с числами, датами, строками...
  ADOConnection1.Open;

  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from [Sheet1$]';
  ADODataSet1.Open;
Вложения
Тип файла: zip Excel. Открыть как ADO.zip (8.0 Кб, 7 просмотров)
SQLPowerUser вне форума Ответить с цитированием
Старый 28.05.2015, 10:23   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Дык там еще с WHERE поиграться для выбора заданной строки, для начала - определиться с именами колонок. Либо фильтровать уже с использованием Filtered, Filter либо OnFilterRecord
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 28.05.2015, 16:20   #7
Оля2394
Пользователь
 
Регистрация: 22.02.2015
Сообщений: 30
По умолчанию

ещё вопрос: как сложить все данные построчно, что бы выводило для того же qw1 сумму 131?
Оля2394 вне форума Ответить с цитированием
Старый 28.05.2015, 16:22   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Вычисляемое поле
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 28.05.2015, 16:29   #9
Оля2394
Пользователь
 
Регистрация: 22.02.2015
Сообщений: 30
По умолчанию

это как? если с помощью footer'a, то как сделать для строк?
Оля2394 вне форума Ответить с цитированием
Старый 28.05.2015, 16:33   #10
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

footer для каждой строки? Это по нашему А правильно - создаешь в датасете вычисляемое поле и в OnCalcFields вычисляй. Можно было бы и в запросе, но для Excel как-то в напряг этим заниматься
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос в БД access из листа Excel Elliniel Microsoft Office Access 2 19.04.2014 07:59
Экспорт в Excel из Delphi через SQL запрос betirsolt БД в Delphi 1 19.05.2013 18:11
реализовать перекрестный запрос в delphi для вывода в excel Я)) БД в Delphi 2 17.05.2013 19:29
запрос имени файла в макросе Excel waskes91 Microsoft Office Excel 1 22.02.2012 03:56
SQL-запрос в excel, или импорт данных в word Sanek_81 Microsoft Office Excel 7 10.02.2011 14:40