экпорт в dbf

← →
lenok (2006-06-15 14:09) [0]

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

← →
Сергей М. © (2006-06-15 14:13) [1]

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

← →
lenok (2006-06-15 14:18) [2]

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

← →
Сергей М. © (2006-06-15 14:23) [3]

> lenok (15.06.06 14:18) [2]

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

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

← →
lenok (2006-06-15 14:25) [4]

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

← →
Сергей М. © (2006-06-15 14:28) [5]

> lenok (15.06.06 14:25) [4]

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

BDE устроит ?

← →
lenok (2006-06-15 14:30) [6]

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

← →
Skyle © (2006-06-15 14:35) [7]

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

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

← →
lenok (2006-06-15 14:36) [8]

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

← →
Skyle © (2006-06-15 14:38) [9]

> lenok (15.06.06 14:36) [8]

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

← →
lenok (2006-06-15 14:42) [10]

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

← →
Сергей М. © (2006-06-15 14:56) [11]

> lenok (15.06.06 14:42) [10]

А Excel устроит ?

← →
lenok (2006-06-15 14:58) [12]

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

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

← →
lenok (2006-06-15 15:03) [14]

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

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

← →
lenok (2006-06-15 15:12) [16]

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

А почему бы не использовать 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.

экпорт в dbf Найти похожие ветки