Форум программистов [Powered by Invision Power Board]

Код


procedure CreateMSAccessDB(filename : String);
var
    DBEngine, Workspace: Variant;
const
{Important to use the following constant as is}
   dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
   dbVersion30 = 64;
begin
    if not FileExists(FileName+'.mdb') then 
    begin
    //DBEngine := CreateOleObject('DAO.DBEngine');
        DBEngine := CreateOleObject('DAO.DBEngine.36'); //For DAO 3.5
       Workspace := DBEngine.Workspaces[0];
        try
           Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
           except on EOleException do
            ShowMessage('Невозможно создать!');
        end;
    end;
end;

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
OleVariant cat;
AnsiString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\123.mdb;";
try
    {
        cat = CreateOleObject("ADOX.Catalog");
        Procedure Create("Create");
        cat.Exec(Create << ConnectionString);
        cat = NULL;
    }
catch(...)
    {

    }
}

Цитата(Syrex @ 20.11.2007, 17:16

)

Компилятор не понимает что такое CreateOleObject

Код

#include <ComObj.hpp>

Код


Variant does not reference an automation object.

Код


#include <ComObj.hpp>

//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender) {
    Variant vADO;
    WideString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\123.mdb;";
    try {
        vADO = Variant::CreateObject("ADOX.Catalog");
        Procedure Create("Create");
        vADO.Exec(Create << ConnectionString);
        vADO = NULL;
    } catch(Exception &e) {
        ShowMessage("Err: " + e.Message);
    }
}
//---------------------------------------------------------------------------

Цитата(mrbrooks @ 3.3.2008, 13:18)

Кул ИМХО - все работает и с Microsoft Office Access 2000 smile

на мой взгляд заслуженно +1 к репе

Код


include <ComObj.hpp>
//...
void __fastcall TFExport::CreateDB() {
  String dbdir = ExtractFilePath(FContMain->SrcName);  // подставь своё имя источника
  String dbname = DateToStr(Date());
  for (int i = 0; i < dbname.Length(); i++)            // и сформируй своё имя приёмника
    if (dbname.c_str()[i] == '.')
      dbname.c_str()[i] = '_';
  char buf[1024];
  sprintf(buf, "%sbmd_exp_%02d_%s.MDB", dbdir.c_str(), FContMain->EntId, dbname.c_str());  // само имя БД
  String DstName = String(buf);
  sprintf(buf, "%sbmd_exp_%02d_%s.LOG", dbdir.c_str(), FContMain->EntId, dbname.c_str());  // имя лога
  String RepName = String(buf);
  //-------------------------------------------------------------------------
  if (FileExists(DstName)) {
    SetFileAttributes(DstName.c_str(), FILE_ATTRIBUTE_NORMAL);
    DeleteFile(DstName);
    // или наоборот - сообщить, что такая база уже есть и закончить работу, сам выбирай
  }
  WideString name = WideString(DstName);
  Variant acs = CreateOleObject("Access.Application");
  acs.OleFunction("NewCurrentDatabase", name);
  acs.OleFunction("Quit");
  acs = Unassigned;
  sprintf(buf, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False", DstName.c_str());
  Conn->ConnectionString = String(buf);
  Conn->Connected = true;