Ошибка при попытке загрузить таблицу через OLE

Вверх ↑

Форумы Помощь по пакетуОшибка при попытке загрузить таблицу через OLE ← Ctrl123 4Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26153

Рейтинг: 2127

#16: 2013-10-29 09:34:26 ЛС | профиль | цитата

mudfactory писал(а):

Там он объемный, сколько свойства не менял, так и не получилось добиться такого вида

Кинь на форму компонент StyleXP, но он не работает под FPC.

карма: 22

Ответов: 16884

Рейтинг: 1239

#17: 2013-10-29 12:06:53 ЛС | профиль | цитата

Мимо проходил...


Add(ODialog,3010412,328,258)
{
 Filter="Exel files|*.xls;*.xlsx;*.xlsm;*.xlsb"
 Title="Выберите файл импорта"
 FileName=""
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 257

Рейтинг: -2

#18: 2013-10-29 12:16:07 ЛС | профиль | цитата

Tad писал(а):

Мимо проходил...

уже исправил, мелочи потом доделываю)

Кстати со stylexp прогресс бар все равно плоский, не объемный(

карма: 0

Разработчик

Ответов: 26153

Рейтинг: 2127

#19: 2013-10-29 12:59:52 ЛС | профиль | цитата

mudfactory писал(а):

не объемный

Поставь стандартный под стилем XP, а не Rush. Rush-контролы отрисовываются "как есть", вне зависимости от возможностей системы

Add(MainForm,2953706,42,105)
{
 link(onCreate,14581701:doTimer,[])
}
Add(ProgressBar,619079,224,119)
{
 Left=15
 Top=225
 Width=360
}
Add(StyleXP,4213403,224,77)
{
}
Add(CounterEx,4700580,161,119)
{
 Max=120
 link(onNext,619079:doPosition,[])
}
Add(Timer,14581701,105,119)
{
 Interval=33
 Enable=1
 link(onTimer,4700580:doNext,[])
}

карма: 22

Ответов: 16884

Рейтинг: 1239

#20: 2013-10-29 14:50:08 ЛС | профиль | цитата

mudfactory, я никогда не оставляю мелочей на потом и тебе советую забыть про "потом".
Мелочей соберётся столько, что потом тебя сожрут.
Запустил твою схемку.
Всё, что ниже, это не мораль, а просто мысли вслух.
Мелочи по алгоритму :
1. DS_ODBC не сработал, а "Введите имя листа" выскочило.
2. Какое имя, если я подключился к книге Excel и не знаю какие листы там есть ?
3. Если я захочу перейти на другой лист в этой-же книге ?
и т.д.
Мелочи по схеме: Хабы возле Memory. Нафига они нужны ?
=========================================================
С учетом вышесказанного, вот что получилось:

mudfactory_1.gif

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

mudfactory_1.gif [81KB] [285]

Разработчик

Ответов: 26153

Рейтинг: 2127

#21: 2013-10-29 15:28:52 ЛС | профиль | цитата

Tad, кстати, а каким стандартным запросом можно получить список листов в Excel-e

карма: 22

Ответов: 16884

Рейтинг: 1239

#22: 2013-10-29 15:47:05 ЛС | профиль | цитата

nesco, не помню. Посмотреть надо.
Что-то вроде


For i:=1 to Workbook.Sheets.Count do выводишь Workbook.Sheets(i).Name // тут ещё где-то $ воткнуть надо

за точность не ручаюсь. Приблизительно. Лет 20 в Excel не ходил.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26153

Рейтинг: 2127

#23: 2013-10-29 16:27:46 ЛС | профиль | цитата

Tad писал(а):

Что-то вроде

Дааа... Все понятно

карма: 22

Ответов: 257

Рейтинг: -2

#24: 2013-10-29 16:49:51 ЛС | профиль | цитата

Tad писал(а):

Мелочи по алгоритму :
1. DS_ODBC не сработал, а "Введите имя листа" выскочило.
2. Какое имя, если я подключился к книге Excel и не знаю какие листы там есть ?
3. Если я захочу перейти на другой лист в этой-же книге ?
и т.д.

1. Пофиг то не сработал, так как никто мне тут так и не ответил по поводу как узнать имя листов, не зная их, приходится вот так извращаться. Ко всему прочему испортированные данные всегда находятся на одном единственном листе выбор * в качестве имени листа не прокатывает.
2. См выше
3. В книге всегда один лист, только он может по разному называтся

а про хабы в мэмори - чтоб перед добавлением новых данных стирались старые, или они и так сотрутся?

если выложишь свой вариант, буду благодарен

карма: 0

Разработчик

Ответов: 26153

Рейтинг: 2127

#25: 2013-10-29 17:05:25 ЛС | профиль | цитата

mudfactory писал(а):

мне тут так и не ответил по поводу как узнать имя листов

Вот и мне стало интересно, как это сделать стандартным SQL-запросом, как в схеме на картинке Tad-a

карма: 22

Ответов: 257

Рейтинг: -2

#26: 2013-10-29 17:20:43 ЛС | профиль | цитата

nesco писал(а):

Вот и мне стало интересно, как это сделать стандартным SQL-запросом, как в схеме на картинке Tad-a

Буду надеяться что он поделится информацией, я это уже дня три пытаюсь узнать чтоб избавится от этого "введите название листа"

карма: 0

Ответов: 16884

Рейтинг: 1239

#27: 2013-10-29 18:43:17 ЛС | профиль | цитата

mudfactory,
1. сколько таблиц в день приходит ?
2. сколько строк в таблице ?
3. что ты с ними делаешь ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 257

Рейтинг: -2

#28: 2013-10-29 18:51:34 ЛС | профиль | цитата

Tad писал(а):

mudfactory,
1. сколько таблиц в день приходит ?
2. сколько строк в таблице ?
3. что ты с ними делаешь ?

таблиц 3-4 неделя. Строк от 100 до 22000. Просто загоняю в таблицу, чтоб были видны столбцы, далее выбираются нужные столбцы и все это загоняется в sqlite

карма: 0

Ответов: 16884

Рейтинг: 1239

#29: 2013-10-29 19:05:03 ЛС | профиль | цитата

Tad писал(а):

3. что ты с ними делаешь ?

в SQLite ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 257

Рейтинг: -2

#30: 2013-10-29 19:13:35 ЛС | профиль | цитата

Там много чего, с ними происходит, важно чтоб они были в SQLite так как нужно присваивать ID каждой позиции и связывать с другими таблицами которые там есть.

карма: 0

Форумы Помощь по пакетуОшибка при попытке загрузить таблицу через OLE ← Ctrl123 4Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)