现在小弟使用ADO访问access数据库,有2问题:数据库如果有密码,如何打开;另外如何列出数据库中的所有表?谢谢啊
解决方案 »
- 求助:3D 的27注校验算法 如何实现?
- 怎么获得一个文件夹中最新创建的那个文件
- 求 Bold for Delphi 哪里有下载啊?????
- ACCESS数据库存储图片
- 关于焦点转换的问题。
- 高手请教一个关于SPCOMM控件安装的问题,
- QuickReport中如何打印竖着的标签(有无此类控件), Qchart竖着怎么不行?
- dll问题------------新手(new)
- 送分,旧帖重贴:现在说说这个list index out of bound(%d)
- 请 Delphi 版的朋友帮忙推荐一些关于多层数据库开发以及关于com/dcom/MTS 的书
- 真诚请教一个RxRichEdit的问题
- 请教各位大哥,一个很奇怪的错误,(我怎么也找不出原因),谢谢!
你用ADO连接,选择数据库的的时候有一个高级选项,那里面就有啊
1,新建Project。
2,在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。
3,双击ADOConnection控件,然后点击Build...按钮,在“提供者”页中选择“Microsoft Jet 4.0 OLE DB Provider”,然后点击“下一步”按钮,在“连接”页中选择要连接的Access数据库的路径和数据库的文件名,这时如果点“测试连接”按钮时,出现“初始化提供者时发生错误,测试连接失败,密码无效”的错误提示。
4,这时点“所有”页,然后双击“Jet OLEDB:Database Password”,出现对话框,添入密码后,选择“连接”页中的“测试连接”按钮,出现“测试连接成功”的对话框。把ADOConnection控件的LoginPromtp设为false.
5,设置连接完成。
ADOConnection1.GetTableNames(Memo1.Lines, True);如果不列系统表ADOConnection1.GetTableNames(Memo1.Lines, False);
MyPath+'Data\BookManage.mdb'+';Persist Security Info=False;;Jet OLEDB:Database Password='+MyPassW;
MyPath+'Data\BookManage.mdb:数据库路径及名称;
MypassW:数据库密码;