• 用Delphi创建一个空的Access数据库


    unit   Unit1;  
       
      interface  
       
      uses  
          Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
          StdCtrls,   Db,   ADODB,   comobj;  
       
      type  
          TForm1   =   class(TForm)  
              ADO:   TADOConnection;  
              ADOQuery1:   TADOQuery;  
              Button2:   TButton;  
              Button3:   TButton;  
              Memo1:   TMemo;  
              procedure   Button2Click(Sender:   TObject);  
              procedure   Button3Click(Sender:   TObject);  
          private  
              {   Private   declarations   }  
          public  
              {   Public   declarations   }  
          end;  
       
      var  
          Form1:   TForm1;  
       
      implementation  
       
      {$R   *.DFM}  
       
      procedure   TForm1.Button2Click(Sender:   TObject);  
      var   Source,str_sql:string;  
              CreateDB:Variant;  
      begin  
          //判断数据库是否已经存在  
          if   FileSearch('DB.MDB',ExtractFileDir(Application.ExeName)+'/')<>''   then  
          begin  
              Application.MessageBox('数据库已经存在!','提示',64);  
              exit;  
          end;  
           
          //   创建数据库  
          Source:='   Provider=Microsoft.Jet.OLEDB.4.0;   '  
                        +'   Data   Source=   '  
                        +ExtractFileDir(Application.ExeName)  
                        +'/DB.MDB';  
          try  
              CreateDB:=CreateOleObject('ADOX.Catalog');  
              CreateDB.Create(Source);  
              Application.MessageBox('数据库创建成功','提示',64);  
          except  
              Application.MessageBox('数据库创建失败','提示',64);  
          end;  
       
          //创建数据库中的表  
          ADO.ConnectionString:=Source;  
          ADO.Connected:=true;  
       
          ADOQuery1.Connection:=ADO;  
          ADOQuery1.Close;  
          ADOQuery1.SQL.Clear;  
          str_sql:='   create   table   T   (   ID   char(10)   )   ';  
          ADOQuery1.SQL.Add(str_sql);  
          try  
              ADOQuery1.ExecSQL;  
              Application.MessageBox('数据表创建成功','提示',64);  
          except  
              Application.MessageBox('数据表创建失败','提示',64);  
          end;  
       
      end;  
       
      procedure   TForm1.Button3Click(Sender:   TObject);  
      var   DBName,s_sql:string;  
      begin  
      //删除数据表  
          ADOQuery1.Close;  
          ADOQuery1.SQL.Clear;  
          s_sql:='   drop   table   T   ';  
          ADOQuery1.SQL.Add(s_sql);  
          try  
              ADOQuery1.ExecSQL;  
              Application.MessageBox('数据表删除成功','提示',64);  
          except  
              Application.MessageBox('数据表删除失败','提示',64);  
          end;  
       
      //   删除数据库  
          DBName:=ExtractFileDir(Application.ExeName)+'/DB.MDB';  
          try  
              DeleteFile(DBName);  
              Application.MessageBox('数据库删除成功!','提示',64);  
          except  
              Application.MessageBox('数据库删除失败!','提示',64);  
          end;  
      end;  
       
      end.

  • 相关阅读:
    获取Android控件宽高
    Android面试题:大图加载,防止OOM
    Android面试题:讲一讲Glide的原理
    面试题:实现一个容器,提供两个方法,add,size;写两个线程,线程1添加10个元素到容器中,线程2实现监控元素的个数,当个数到5个时,线程2给出提示并结束
    Java线程中断的三种方法
    Java的四种引用:强引用、软引用,弱引用和虚引用
    Bellman-Ford(可解决负权边)--时间复杂度优化
    【Leetcode 动态规划、深度优先搜索】不同路径(62)、 不同路径 II(63)、不同路径 III(980)
    ElasticSearch scroll分页查询
    MySQL Myisam引擎和Innodb引擎的区别
  • 原文地址:https://www.cnblogs.com/rayz/p/2913771.html
Copyright © 2020-2023  润新知