SQL学习笔记：简单的VC成绩管理源码

      在学习之前自己也看过些ACCESS数据库方面知识，再回头来看许久SQL方面的接口，感觉其实很多代码都是重复的。（所以不要害怕数据库，其实我们只是需要略微知道些皮毛也就够我们用了！）

 

      我喜欢用“实例”说话，非实力也....   

 

      所以没事又整了个DEMO测试程序：

 

1、程序运行效果：

 

2、OnInitDialog()初始化函数

/************************************************************************/ /* 函数作用: 对话框默认初始化函数，连接SQL数据库、添加列表头 /* 函数参数: 无 /* 返 回 值: 成功返回TRUE，否则返回FALSE /* 说 明: By Koma 2009-08-20 20:18 Edit /************************************************************************/ BOOL CQDlg::OnInitDialog() { CDialog::OnInitDialog(); ...... SetIcon(m_hIcon, TRUE); // Set big icon SetIcon(m_hIcon, FALSE); // Set small icon // TODO: Add extra initialization here //初始化COM接口 if (!AfxOleInit()) { AfxMessageBox("初始化com接口失败"); } HRESULT hr; try { // 创建Connection对象 hr = m_pConnection.CreateInstance("ADODB.Connection"); if(SUCCEEDED(hr)) { // 在这里自行修改SQL服务器IP、登录用户、密码 // 也可以将IP换成外网IP，或免费域名 hr = m_pConnection->Open("Provider=SQLOLEDB;Server=192.168.1.100,1433;DataBase=student;UID=sa;PWD=manager","","",adModeUnknown); } } catch(_com_error e) { // 捕捉异常 CString errormessage; errormessage.Format("连接数据库失败!/r/n错误信息:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///显示错误信息 } // 上下列表控件初始化XP风格 LONG lStyle = m_LineList.SendMessage(LVM_GETEXTENDEDLISTVIEWSTYLE); lStyle |= LVS_EX_CHECKBOXES | LVS_EX_FULLROWSELECT | LVS_EX_GRIDLINES; m_LineList.SendMessage(LVM_SETEXTENDEDLISTVIEWSTYLE, 0,(LPARAM)lStyle); // 添加ListBox列表头 m_LineList.InsertColumn(0,"姓名", NULL,80, -1); m_LineList.InsertColumn(1,"班级", NULL,80,-1); m_LineList.InsertColumn(2,"语文", NULL,80,-1); m_LineList.InsertColumn(3,"数学", NULL,80, -1); m_LineList.InsertColumn(4,"英语", NULL,80, -1); // 修改对话框标题 CString strTittle; strTittle = "SQL Demo " + GetHostName() + " " +GetIPAddress(); SetWindowText(strTittle); return TRUE; // return TRUE unless you set the focus to a control }

 

3、读取

/************************************************************************/ /* 函数作用: 读取SQL数据库记录，将内容写入ListBox /* 函数参数: 无 /* 返 回 值: 无 /* 说 明: By Koma 2009-08-20 21:35 Edit /************************************************************************/ void CQDlg::OnBtnRead() { // TODO: Add your control notification handler code here // 清空列表框 m_LineList.DeleteAllItems(); int nItem; _variant_t vName,vBanJi,vYuWen,vShuXue,vYinWen; try { // 连接数据库，打开MainInfo表 m_pRecordset.CreateInstance("ADODB.Recordset"); m_pRecordset->Open("select * from db_info",_variant_t((IDispatch*) m_pConnection,TRUE),adOpenStatic,adLockOptimistic,adCmdText); // 判断记录集指针标志，是否读取完毕 while(!m_pRecordset->adoEOF) { // 获取记录集 vName = m_pRecordset->GetCollect("姓名"); vBanJi = m_pRecordset->GetCollect("班级"); vYuWen = m_pRecordset->GetCollect("语文"); vShuXue = m_pRecordset->GetCollect("数学"); vYinWen = m_pRecordset->GetCollect("英语"); // 更新上面的ListBox nItem = m_LineList.InsertItem(0xffff,(_bstr_t)vName); m_LineList.SetItem(nItem,1,1,(_bstr_t)vBanJi,NULL,0,0,0); m_LineList.SetItem(nItem,2,1,(_bstr_t)vYuWen,NULL,0,0,0); m_LineList.SetItem(nItem,3,1,(_bstr_t)vShuXue,NULL,0,0,0); m_LineList.SetItem(nItem,4,1,(_bstr_t)vYinWen,NULL,0,0,0); // 移动记录集指针到下一条 m_pRecordset->MoveNext(); Sleep(5); } } catch (_com_error e) { // 读取出数据库记录出错 CString strTemp; strTemp.Format("读取数据库时出错，错误代码：『%s』",GetLastError()); AfxMessageBox(strTemp); } }

 

4、添加

/************************************************************************/ /* 函数作用: 读取SQL数据库，添加记录集 /* 函数参数: 无 /* 返 回 值: 无 /* 说 明: By Koma 2009-08-20 21:30 Edit /************************************************************************/ void CQDlg::OnBtnAdd() { // TODO: Add your control notification handler code here try { UpdateData(TRUE); CString sql; m_pRecordset.CreateInstance("ADODB.Recordset"); m_pRecordset->Open("select * from db_info",_variant_t((IDispatch*) m_pConnection,TRUE),adOpenStatic,adLockBatchOptimistic,adCmdText); sql.Format("insert into db_info ([姓名],[班级],[语文],[数学],[英语]) values ('%s','%s','%d','%d','%d')", m_Name,m_Class,m_Yuwen,m_Shuxue,m_English); // 执行SQL语句 m_pConnection->Execute((_bstr_t)sql,NULL,adExecuteNoRecords); OnBtnRead(); MessageBox("添加成功！","提示"); } catch(_com_error e) { // 添加出错 CString errormessage; errormessage.Format("添加失败，请检查姓名『%s』是否已经存在！/n错误信息:『%s』",m_Name,e.ErrorMessage()); AfxMessageBox(errormessage); } }

 

5、修改

/************************************************************************/ /* 函数作用: 读取SQL数据库，修改记录集 /* 函数参数: 无 /* 返 回 值: 无 /* 说 明: By Koma 2009-08-20 22:58 Edit /************************************************************************/ void CQDlg::OnBtnEdit() { // TODO: Add your control notification handler code here try { // 修改数据，以姓名为键 UpdateData(TRUE); CString sql; m_pRecordset.CreateInstance("ADODB.Recordset"); m_pRecordset->Open("select * from db_info",_variant_t((IDispatch*) m_pConnection,TRUE),adOpenStatic,adLockBatchOptimistic,adCmdText); sql.Format("update db_info set [姓名]='%s',[班级]='%s',[语文]='%d',[数学]='%d',[英语]='%d' where [姓名]='%s'", m_Name,m_Class,m_Yuwen,m_Shuxue,m_English,m_OldName); // 执行SQL语句 m_pConnection->Execute((_bstr_t)sql,NULL,adExecuteNoRecords); // 刷新重新读取数据库 OnBtnRead(); MessageBox("修改成功！","提示"); } catch(_com_error e) { // 修改失败 CString errormessage; errormessage.Format("修改失败，错误信息:『%s』",e.ErrorMessage()); AfxMessageBox(errormessage); } }

 

6、删除

/************************************************************************/ /* 函数作用: 读取SQL数据库，删除记录集 /* 函数参数: 无 /* 返 回 值: 无 /* 说 明: By Koma 2009-08-20 21:46 Edit /************************************************************************/ void CQDlg::OnBtnDel() { // TODO: Add your control notification handler code here try { UpdateData(TRUE); CString sql; m_pRecordset.CreateInstance("ADODB.Recordset"); m_pRecordset->Open("select * from db_info",_variant_t((IDispatch*) m_pConnection,TRUE),adOpenStatic,adLockBatchOptimistic,adCmdText); UpdateData(TRUE); sql.Format("delete from db_info where [姓名]='%s'",m_Name); // 执行SQL语句 m_pConnection->Execute((_bstr_t)sql,NULL,adExecuteNoRecords); OnBtnRead(); MessageBox("删除成功！","提示"); } catch(_com_error e) { CString errormessage; errormessage.Format("删除失败，错误信息:『%s』",e.ErrorMessage()); AfxMessageBox(errormessage); } }

 

7、读取被选中的行数据

/************************************************************************/ /* 函数作用: 显示被选中的行数据 /* 函数参数: 默认 /* 返 回 值: 无 /* 说 明: By Koma 2009-08-20 21:30 Edit /************************************************************************/ void CQDlg::OnClickList1(NMHDR* pNMHDR, LRESULT* pResult) { // TODO: Add your control notification handler code here // 获取被选中的行数 int nSelRows = m_LineList.GetSelectedCount(); // 如果没有选中则返回 if(!nSelRows) return; // 如果没有选择任何项，那么将返回NULL POSITION ps = m_LineList.GetFirstSelectedItemPosition(); // 返回列表视图控件中被选择的下一项的索引值 int i = m_LineList.GetNextSelectedItem(ps); if(i != -1) { // 获取被选中行的信息 m_Name = m_LineList.GetItemText(i,0); m_Class = m_LineList.GetItemText(i,1); // 因为这里关联的是int型变量，而获取到的是CString // 所以需要将CString转换成int m_Yuwen = atoi(m_LineList.GetItemText(i,2)); m_Shuxue= atoi(m_LineList.GetItemText(i,3)); m_English = atoi(m_LineList.GetItemText(i,4)); // 将数据传递到控件用FALSE UpdateData(FALSE); } // 将旧的姓名保存起来，以便修改记录 m_OldName = m_Name; *pResult = 0; }

 

8、获取主机名与外网IP（CString类型）

/************************************************************************/ /* 函数说明：获取当前外网IP地址 /* 参 数：无 /* 返 回 值：返回外网IP地址、CString类型字符串 /* By:Koma 2009.08.21 14:12 /************************************************************************/ CString CQDlg::GetIPAddress() { char buf[MAX_PATH] = {0}; char chTempIp[128]; char chIP[64]; CString strPath; strPath = GetExePath() + "//netip.ini"; URLDownloadToFile(0,"http://www.ip138.com/ip2city.asp",strPath,0,NULL); FILE *fp=fopen( strPath, "r" ); if ( fp != NULL ) { fseek(fp, 0, SEEK_SET); fread(buf,1,256,fp); fclose(fp); char* iIndex = strstr(buf,"["); if (iIndex) { sprintf( chTempIp,"%s",iIndex); int nBuflen = strlen(chTempIp); for(int i =0; i<nBuflen; i++) { chIP[i] = chTempIp[i+1]; if(chTempIp[i] == ']') { chIP[i-1] = '/0'; DeleteFile(strPath); continue; } } } } CString strTemp=""; if(chIP != "") { strTemp.Format("%s",chIP); } return strTemp; } /************************************************************************/ /* 函数说明：获取当前主机名 /* 参 数：无 /* 返 回 值：返回主机名、CString类型字符串 /* By:Koma 2009.08.21 14:23 /************************************************************************/ CString CQDlg::GetHostName() { WORD wVersionRequested; WSADATA wsaData; int err; wVersionRequested = MAKEWORD(2,0); err = WSAStartup(wVersionRequested,&wsaData); if(err != 0) { return err; } if(LOBYTE(wsaData.wVersion != 2) || HIBYTE(wsaData.wVersion) != 0) { WSACleanup(); return (char)WSAVERNOTSUPPORTED; } char szHostName[256]; int nRetCode; CString str; //调用API来获得主机名 nRetCode = gethostname(szHostName,sizeof(szHostName)); if(nRetCode != 0) { return WSAGetLastError(); } str.Format("主机名:%s",szHostName); return str; }

 

 9、VC + ADO + MS SQL 2000源码下载

 

      网盘下载：http://www.rayfile.com/files/051d7080-8e2e-11de-a68f-0014221b798a/

 

      好了，其他代码也就不再贴了，自己去下载源吧看看吧，还有不会导入student.mdf数据库的，去看看前面几篇文章吧！

 

 

      （MS SQL 2000学习到此结束，有机会我再看看其他公司的数据库，至少也不会难的吧！）