使用ADO对象向数据库添加数据
2011-07-20 12:39
363 查看
一、首先创建基于对话框的应用程序:
二、添加“List Contr”控件:
1、设置控件属性:
(1)“style”->“View”->“Report”
->勾选:“Single selection”、“Auto arrange”
(2)“General”->勾选:“Client edge”
三、添加实现功能代码:
1、导入ADO动态链接库:
在Header File文件夹的StdAfx.h文件中添加:
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace\
rename("EOF","adoEOF")rename("BOF","adoBOF") //导入ADO动态链接库
2、初始化COM环境:
BOOL CInsertDataDlg::OnInitDialog()
{
CDialog::OnInitDialog();
SetIcon(m_hIcon, TRUE);
SetIcon(m_hIcon, FALSE);
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
m_List.SetExtendedStyle(LVS_EX_FLATSB //扁平风格显示滚动条
|LVS_EX_FULLROWSELECT //允许整行选中
|LVS_EX_HEADERDRAGDROP //允许整列拖动
|LVS_EX_ONECLICKACTIVATE //单击选中项
|LVS_EX_GRIDLINES); //画出网格线
//设置列标题及列宽度
m_List.InsertColumn(0,"商品名称",LVCFMT_LEFT,110,0);
m_List.InsertColumn(1,"销售数量",LVCFMT_LEFT,110,1);
try
{
m_pConnection.CreateInstance("ADODB.Connection"); //创建连接对象实例
_bstr_t strConnect="DRIVER={Microsoft Access Driver (*.mdb)};\
uid=;pwd=;DBQ=Database.mdb;";
m_pConnection->Open(strConnect,"","",adModeUnknown); //打开数据库
}
catch (_com_error e) //捕捉错误
{
AfxMessageBox(e.Description()); //弹出错误
}
CString sql = "select * from SellInfo";
m_pRecordset.CreateInstance(__uuidof(Recordset)); //创建记录集对象实例
m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
adOpenDynamic, adLockOptimistic, adCmdText); //执行SQL得到记录集
while (!m_pRecordset->adoEOF) //记录集不为空时循环
{
m_List.InsertItem(0,""); //向列表视图控件中插入行
//向列表视图控件中插入列
m_List.SetItemText(0,0,(char*)(_bstr_t)m_pRecordset->GetCollect("Merchandise"));
m_List.SetItemText(0,1,(char*)(_bstr_t)m_pRecordset->GetCollect("Sum"));
m_pRecordset->MoveNext(); //将记录集指针移动到下一条记录
}
m_pRecordset->Close(); //关闭记录集
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 return TRUE; // return TRUE unless you set the focus to a control
}
3、编写实现添加功能的函数:
void CInsertDataDlg::OnButinsert()
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
if (m_Name.IsEmpty()) //数据不能为空
{
MessageBox("基础信息不能为空!"); //为空时弹出提示信息
return;
}
CString sql = "select * from SellInfo"; //设置查询字符串
CString str;
str.Format("%d",m_Num);
m_pRecordset.CreateInstance(__uuidof(Recordset)); //创建记录集对象实例
m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
adOpenDynamic, adLockOptimistic, adCmdText); //执行SQL得到记录集
try
{
m_pRecordset->AddNew(); //添加新行
//向数据库中插入数据
m_pRecordset->PutCollect("Merchandise",(_bstr_t)m_Name);
m_pRecordset->PutCollect("Sum",(_bstr_t)str);
m_pRecordset->Update(); //更新数据表记录
m_pRecordset->Close(); //关闭记录集
}
catch (...) //捕捉可能出现的错误
{
MessageBox("操作失败"); //弹出错误提示
return;
}
MessageBox("添加成功"); //提示操作成功
int num = m_List.GetItemCount();
m_List.InsertItem(num,m_Name);
m_List.SetItemText(num,1,str);
}
4、编写退出函数:
void CInsertDataDlg::OnCancel()
{
m_pConnection->Close();
CDialog::OnCancel();
}
二、添加“List Contr”控件:
1、设置控件属性:
(1)“style”->“View”->“Report”
->勾选:“Single selection”、“Auto arrange”
(2)“General”->勾选:“Client edge”
三、添加实现功能代码:
1、导入ADO动态链接库:
在Header File文件夹的StdAfx.h文件中添加:
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace\
rename("EOF","adoEOF")rename("BOF","adoBOF") //导入ADO动态链接库
2、初始化COM环境:
BOOL CInsertDataDlg::OnInitDialog()
{
CDialog::OnInitDialog();
SetIcon(m_hIcon, TRUE);
SetIcon(m_hIcon, FALSE);
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
m_List.SetExtendedStyle(LVS_EX_FLATSB //扁平风格显示滚动条
|LVS_EX_FULLROWSELECT //允许整行选中
|LVS_EX_HEADERDRAGDROP //允许整列拖动
|LVS_EX_ONECLICKACTIVATE //单击选中项
|LVS_EX_GRIDLINES); //画出网格线
//设置列标题及列宽度
m_List.InsertColumn(0,"商品名称",LVCFMT_LEFT,110,0);
m_List.InsertColumn(1,"销售数量",LVCFMT_LEFT,110,1);
try
{
m_pConnection.CreateInstance("ADODB.Connection"); //创建连接对象实例
_bstr_t strConnect="DRIVER={Microsoft Access Driver (*.mdb)};\
uid=;pwd=;DBQ=Database.mdb;";
m_pConnection->Open(strConnect,"","",adModeUnknown); //打开数据库
}
catch (_com_error e) //捕捉错误
{
AfxMessageBox(e.Description()); //弹出错误
}
CString sql = "select * from SellInfo";
m_pRecordset.CreateInstance(__uuidof(Recordset)); //创建记录集对象实例
m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
adOpenDynamic, adLockOptimistic, adCmdText); //执行SQL得到记录集
while (!m_pRecordset->adoEOF) //记录集不为空时循环
{
m_List.InsertItem(0,""); //向列表视图控件中插入行
//向列表视图控件中插入列
m_List.SetItemText(0,0,(char*)(_bstr_t)m_pRecordset->GetCollect("Merchandise"));
m_List.SetItemText(0,1,(char*)(_bstr_t)m_pRecordset->GetCollect("Sum"));
m_pRecordset->MoveNext(); //将记录集指针移动到下一条记录
}
m_pRecordset->Close(); //关闭记录集
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 return TRUE; // return TRUE unless you set the focus to a control
}
3、编写实现添加功能的函数:
void CInsertDataDlg::OnButinsert()
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
if (m_Name.IsEmpty()) //数据不能为空
{
MessageBox("基础信息不能为空!"); //为空时弹出提示信息
return;
}
CString sql = "select * from SellInfo"; //设置查询字符串
CString str;
str.Format("%d",m_Num);
m_pRecordset.CreateInstance(__uuidof(Recordset)); //创建记录集对象实例
m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
adOpenDynamic, adLockOptimistic, adCmdText); //执行SQL得到记录集
try
{
m_pRecordset->AddNew(); //添加新行
//向数据库中插入数据
m_pRecordset->PutCollect("Merchandise",(_bstr_t)m_Name);
m_pRecordset->PutCollect("Sum",(_bstr_t)str);
m_pRecordset->Update(); //更新数据表记录
m_pRecordset->Close(); //关闭记录集
}
catch (...) //捕捉可能出现的错误
{
MessageBox("操作失败"); //弹出错误提示
return;
}
MessageBox("添加成功"); //提示操作成功
int num = m_List.GetItemCount();
m_List.InsertItem(num,m_Name);
m_List.SetItemText(num,1,str);
}
4、编写退出函数:
void CInsertDataDlg::OnCancel()
{
m_pConnection->Close();
CDialog::OnCancel();
}
相关文章推荐
- ADO.NET之4-使用SqlCommand对象向数据库添加记录---ShinePans
- ADO.NET笔记——使用Connection连接数据库,使用Command对象的ExecuteReader()方法创建DataReader对象返回多行数据
- Thinkphp框架中使用数据对象自动处理添加数据库数据时,关于在数据库表中添加新列时出现新列的数据添加不上去?
- ADO内存数据对象SqlDataAdapter类使用SqlDataAdapter在数据库和DataSet之间架起桥梁:
- 使用ADO对象添加、修改、删除数据
- .NET 利用反射将对象数据添加到数据库
- .NET数据库编程求索之路--4.使用ADO.NET实现(三层架构篇-使用Table传递数据)(2)
- .NET数据库编程求索之路--6.使用ADO.NET实现(三层架构篇-使用List传递数据-基于存储过程)(2)
- 使用SSH添加数据时执行了SQL语句数据库却什么都没有?
- ADO对象——获取数据库字段的数据类型
- ADO ------(二) 把ADO.NET封装成数据库数据成C#对象
- ADO对象——获取数据库字段的数据类型 .
- List使用add方法添加对象-只显示最后添加的数据的问题
- 使用MySQL Workbench建立数据库,建立新的表,向表中添加数据
- VB使用ADO对象链接数据库
- 巧妙使用JQuery Clone 添加多行数据,并更新到数据库的实现代码
- 在mfc使用ADO对象进行数据库的交互
- 使用 Excel 2003 对象模型添加 XML 数据集成 (From MSDN)
- 此数据库没有有效所有者,因此无法安装数据库关系图支持对象。若要继续,请首先使用“数据库属性”对话框的“文件”页或 ALTER AUTHORIZATION 语句将数据库所有者设置为有效登录名,然后再添加数据库关系图支持对象。
- VC6.0 点击按钮添加ado数据到数据库总是失败