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

源码资源网

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

1. unit   Unit1;  
   
2.    
   
3.   interface  
   
4.    
   
5.   uses  
   
6.       Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
   
7.       StdCtrls,   Db,   ADODB,   comobj;  
   
8.    
   
9.   type  
   
10.       TForm1   =   class(TForm)  
    
11.           ADO:   TADOConnection;  
    
12.           ADOQuery1:   TADOQuery;  
    
13.           Button2:   TButton;  
    
14.           Button3:   TButton;  
    
15.           Memo1:   TMemo;  
    
16.           procedure   Button2Click(Sender:   TObject);  
    
17.           procedure   Button3Click(Sender:   TObject);  
    
18.       private  
    
19.           {   Private   declarations   }  
    
20.       public  
    
21.           {   Public   declarations   }  
    
22.       end;  
    
23.    
    
24.   var  
    
25.       Form1:   TForm1;  
    
26.    
    
27.   implementation  
    
28.    
    
29.   {$R   *.DFM}  
    
30.    
    
31.   procedure   TForm1.Button2Click(Sender:   TObject);  
    
32.   var   Source,str_sql:string;  
    
33.           CreateDB:Variant;  
    
34.   begin  
    
35.       //判断数据库是否已经存在  
    
36.       if   FileSearch('DB.MDB',ExtractFileDir(Application.ExeName)+'/')<>''   then  
    
37.       begin  
    
38.           Application.MessageBox('数据库已经存在！','提示',64);  
    
39.           exit;  
    
40.       end;  
    
41.       
    
42.       //   创建数据库  
    
43.       Source:='   Provider=Microsoft.Jet.OLEDB.4.0;   '  
    
44.                     +'   Data   Source=   '  
    
45.                     +ExtractFileDir(Application.ExeName)  
    
46.                     +'/DB.MDB';  
    
47.       try  
    
48.           CreateDB:=CreateOleObject('ADOX.Catalog');  
    
49.           CreateDB.Create(Source);  
    
50.           Application.MessageBox('数据库创建成功','提示',64);  
    
51.       except  
    
52.           Application.MessageBox('数据库创建失败','提示',64);  
    
53.       end;  
    
54.    
    
55.       //创建数据库中的表  
    
56.       ADO.ConnectionString:=Source;  
    
57.       ADO.Connected:=true;  
    
58.    
    
59.       ADOQuery1.Connection:=ADO;  
    
60.       ADOQuery1.Close;  
    
61.       ADOQuery1.SQL.Clear;  
    
62.       str_sql:='   create   table   T   (   ID   char(10)   )   ';  
    
63.       ADOQuery1.SQL.Add(str_sql);  
    
64.       try  
    
65.           ADOQuery1.ExecSQL;  
    
66.           Application.MessageBox('数据表创建成功','提示',64);  
    
67.       except  
    
68.           Application.MessageBox('数据表创建失败','提示',64);  
    
69.       end;  
    
70.    
    
71.   end;  
    
72.    
    
73.   procedure   TForm1.Button3Click(Sender:   TObject);  
    
74.   var   DBName,s_sql:string;  
    
75.   begin  
    
76.   //删除数据表  
    
77.       ADOQuery1.Close;  
    
78.       ADOQuery1.SQL.Clear;  
    
79.       s_sql:='   drop   table   T   ';  
    
80.       ADOQuery1.SQL.Add(s_sql);  
    
81.       try  
    
82.           ADOQuery1.ExecSQL;  
    
83.           Application.MessageBox('数据表删除成功','提示',64);  
    
84.       except  
    
85.           Application.MessageBox('数据表删除失败','提示',64);  
    
86.       end;  
    
87.    
    
88.   //   删除数据库  
    
89.       DBName:=ExtractFileDir(Application.ExeName)+'/DB.MDB';  
    
90.       try  
    
91.           DeleteFile(DBName);  
    
92.           Application.MessageBox('数据库删除成功！','提示',64);  
    
93.       except  
    
94.           Application.MessageBox('数据库删除失败！','提示',64);  
    
95.       end;  
    
96.   end;  
    
97.    
    
98.   end.

复制代码