| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

экпорт в dbf

lenok ©   (2006-06-15 14:09:00) 

Мастера, прошу помощи.
Имеется структура, заполненная данными. Ин-фа выведена в грид. Нужно экспортировать данные в *.dbf файл.
Благодарю за любую информацию

---

palva   (2006-06-15 17:23:00) [1]

А почему бы не использовать ADO?

{$APPTYPE CONSOLE}
uses Variants, ActiveX, ComObj;
Var
 cn, cm: OleVariant;
begin
 CoInitialize(nil);
 cn := CreateOleObject('ADODB.Connection');
 cm := CreateOleObject('ADODB.Command');
 cn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\';
 cn.Properties['Extended Properties'].Value := 'DBASE IV';
 cn.Open;
 cn.Execute('CREATE TABLE tbl1 (' +
            'ddd  DATE, ' +
            'col1 NUMERIC(6,2), ' +
            'col2 INTEGER, ' +
            'col3 CHAR(15) ' +
            ')');
 cn.Execute('INSERT INTO tbl1(ddd, col1, col2, col3) ' +
                 'VALUES (''21-5-2002'', 1343.23, 1234321, ''Запись 1'')');
 cn.Execute('INSERT INTO tbl1(ddd, col1, col2, col3) ' +
                 'VALUES (''5-21-2002'', 2442.11, 0, ''Запись 2'')');
 cn.Execute('INSERT INTO tbl1(ddd, col1, col2, col3) ' +
                 'VALUES (''5-3-2002 14:05'', 2442.11, 0, ''Запись 3'')');
 cn.Close;
 cm := Unassigned;
 cn := Unassigned;
 WriteLn('OK');
 CoUninitialize;
end.


---

lenok   (2006-06-15 15:12:00) [2]

спасибо, попробую разобраться :)

---

Сергей М.   (2006-06-15 15:08:00) [3]

Ну тады остается записать макрос для действий с меню "Save as.. - > *.dbf"

---

lenok   (2006-06-15 15:03:00) [4]

да, это реализовано

---

Сергей М.   (2006-06-15 15:02:00) [5]

Как программно вывести свои табличные данные в рабочую книгу Excel знаешь ?

---

lenok   (2006-06-15 14:58:00) [6]

да :)
делать нужно, все пути подойдут

---

Сергей М.   (2006-06-15 14:56:00) [7]

> lenok   (15.06.06 14:42) [10]


А Excel устроит ?

---

lenok   (2006-06-15 14:42:00) [8]

спасибо, поищу

---

Skyle   (2006-06-15 14:38:00) [9]

> lenok   (15.06.06 14:36) [8]

Я в своё время выбрал последней вариант, поэтому про компоненты только слышал. Но слышал так много, что просто уверен, что google поможет сразу же.

---

lenok   (2006-06-15 14:36:00) [10]

Skyle, если есть ссылка на подходящий компонент с исходниками, было бы здорово

---

Skyle   (2006-06-15 14:35:00) [11]

> lenok   (15.06.06 14:30) [6]
> Сергей, спасибо, что помогаешь :)
> BDE не желательно
> <Цитата>


Ну тогда можно либо попробовать найти компонент типа TDBF какой-нибудь, либо использовать Excel, либо реализовать формат самостоятельно.

---

lenok   (2006-06-15 14:30:00) [12]

Сергей, спасибо, что помогаешь :)
BDE не желательно

---

Сергей М.   (2006-06-15 14:28:00) [13]

> lenok   (15.06.06 14:25) [4]


Файл можно создать разными средствами/механизмами...

BDE устроит ?

---

lenok   (2006-06-15 14:25:00) [14]

нет, файл необходимо создать
ничего, кроме данных в структуре, пока нет

---

Сергей М.   (2006-06-15 14:23:00) [15]

> lenok   (15.06.06 14:18) [2]


Если грид заполнялся из некоего массива соотв.структурных записей, то, разумеется, проще и эффективней брать данные прямо из этих записей, а не из грида ...

dbf-файл уже существует ? Его структура соответствует требуемой ?

---

lenok   (2006-06-15 14:18:00) [16]

просто grid
но, возможно, можно не изспользовать грид, а брать данные на прямую из структуры?

---

Сергей М.   (2006-06-15 14:13:00) [17]

Уточни, Grid или DBGrid ? Сие важно ..

---

Наверх