手机APP如何使用远程服务器上的MDB文件作为数据库进行读写访问

下面有两种方式，避免这个错误：

方式a. 使用DAO引擎访问

Dim File, Conn, RS

Const ReadOnly = False

File = "\\server\share\file.mdb"

Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(File,,ReadOnly)

Set RS = Conn.OpenRecordset(SQL)

方式b. ADO + Jet OLE DB provider方式

Dim Conn, RS

Set Conn = CreateObject("ADODB.Connection")

Conn.Provider = "Microsoft.Jet.OLEDB.4.0"

Conn.Open "\\server\share\file.mdb"

Set RS = Conn.Execute(SQL)

确定在运行ASP页面时有足够的访问权限以访问远程计算机上的MDB文件，在访问MDB文件前需要先登录到远程计算机，添加下面的代码：

Set UM = CreateObject("UserManager.Server")

UM.LogonUser "帐号", "口令", "域"

...

open database

...

UM.RevertToSelf

新建表：首先打开或新建一个数据库，在该数据库上使用cdaotabledef的构赵函数定义一个对象，在调用create函数建新表，之后调用append函数加入数据库：

void changeuserpassword( )

{

cstring strsystemdb =

_t( "路径" )

setsystemdb( strsystemdb )

// user name and password manually added

// by using microsoft access

cstring strusername = _t( "newuser" )

cstring stroldpassword = _t( "password" )

cstring strnewpassword = _t( "newpassword" )

setdefaultuser( strusername, stroldpassword )

changepassword( strusername, stroldpassword,

strnewpassword )

}

//设置默认用户和密码

void setdefaultuser(cstring &strusername, cstring &strpassword)

{

colevariant varusername( strusername, vt_bstrt )

colevariant varpassword( strpassword, vt_bstrt )

daodbengine* pdbengine = afxdaogetengine( )

assert( pdbengine != null )

// 设置默认用户

dao_check( pdbengine->put_defaultuser( varusername.bstrval ) )

// 设置默认密码

dao_check( pdbengine->put_defaultpassword( varpassword.bstrval ) )

}

///更改密码

void setdbpassword( lpctstr pdb, lpctstr pszoldpassword, lpctstr psznewpassword )

{

cdaodatabase db

cstring strconnect( _t( "pwd=" ) )

// 数据库必须打开

// 设置密码

db.open( pdb, true, false,

strconnect + pszoldpassword )

colevariant newpassword( psznewpassword, vt_bstrt ),

oldpassword( pszoldpassword, vt_bstrt )

dao_check( db.m_pdaodatabase->newpassword( v_bstr( &oldpassword ),

v_bstr( &newpassword ) ) )

db.close()

}

---