![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Не могу создать отчет по созданной таблице с переносом ее в Excel...Ппц...Замучалась уже конкретно..Похоже БД и я совершенно несовместимы...Кто знает этот фокус,пожалуйста,подскажите!
|
#2
|
|||
|
|||
![]() |
#3
|
||||
|
||||
![]() А мне нужно в обратном порядке - из Excel в БД.
Где нить есть примерчик функции. Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#4
|
||||
|
||||
![]() Неа,это я уже пробовала....программу не могу запустить,т.к ругается на ComObj в самом начале
|
#5
|
||||
|
||||
![]() Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 03.12.2007 в 16:13. |
#6
|
||||
|
||||
![]() Да неее...Только из Делфи в Excel..Кстати,получилось и гораздо проще,чем в том исходнике
![]() {procedure TForm4.Button1Click(Sender: TObject); var i:integer; begin if OpenDialog1.Execute then begin app:=createoleobject('Excel.application'); app.Workbooks.Open(OpenDialog1.FileName,readonly:= true); app.cells(3,10):='fdgdgdh'; app.cells(1,1):= ' Номер ' ; app.cells(1,2):= ' Дата ' ; Table1.First; For i:=1 to Table1.RecordCount do begin app.cells(i+1,1):= Table1.FieldValues['N'] ; app.cells(i+1,2):= Table1.FieldValues['Data'] ; end; app.visible:=true; app:=unassigned; end; end;} |
#7
|
||||
|
||||
![]() Цитата:
![]() У меня всё получилось! Только мне было удобней в качестве буфера использовать обычный StringGrid, а с него перекидывать в БД. Но при желании можно пропустить этот аспект и копировать напрямую. Исходник ниже: Будут вопросы пиши на ICQ, Мыло или Личку: Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 16.08.2009 в 16:39. |
#8
|
||||
|
||||
![]() Ну признаюсь,признаюсь,я в дуще просто блондинистая
![]() Последний раз редактировалось killpretty, 04.12.2007 в 15:55. |
#9
|
||||
|
||||
![]() 330-292-672
VYurikS@mail.ru Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|