Форум: "Corba";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Внизкопирование из БД InterBase в Excel с помощью Delphi Найти похожие ветки
← →
alfer (2005-07-28 18:21) [0]Доброе время суток. Есть БД InterBase с большим количеством записей. Необходимо из нее вытащить несколько полей (значения параметров эксперимента) и запихнуть в эксель для просмотра тем, кто не пользуется БД InterBase. Для этого создал файловый источник данных odbc (другие виды источников данных odbc не воспринимает эксель). Открыл таблицу InterBase в экселе успешно, записал макрос:
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Easysoft IB6 ODBC UNICODE};UID=sysdba;PWD=masterkey;DB=e:\automation\db_gaz\db_gaz.gdb;" _
, Destination:=Range("A1"))
.CommandText = Array("SELECT num, sost FROM ""SOST20_2_07_2005""")
.Name = "1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "E:\1.dsn"
.Refresh BackgroundQuery:=False
End With
После попытался его реализовать в делфи (отрывок):
E.ActiveWorkbook.Sheets.Item["Данные за "+
datetostr(DateTimePicker1.Date)].QueryTables.add("ODBC;DRIVER={Easysoft IB6 ODBC UNICODE};UID=sysdba;PWD=masterkey;DB=e:\automation\db_gaz\db_gaz.gdb","A1").CommandText:="SELECT * FROM SOST20_2_07_2005";
Вобщем не работает этот код, ошибка ‘Несовпадение типов’. Подскажите плиз что не так в этом отрывке кода. Спасибо.
← →
RusLAN_ (2005-07-29 21:06) [1]а каких типов OLEVariant и string?
← →
alfer (2005-07-29 22:03) [2]Компилятор просто пишет ошибку без указания типов
← →
RusLAN_ (2005-07-29 23:31) [3]Попробуйте создать переменную типа OLEVariant
присвоить ей нужноэ значение и уже ее передавать в качестве параметра.
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c