Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c