急救

解决方案 »

  1.   

    把一个空的MDB做到资源文件中然后用到时再涉放出来!
    或用DAO生成找一下这样的资料
      

  2.   

    同意,把一个空的MDB做到资源文件中然后用到时再涉放出来!
    这样简单一点,
      

  3.   

    给你一个DAO的离子
    function TFStructor_Dispatch.CreateDB:boolean;
    var
     DBE:_DBEngine;
     p1:widestring;
     p2:olevariant;
     fn1:string;
    begin
       fn1:=extractfilepath(application.exename)+'Structor.mdb';
       p1:=';LANGID=0x0804;CP=936;COUNTRY=0';
       p2:=dbEncrypt;
       if FileExists(fn1)=true then
       begin
          result:=true;
          exit;
       end;
       try
          DBE:=CoDBEngine.Create;       
          DBE.CreateDatabase(fn1,p1,p2);
          result:=true;
       except
       result:=false;
       application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError);
       end;
    end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
      

  4.   

    给你一个DAO的离子
    function TFStructor_Dispatch.CreateDB:boolean;
    var
     DBE:_DBEngine;
     p1:widestring;
     p2:olevariant;
     fn1:string;
    begin
       fn1:=extractfilepath(application.exename)+'Structor.mdb';
       p1:=';LANGID=0x0804;CP=936;COUNTRY=0';
       p2:=dbEncrypt;
       if FileExists(fn1)=true then
       begin
          result:=true;
          exit;
       end;
       try
          DBE:=CoDBEngine.Create;       
          DBE.CreateDatabase(fn1,p1,p2);
          result:=true;
       except
       result:=false;
       application.MessageBox('无法创建数据库','错误',MB_OK+MB_IconError);
       end;
    end;需要导入DAO类库,并useDAO_TLB,oleserver, ComCtrls单元
      

  5.   

    Const
      SConnectionString       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                                    +'Jet OLEDB:Database Password=%s;';
    function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
    //建立Access文件,如果文件存在则失败
    var
      STempFileName:string;
      vCatalog:OleVariant;
    begin
      STempFileName:='c:\123.mdb';
      try
        vCatalog:=CreateOleObject('ADOX.Catalog');
        vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
        
        
      except
        result:=false;
      end;
    end;
      

  6.   

    那位知道odbc是怎样创建生成access数据库文件(*.mdb),编程有没有类是方法
      

  7.   

    你试试这个在servers面板上选AccessAppliaction控件然后AccessApplication1.NewCurrentDatabase('d:\aaa.mdb');
    AccessApplication1.CloseCurrentDatabase;//创建完了一定要关闭,他是一独占方式打开的
      

  8.   

    网址呢?,有谁知道 通过ODBC的API函数创建 的方法吗?