Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

Как динамически создавать базу данных?   Найти похожие ветки 

 
Mishenka   (2005-05-14 10:53) [0]

Нужно, чтобы программа по полученным данным сама создавала файл dbf. формат полей всегда одинаковый. Как это проще всего сделать?


 
Anatoly Podgoretsky ©   (2005-05-14 10:56) [1]

Так все таки что базу или таблицу, определись.


 
Max Zyuzin ©   (2005-05-14 10:58) [2]

http://delphimaster.net/view/3-1115902077/
http://delphimaster.net/view/3-1115902077/
http://delphimaster.net/view/3-1115902077/


 
Lexer ©   (2005-05-14 11:00) [3]

Если таблицу, то используй BatchMove и переноси в какую хочешь dbf, txt


 
Lexer ©   (2005-05-14 11:00) [4]

Если таблицу, то используй BatchMove и переноси в какую хочешь dbf, txt


 
Lexer ©   (2005-05-14 11:07) [5]

Вот как делаю я
procedure ExportDataSetToTable(Source: TDataSet; TableName: string);
var
 IniFile: TIniFile;
 DestTbl: TTable;
 BatchMove: TBatchMove;
begin
 DestTbl := TTable.Create(nil);
 BatchMove := TBatchMove.Create(nil);
 try
   BatchMove.Source := TBDEDataSet(Source);
   BatchMove.Destination := DestTbl;
   if CompareText(ExtractFileExt(TableName), sTxtExt) = 0 then
   begin
     DestTbl.TableType := ttASCII;
     IniFile := TIniFile.Create(ChangeFileExt(TableName, sSCHExt));
     IniFile.WriteString(ExtractFileName(ChangeFileExt(TableName, EmptyStr)),
       sCharset, sAncyrr);
     IniFile.Free;
   end
   else
   if CompareText(ExtractFileExt(TableName), sDBaseExt) = 0 then
     DestTbl.TableType := ttDBase
   else
     DestTbl.TableType := ttParadox;
   DestTbl.FieldDefs.Clear;
   DestTbl.TableName := TableName;
   DestTbl.FieldDefs.Assign(Source.FieldDefs);
   DestTbl.CreateTable;
   DestTbl.Active := True;
   BatchMove.Execute;
 finally
   DestTbl.Active := False;
   DestTbl.Free;
   BatchMove.Free;
 end;
end;


 
Sergey13 ©   (2005-05-14 11:11) [6]

>Как динамически создавать базу данных?
видимо это становится очень модным. 8-)


 
Max Zyuzin ©   (2005-05-14 11:14) [7]

>Sergey13 ©   (14.05.05 11:11) [6]
Как верно заметил тут кто то... видимо сессия близится... А задания у всех одинаковые :)


 
Anatoly Podgoretsky ©   (2005-05-14 11:17) [8]

Что делать, не видал форумов - делаем домашнии задания на безвозмеждной основе.


 
Mishenka   (2005-05-14 14:53) [9]


> Так все таки что базу или таблицу, определись

База состоит из одной таблицы. В общем нужно чтобы прога создавала dbf файл и кидала туда некую инфу.



Страницы: 1 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
1-1118207429
Fanny
2005-06-08 09:10
2005.06.29
Как определить, что принтер не установлен ?


1-1117694857
utter
2005-06-02 10:47
2005.06.29
Помогите разобраться с принадлежностью к форме


5-1086858722
snake2003
2004-06-10 13:12
2005.06.29
создание своего combobox


1-1117972531
Серый
2005-06-05 15:55
2005.06.29
Как построить бинарное дерево с помощью "Тривиев"


14-1117995916
ProGamer
2005-06-05 22:25
2005.06.29
Погиб Сидюк,невольник чести...