使用ADO访问数据库

VB方法：
1、新建exe程序
2、添加控件MS ADO Data Control
3、为ADO控件设置属性
右击此控件，选择ADODC Properties，出现Property Page对话框
General选项卡——>Use Connnection String——>单击Build
出现 数据连接属性 对话框
选择合适的OLE DB提供程序（我这里选择MS for SQLServer），单击下一步
选中 使用数据源名称，并留空（意味着使用本机）
填入 用户名， 密码（相应的选择留空或保存）
选择数据库，选择你要操作的数据库
测试一下，看是否成功
再添加一个DataGrid控件
DataSource属性设置一下就完成一个简单的应用了

也可以使用ADO对象引用
代码如下
Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim cmd As New ADODB.Command conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs" conn.Open 'Set rst = conn.Execute("select * from authors") 'rst.ActiveConnection = conn 'rst.Open "select * from authors" cmd.ActiveConnection = conn cmd.CommandText = "select * from authors" Set rst = cmd.Execute Do Until rst.EOF List1.AddItem rst("au_lname") rst.MoveNext Loop End Sub

VC方法：
1、新建基于对话框的MFC程序
2、添加一个CListBox控件（IDC_LIST1）和 Button（IDC_BTN_QUERY）控件
3、双击新添加的按钮，添加处理代码。
4、导入msado.dll
在stdafx.h添加如下代码
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF", "rsEOF")
生成一下，应该有两个文件（Debug目录下）msado15.tlh、msado15.tli
6、来到按钮事件代码处
添加如下代码

void CADOTestDlg::OnBtnQuery() { // TODO: Add your control notification handler code here CoInitialize(NULL); char *szCmd = "select * from departments"; _ConnectionPtr pConn(__uuidof(Connection)); _RecordsetPtr pRst(__uuidof(Recordset)); _CommandPtr pCmd(__uuidof(Command)); pConn->ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=ORGANIZATION"; pConn->Open("", "", "", adConnectUnspecified); //pRst = pConn->Execute(szCmd, NULL, adCmdText); //pRst->Open(szCmd,(IDispatch*)pConn,adOpenDynamic, adLockOptimistic, adCmdText); pCmd->put_ActiveConnection(_variant_t((IDispatch*)pConn)); pCmd->CommandText = szCmd; pRst = pCmd->Execute(NULL, NULL, adCmdText); while(! pRst->rsEOF){ ((CListBox*)GetDlgItem(IDC_LIST1))->AddString( (_bstr_t)pRst->GetCollect("depid")); pRst->MoveNext(); } pRst->Close(); pConn->Close(); pCmd.Release(); pRst.Release(); pConn.Release(); CoUninitialize(); }
以下连接字串是通过VB得到的
Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=ORGANIZATION

以上内容为观看孙鑫老师的录像记录