VC链接SQL数据库

第一部分：用ADO连接SQL Server 20001 在STDafx.h中加入动态连接库msado15.dll，并重命名EOF为adoEOF，加在该文件后面（蓝色#endif后面，要是编译时有错误说明位置不对）#import "D:/Program Files/Common Files/System/ado/msado15.dll"/no_namespace rename("EOF","adoEOF")2 在App类中定义连接字符串。我的是CADOApp，文件是ADO.h_ConnectionPtr m_pConnection;3 在数据操作类InitInstance()中初始化COM类库//这就是初始化COM库//应用程序主类的InitInstance成员函数里初始化OLE/COM库环境if (!AfxOleInit()) {AfxMessageBox("OLE/COM初始化失败");return FALSE;}theApp.m_pConnection.CreateInstance(__uuidof(Connection));要在其它操作前面初始化，我的是dlg，原来在它后面初始化的结果走不到那一步，所以m_pConnection总是为NULL/0x0000000004 再要操作的地方初始化结果集和连接字符串，我的是在一个按钮里void CADOAccessDlg::OnBtnExec() {m_pRecordset.CreateInstance(__uuidof(Recordset));CString strLink;//连接字符串try{ strLink.Format("Provider=SQLOLEDB;server=ZHAOPENG;UID=sa;PWD=sa;database=MD200");theApp.m_pConnection->Open((_bstr_t)strLink,"","",NULL);}catch(_com_error e){AfxMessageBox("连接SQL Server失败!");return;} //UpdateData(true);theApp.m_pConnection->Close();}如果要在文件中使用theApp，不要忘记在文件头部（不是头文件）加上extern CADOAccessApp theApp以上就是连接数据库的简单方法。第二部分：向ListCtrl中添加数据库中表的数据1先写两个方法用于添加表头，和内容，ListCtrl要用Report格式//初始化列表框void CADOAccessDlg::InitReport(){m_List.InsertColumn(0,_T("音乐名称"),LVCFMT_LEFT,120,-1);m_List.InsertColumn(1,_T("作者/歌手"),LVCFMT_LEFT,90,-1);m_List.InsertColumn(2,_T("备注"),LVCFMT_LEFT,110,-1);m_List.SetExtendedStyle(LVS_EX_FULLROWSELECT |LVS_EX_GRIDLINES);}//显示列表框里的内容，从MidoSond表中void CADOAccessDlg::UpdataReport(){m_List.DeleteAllItems();//查询m_pRecordset.CreateInstance(__uuidof(Recordset));CString strLink;try{strLink.Format("Provider=SQLOLEDB;server=ZHAOPENG;UID=sa;PWD=sa;database=MidoText");theApp.m_pConnection->Open((_bstr_t)strLink,"","",NULL);}catch(_com_error e){AfxMessageBox("连接SQL Server失败!");return;} UpdateData(true);try{m_pRecordset->Open("select * from TextSond",theApp.m_pConnection.GetInterfacePtr(),adOpenDynamic,//动态adLockOptimistic,//乐观封锁法adCmdText);//文本查询}catch (_com_error e) {CString strErr="Select语句执行失败！";AfxMessageBox(e.ErrorMessage()+strErr);}_variant_t vat;CString MusicName,ZhuoZhe,SomethingAbout;CString strDomainName;while (!m_pRecordset->adoEOF) {//获取一个字段vat = m_pRecordset->GetCollect("音乐名称");if (vat.vt != VT_NULL) {MusicName = (LPCSTR)_bstr_t(vat);MusicName.TrimLeft();//清除左边的空格}vat = m_pRecordset->GetCollect("作者/歌手");if (vat.vt != VT_NULL) {ZhuoZhe = (LPCSTR)_bstr_t(vat);ZhuoZhe.TrimLeft();}vat = m_pRecordset->GetCollect("备注");if (vat.vt != VT_NULL) {SomethingAbout = (LPCSTR)_bstr_t(vat);SomethingAbout.TrimLeft();}int pos,id=1;pos = m_List.InsertItem(id,strDomainName);m_List.SetItemText(pos,0,MusicName);m_List.SetItemText(pos,1,ZhuoZhe);m_List.SetItemText(pos,2,SomethingAbout);m_pRecordset->MoveNext();}m_pRecordset->Close();theApp.m_pConnection->Close();}2在ShowWindow事件中调用，因为该事件先于其它任何事件所以在这一个就建立了数据库连接（连接写在第二个方法里）void CADOAccessDlg::OnShowWindow(BOOL bShow, UINT nStatus) {CDialog::OnShowWindow(bShow, nStatus);// TODO: Add your message handler code herethis->InitReport();this->UpdataReport();}第三部分：添加，修改，删除这三项功能看似简单实则重要，使操作数据库系统的核心操作，可以扩展出许多其他功能。分析：三项功能的本质在于1检索输入设备中输入的数据合法性，将其保存到相应的变量中。2调用命令函数，对连接的数据库进行操作。3将操作结果返回到输出设备上。我们就按照这样的思想编成，以添加功能为例说明其它给出代码//1检索输入设备中输入的数据合法性，将其保存到相应的变量中void CADOAccessDlg::OnBtnAdd() {//判断是否有字符输入 if (ISEmpty()) {return;}//不可以出现前两项一样的输入（正则表达式）if (ISHaveString()==false) {return;}//得到所输入的字符BOOL IsUpdata = FALSE;DataTable = "TextSond";//数据表名字//这里我原来想作动态建库的所遗留了变量CString strWeather;CString strMusicName,strMen,strSomething;((CEdit*)GetDlgItem(IDC_EdtMusicName))->GetWindowText(strMusicName);((CEdit*)GetDlgItem(IDC_EdtZZName))->GetWindowText(strMen);((CEdit*)GetDlgItem(IDC_EdtSomething))->GetWindowText(strSomething);//对所输入字符的合法性进行验证if (strMusicName.GetLength()>50) {MessageBox("音乐名称不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}if (strMen.GetLength()>30) {MessageBox("作者或歌手不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}if (strSomething.GetLength()>40) {MessageBox("备注不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}//判断要添加的行是否存在，存在就更新，不存在，就追加for (int i=0;i<m_List.GetItemCount();i++) {if (strWeather == m_List.GetItemText(i,0)) {IsUpdata = TRUE;break;}}if (IsUpdata) {CString strUpdata;strUpdata.Format("Updata '%s' set 音乐名称='%s',作者或歌手='%s',备注='%s'",DataTable,strMusicName,strMen,strSomething);_variant_t RecordAffected;theApp.m_pConnection->Execute(_bstr_t(strUpdata),&RecordAffected,adCmdText);}else{UpdateData();m_pRecordset.CreateInstance(__uuidof(Recordset));try{//查找所有行CString sql; sql.Format("select * from %s",DataTable);BSTR bstrSQL = sql.AllocSysString();m_pRecordset->Open(_bstr_t(bstrSQL),theApp.m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);}catch (_com_error e) {AfxMessageBox(e.ErrorMessage());}//添加m_pRecordset->AddNew();m_pRecordset->PutCollect("音乐名称",_variant_t(strMusicName));m_pRecordset->PutCollect("作者或歌手",_variant_t(strMen));m_pRecordset->PutCollect("备注",_variant_t(strSomething));m_pRecordset->Update();m_pRecordset->Close();}this->UpdataReport();}BOOL CADOAccessDlg::ISEmpty(){UpdateData(TRUE);if (m_EdtMName == "") {MessageBox("请输入音乐名称！","提示",MB_ICONINFORMATION);return true;}if (m_Men == "") {MessageBox("请输入作者或歌手！","提示",MB_ICONINFORMATION);return true;}// if (m_SomeThing = "") {// MessageBox("请输入音乐名称！","提示",MB_ICONINFORMATION);// return;// }return false;}//判断编辑框里是否有字符，有择削去BOOL CADOAccessDlg::ISHaveString(){CString strMusicName,strMen,strSomething;CString strOldName,strOldMen;((CEdit*)GetDlgItem(IDC_EdtMusicName))->GetWindowText(strMusicName);((CEdit*)GetDlgItem(IDC_EdtZZName))->GetWindowText(strMen);for (int i=0;i<m_List.GetItemCount();i++){strOldName = m_List.GetItemText(i,0);strOldMen = m_List.GetItemText(i,1);if ((strMusicName==strOldName)&(strMen==strOldMen)) {AfxMessageBox("请不要重复添加记录！");return false;//已经有了这样的字段}}return true;}修改void CADOAccessDlg::OnBtnUpdate() {// TODO: Add your control notification handler code here//点击修改时将会更新数据表中的内容 if (ISEmpty()) {return;}//得到所输入的字符BOOL IsUpdata = FALSE;CString strMusicName,strSomeOne,strSomeThing;((CEdit*)GetDlgItem(IDC_EdtMusicName))->GetWindowText(strMusicName);((CEdit*)GetDlgItem(IDC_EdtZZName))->GetWindowText(strSomeOne);((CEdit*)GetDlgItem(IDC_EdtSomething))->GetWindowText(strSomeThing);//对所输入字符的合法性进行验证if (strMusicName.GetLength()>50) {MessageBox("音乐名称不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}if (strSomeOne.GetLength()>30) {MessageBox("作者或歌手不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}if (strSomeThing.GetLength()>40) {MessageBox("备注不能超过50个字节！","请您注意",MB_ICONINFORMATION);return;}//判断是否选中了要修改的行CString strOldName,strOldMen;strOldName = m_List.GetItemText(m_nIndex,0);strOldMen = m_List.GetItemText(m_nIndex,1);CWnd* boFocus;boFocus = m_List.GetFocus();if (boFocus != NULL) //有焦点，先是高亮，更新{UINT flag = LVIS_SELECTED|LVIS_FOCUSED;m_List.SetItemState(m_nIndex, flag, flag);CString strIndexName;strIndexName = m_List.GetItemText(m_nIndex,0);DataTable="TextSond";CString strSQLUpdata;_variant_t RecordAffected;strSQLUpdata.Format("Update %s Set 音乐名称='%s',作者或歌手='%s',备注='%s' Where 音乐名称='%s' AND 作者或歌手='%s'",DataTable,strMusicName,strSomeOne,strSomeThing,strOldName,strOldMen);BSTR bstrSQL = strSQLUpdata.AllocSysString();theApp.m_pConnection->Execute(_bstr_t(bstrSQL),&RecordAffected,adCmdText);//重新显示列表框UpdataReport();}else{MessageBox("请选则要修改的行！","请您注意",MB_ICONINFORMATION);return;}}删除void CADOAccessDlg::OnBtnDelete() {// TODO: Add your control notification handler code hereCString strDelete;CString DataTable;CString MName;DataTable = "TextSond";MName = m_List.GetItemText(m_nIndex,0);strDelete.Format("Delete %s Where 音乐名称='%s'",DataTable,MName);_variant_t RecordsAffected;theApp.m_pConnection->Execute(_bstr_t(strDelete),&RecordsAffected,adCmdText);this->UpdataReport();}第四部分：上下移动按钮功能：当点击上下移动按钮时列表框中的被选中的一行会显示高亮，同时该亮度条会上移或下移一行，同时编辑框中的字段会随移动有相应变化。如图：上移，一行在相应的方法中添加代码void CADOAccessDlg::OnClickListView(NMHDR* pNMHDR, LRESULT* pResult) {//在上下移动前需要制定一个起始位置// TODO: Add your control notification handler code herePOSITION pos = m_List.GetFirstSelectedItemPosition();m_nIndex = m_List.GetNextSelectedItem(pos); // 得到项目索引CString strMusicName,strSomeOne,strSomeThing;strMusicName = m_List.GetItemText(m_nIndex,0);strSomeOne = m_List.GetItemText(m_nIndex,1);strSomeThing = m_List.GetItemText(m_nIndex,2);((CEdit*)GetDlgItem(IDC_EdtMusicName))->SetWindowText(strMusicName);((CEdit*)GetDlgItem(IDC_EdtZZName))->SetWindowText(strSomeOne);((CEdit*)GetDlgItem(IDC_EdtSomething))->SetWindowText(strSomeThing);if (m_nIndex != -1) {// m_List.SetFocus();}*pResult = 0;}void CADOAccessDlg::OnBtnUp() {// TODO: Add your control notification handler code here//向上移动m_List.SetFocus();if (m_nIndex == -1) {MessageBox("请选择一行再上移!","请注意",MB_ICONINFORMATION);return; }