Delphi操作Access数据库

mrlining 2000-08-07 09:56:00
用Delphi5和ADO如何通过程序建立Access数据库,如果通过ADOX API 应如何调用。
...全文
102 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
mrlining 2000-08-07
  • 打赏
  • 举报
回复
我试了,以上代码不好使,Open方法参数不对。
有一段VB代码,如何将其转为Delphi

Sub CreateDatabase()

Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

End Sub


Limu 2000-08-07
  • 打赏
  • 举报
回复
Var
cn:tadoconnection;
rs:tadoquery;
sFileName,sTableName:string
begin
//Create Object and Connect to Access Database
cn:=tadoconnection.create(nil);
sFileName:='XXX.MDB';
sTableName:='XXXTable';
cn.open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+sFileName;
rs=tadoquery.create(nil);
with rs do begin
connection:=cn;
sql.add('Select * From '+sTableName)
execsql;
active:=true;
end;
//After Used
rs.free;
cn.free;
end;

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧