Экспорт данных

[AndrewMarcovich]

При экспорте даных из таблицы dBase5 в SQL Server 2000 выдается ошибка,что мол ключ поиска не найден ни в одной записи. Как это пропустить или ещё какой способ может кто предложит?Заранее благодарю

[Ennor]

А какой именно механизм используется для экспорта данных?

[SUPchik]

Есть Adodc и связанный с ним DataGrid. Adodc берет данные из БД Access. Ещё установлен фильтр Adodc.
Каким образом экспортировать данные из DataGrid в таблицу Excel и чтобы при этом появлялось окошко для выбора,где будет создан экспортированный файл?

[iGrok]

Есть Adodc и связанный с ним DataGrid. Adodc берет данные из БД Access. Ещё установлен фильтр Adodc.
Каким образом экспортировать данные из DataGrid в таблицу Excel и чтобы при этом появлялось окошко для выбора,где будет создан экспортированный файл?

М.б. так?
-Открыть Excel.Application.
-Создать workbook, worksheet
-Перебором закинуть на лист всё, что нужно.
-Сохранить workbook.

Можно Adodc.Recordset.GetString(,,";",vbCrLf) и сохранить это в csv-файл. Он экселем откроется..

Есть ещё вариант выкинуть данные в Excel SQL-запросом, но тут будет гемор с преобразованием формата Ado.Filter в Where для SQL.

[SUPchik]

"-Перебором закинуть на лист всё, что нужно."

А так наверное шапка таблицы не будет копироваться

[iGrok]

"-Перебором закинуть на лист всё, что нужно."

А так наверное шапка таблицы не будет копироваться

Ну так ты закинь на лист сначала шапку в первую строку.

Так - это самый "настраиваемый" вариант. Ты можешь туда пихнуть вообще всё, что хочешь. Хоть ячейки сходу разным цветом выделить..
Остальные методы - чисто копирование данных.

[SUPchik]

А выбрать все записи возможно только методом перебора? Или есть какое-нибудь свойство?

[iGrok]

А выбрать все записи возможно только методом перебора? Или есть какое-нибудь свойство?

В принципе, можно.. В моём первом посте - второй вариант. (который с GetString).

[SUPchik]

Нашел такой вариант:
For gf = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.AbsolutePosition = gf
a.Workbooks(1).Worksheets(1).Range("A" & (gf + 1)) = DataGrid1.Columns(2).Value
a.Workbooks(1).Worksheets(1).Range("B" & (gf + 1)) = DataGrid1.Columns(3).Value
a.Workbooks(1).Worksheets(1).Range("C" & (gf + 1)) = DataGrid1.Columns(5).Value
Next gf

[HandKot]

а если попробовать так (сам проверить не могу)?

Код: Выделить всё

Dim rs as Adodb.Recordset

set rs = Adodc1.Recordset
a.Workbooks(1).Worksheets(1).Range("A1").CopyFromRecordset rs

[SUPchik]

HandKot,так тоже можно Но у меня в DataGrid два первых столбца скрыты, поэтому я использую предложенный мною вариант.

[smitatyana]

-Открыть Excel.Application.
-Создать workbook, worksheet
-Перебором закинуть на лист всё, что нужно.
-Сохранить workbook.

а можно по-подробней начинающим людям? Премного благодарна!

[Andrey Fedorov]

HandKot,так тоже можно Но у меня в DataGrid два первых столбца скрыты, поэтому я использую предложенный мною вариант.

И что что скрыты?

Создаешь Recordset, с нужными колонками, заполняешь его тем что нужно и скидываешь используя CopyFromRecordset.
IMHO - самый простой и быстрый способ. Скидывать по одной ячейке дюже долго при большом объеме данных...