用ADO连接ACCESS数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%''第一种字符串连接数据库方法

set conn=Server.CreateObject("ADODB.Connection")

on error resume next

conn.open "DRIVER=Driver do Microsoft Access (*.mdb)UID=PWD=DBQ="&Server.MapPath("../dat/a.mdb")

If Err.Number<>0 Then

response.write "数据库连接错误！"

response.end

End If

%>

<%''''''''第二种字符串连接数据库方法来自BBSXP'''''''''''''''

'''On Error Resume Next

'''Set Conn=Server.CreateObject("ADODB.Connection")

'''Conn.open "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.MapPath("../dat/a.mdb")

'''If Err Then

'''err.Clear

'''Set Conn = Nothing

'''Response.Write ""&IsSqlVer&"数据库连接出错，请检查连接字串。"

'''Response.End

'''End If

%>

并建立此对话框的类LoginDlg ,在类中新建两个变量CString m_strName CString m_strPassword并完善相应的构造函数和DoDataExchange 部分代码如下：

LoginDlg::LoginDlg(CWnd* pParent /*=NULL*/)

: CDialog(LoginDlg::IDD, pParent)

{

m_strName=_T("")

m_strPassword=_T("")

}

void LoginDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX)

DDX_Text(pDX,IDC_LOGIN_NAME,m_strName)

DDV_MaxChars(pDX,m_strName,8)

DDX_Text(pDX,IDC_LOGIN_PASSWORD,m_strPassword)

DDV_MaxChars(pDX,m_strPassword,8)

}

编译运行程序，能够正常运行出现界面

第二步：用ADO方法连接名为Library.mdb的数据库

1、在stdafx.h中添加#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","rsEOF")

注意：在#include语句后面，不要加到最前面

2、在主对话框LibraryDlg.h中添加变量_ConnectionPtr pConn 用来连接数据库的对象

在LibraryDlg.cpp的构造函数中添加如下代码：

CLibraryDlg::CLibraryDlg(CWnd* pParent /*=NULL*/)

: CDialog(CLibraryDlg::IDD, pParent)

{

m_hIcon = AfxGetApp()->Lo www.hnnedu.com adIcon(IDR_MAINFRAME)

CoInitialize(NULL)

pConn = _ConnectionPtr(__uuidof(Connection))

pConn->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:/Library.mdb"

pConn->Open("","","",adConnectUnspecified)

}

并在析构函数中pConn->Close()pConn.Release()

此代码主要是用来与数据库建立连接，从主对话框运行开始就建立连接，直到程序结束。

注意：Provider的获取：在VS2010工具菜单->连接到数据库，在添加连接对话框中浏览到你之前建好的数据库，并点测试。

如果数据库连接成功，点高级属性，Provider就在对话框的最下面，copy过来就行了。

第三步：在登录框获取数据库中的记录，并与输入的用户名和密码进行对比，以保证正常登录

在LoginDlg.cpp的登录按钮中添加如下代码：

void LoginDlg::OnBnClickedConfirm()

{

// TODO: 在此添加控件通知处理程序代码

UpdateData(TRUE)

CoInitialize(NULL)

/*CString mSqlStr

mSqlStr="select * from CLERK where NAME='"

mSqlStr+=m_strName

mSqlStr+="'"

*/

if (m_strName.IsEmpty())/*判断用户名信息是否为空*/

{

AfxMessageBox(_T("请输入用户名！"))

return

}

_RecordsetPtr pRst(__uuidof(Recordset))

pRst = ((CLibraryDlg*)(AfxGetMainWnd()))->pConn->Execute("select * from CLERK ",NULL,adCmdText)

if(pRst->rsEOF)

{

MessageBox(_T("用户名不存在，请重新输入"))

}

else if ((CString)pRst->GetCollect("PASSWORD")==m_strPassword)

{

CDialog::OnOK()

}

else

{

MessageBox(_T("密码不正确"))

}

pRst->Close()

pRst.Release()

CoUninitialize()

}

编译运行就可看到结果了

下一步准备将数据库换成mysql.......

---