用 ADOX 对象创建 MDB 数据库，如何设定数据库密码？

AllCHN 2006-02-28 01:52:28

在 VB 中，使用 ADOX 创建一个 ACCESS 数据库文件，并创建一些数据表，
请问，如何在创建数据库文件时指定数据库密码？

引用 Microsoft ADO Ext. 2.8 for DDL and Security
代码如下:
Dim ConnStr As String ' 连接串
Dim cat As New ADOX.Catalog ' ADO 扩展对象
Dim nfConn As New Connection ' 新建数据库文件的连接

ConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb;Mode=ReadWrite"
cat.Create ConnStr

我试图用
cat.Users("admin").ChangePassword "", "password"
cat.Users.Append "admin", "password"

结果都不行？

...全文

146 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

faysky2 2006-02-28

打赏
举报

回复

参考：

Dim cat As New Catalog
cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;Jet OLEDB:DataBase password=12345")

早起旺财 2006-02-28

打赏
举报

回复

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Jet OLEDB:DataBase Password=" & DbPass

资源介绍：。易语言调用ADOX.Catalog对象实现了修改MDB数据库表名操作。资源作者：。易语言入门教程。资源界面：。资源下载：。

本源码是新手学习易语言数据库整理心得，老鸟飞过。使用易语言创建空白Access数据库（*.mdb），经搜索贴子并总结如下：。方法一：。打开一个对话框，然后输入要创建的数据库名称，选择好路径后保存。这是通用方法，核心就是：。创建数据库.创建 (“ADOX.Catalog”, )。创建数据库.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋通用对话框1.文件名）。创建数据库.清除 ()。方法二：。抛弃对话框，直接取运行目录（）后创建如：Data.mdb的数据库。创建数据库.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋取运行目录 () ＋ “\Data.mdb”)。与方法一原理一样，但改变了路径，不使用对话框。方法三：。做一个空的Access数据库，放入到资源中，需要使用的时候，写到文件使用。写到文件 (“Access.mdb”, #MDB数据库)。@Logo黑星。Tags：创建access数据库。

vc++利用ADOX创建数据库 // ADOXCreateDatabaseDlg.cpp : implementation file // #include "stdafx.h" #include "ADOXCreateDatabase.h" #include "ADOXCreateDatabaseDlg.h" #include "Shlwapi.h" #pragma comment(lib,"shlwapi.lib") // Download by http://www.codefans.net #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif ///////////////////////////////////////////////////////////////////////////// // CAboutDlg dialog used for App About class CAboutDlg : public CDialog { public: CAboutDlg(); // Dialog Data //{{AFX_DATA(CAboutDlg) enum { IDD = IDD_ABOUTBOX }; //}}AFX_DATA // ClassWizard generated virtual function overrides //{{AFX_VIRTUAL(CAboutDlg) protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support //}}AFX_VIRTUAL // Implementation protected: //{{AFX_MSG(CAboutDlg) //}}AFX_MSG DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { //{{AFX_DATA_INIT(CAboutDlg) //}}AFX_DATA_INIT } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CAboutDlg) //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) //{{AFX_MSG_MAP(CAboutDlg) // No message handlers //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CADOXCreateDatabaseDlg dialog CADOXCreateDatabaseDlg::CADOXCreateDatabaseDlg(CWnd* pParent /*=NULL*/) : CDialog(CADOXCreateDatabaseDlg::IDD, pParent) { //{{AFX_DATA_INIT(CADOXCreateDatabaseDlg) m_dbName = _T(""); //}}AFX_DATA_INIT // Note that LoadIcon does not require a subsequent DestroyIcon in Win32 m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CADOXCreateDatabaseDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CADOXCreateDatabaseDlg) DDX_Text(pDX, IDC_DBNAME, m_dbName); //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CADOXCreateDatabaseDlg, CDialog) //{{AFX_MSG_MAP(CADOXCreateDatabaseDlg) ON_WM_SYSCOMM

C#创建ACCESS数据库和数据表,使用ADOX创建Access数据库和表，设置主键

ADO对象动态创建数据库和表。不错的。这么长的描述

数据库(包含打印，安装，报表)

1,217

社区成员

55,952

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章