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

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

← →
Vitalon   (2003-09-07 00:44) [0]

Речь идет не о создании таблицы в существующей базе (к оператору CREATE TABLE претензий нет - все работает) а именно новый файл типа FileName.mdb:
QR.Text:="CREATE DATABASE " + GetStartDir+ "FileName.mdb";
QR.Execute;
- не работает. Или, может, есть какие-то другие средства для этого?

---

← →
Кладов   (2003-09-07 07:06) [1]

Создать файл на диске (например, из ресурса) и поименовать.

---

← →
savva ©   (2003-09-08 11:07) [2]

смотри на UBPFD http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10340

правда я с того времени ее усовершенствовал..

function CreateDatabase(DatabaseName:String;Access2000Format:boolean=false):boolean;
var
 DBEngine, Workspace: Variant;
const
 dbLangGeneral = ";LANGID=0x0409;CP=1252;COUNTRY=0";
 dbVersion30 = 32;
 dbVersion40 = 64;

begin
 result:=false;
 try
   try
       DBEngine := CreateOleObject("DAO.DBEngine.36");
   except
     try {For DAO 3.5}
       DBEngine := CreateOleObject("DAO.DBEngine.35");
     except
raise;
     end;
   end;
   Workspace := DBEngine.Workspaces[0];
   try
   if Access2000Format then
     Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion40)
   else
     Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion30);
   except on e0:EOleException do
     ShowMessage(e0.Message);
   end;
 except on e1:EOleException do
   ShowMessage(e1.Message);
 end;
 result:=true;
end;

пример использования:
procedure TForm1.Button1Click(Sender: PObj);
begin
CoInitialize(nil);
  CreateDatabase("Test.mdb",true);
CoUninitialize;
end;

не забудь написать
uses
 ActiveX,KOLComObj;

---

← →
savva ©   (2003-09-08 11:10) [3]

забыл сказать - к KOLOleDB это никакого отношения не имеет...

---

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

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



Память: 0.45 MB
Время: 0.021 c