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

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

Как динамически создавать базу данных? [D6, dBase, FoxPro]

Mishenka ©   (2005-05-14 10:53:00) 

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

---

Mishenka   (2005-05-14 14:53:00) [1]

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

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

---

Anatoly Podgoretsky   (2005-05-14 11:17:00) [2]

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

---

Max Zyuzin   (2005-05-14 11:14:00) [3]

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

---

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

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

---

Lexer   (2005-05-14 11:07:00) [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;

---

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

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

---

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

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

---

Max Zyuzin   (2005-05-14 10:58:00) [8]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1115902077&n=1
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1115988123&n=1
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1115812937&n=1

---

Anatoly Podgoretsky   (2005-05-14 10:56:00) [9]

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

---

Наверх