Feed: 大富翁笔记  Title: [Delphi与Access]用SQL代码建立Access数据库,表,添加记录|欢迎批评/指正/建议/修改	Author: xboyy  Comments

1.代码建立Access数据库 此一解决方法为参考他人结果,不很满意,但暂无自己的方法 uses ComObj,ActiveX; procedure TForm1.SetupDatabase(sender:tobject); var vCatalog:OleVariant; Const SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;'; begin if FileExists(ExtractFilePath(application.ExeName)+'Happle.mdb') then begin //删除原数据库... deletefile(ExtractFilePath(application.ExeName)+'Happle.mdb'); if FileExists(ExtractFilePath(application.ExeName)+'Happle.mdb') then begin Application.MessageBox('无法删除原数据库','错误',MB_OK); application.Terminate; end; end; //新建数据库文件 Happle.mdb } vCatalog:=CreateOleObject('ADOX.Catalog'); vCatalog.Create(format(SConnectionString,[ExtractFilePath(application.ExeName)+'Happle.mdb','111111']));//密码为111111 //问题:此处的vCatalog如何关闭?或者说它是自动变量不需要人为释放? end; 2.代码建立Access表 uses ADODB; procedure TForm1.SetupTable(sender:tobject); Var adocon1:TADOConnection; strSQL:string; Const SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;'; begin adocon1:=TADOConnection.creat(self); adocon1.ConnectionString:=format(SConnectionString,[ExtractFilePath(application.ExeName)+'Happle.mdb','111111']); strsql:='Create table Shops('+ 'ShopID counter PRIMARY KEY,'+ 'ShopName char(20),'+ 'ShopADD char(30),'+ 'ShopPhone char(15),'+ 'ShopManager char(10),'+ 'ShopMangerPhone char(15),'+ 'Remark char(20))'; adocon1.Execute(strsql); //表Shops建立 adocon1.close; adocon1.free; end; 3.添加记录 方法类似上面 strsql:='insert into shops (shopname) values(''Newshop'')'; adocon1.Execute(strsql); 注意的是,insert into 可以仅插入必需的或指定的字段值

（出处：www.delphibbs.com）