ADO的学习-1

今天主要用到数据库方面的功能：首先从系统数据库（Surport.mdb）读相关数据到界面，将界面上的数据保存到用户数据库(新建工程后系统自己生成的数据（标准图数据库.mdb）,再一次打开界面时，就需要从“标准图数据库.mdb”读出数据，而非support.mdb。

 

开发环境：VC6.0，数据库语言采用ADO 与SQL语言。由于以后未接触过数据库编程，查网络资料，整理如下（未完成）：

 

一、ADO的使用方法：   

1、首先加入ADO支持库

 

   #import "c:/program files/common files/system/ado/msado15.dll" /no_namespace /rename ("EOF", "adoEOF")。 

  （这里面注意一点的是 msado15.dll与msado15d.dll的区别，一个应用于发行版本(Release)，一个是Debug版本）。

2、初始化COM组件，并创建链接:   

   AfxOleInit();

   m_pConnection.CreateInstance(__uuidof(Connection)); //ADO连接变量指针_ConnectionPtr m_pConnection;

   // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，

  // 因为它有时会经常出现一些想不到的错误。

try { // 打开Access库xx.mdb m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xx.mdb","","",adModeUnknown); } catch(_com_error e) { AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!"); return FALSE; }  

3、创建记录集： 

 

  // 使用ADO创建数据库记录集

   m_pRecordset.CreateInstance(__uuidof(Recordset));

  // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，

  // 因为它有时会经常出现一些想不到的错误。

 

try { m_pRecordset->Open("SELECT * FROM DemoTable", // 查询DemoTable表中所有字段 theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针 adOpenDynamic, adLockOptimistic, adCmdText); } catch(_com_error *e) { AfxMessageBox(e->ErrorMessage()); } 

 

 

 

4、进行操作（其主要操作：更新，添加、查询，难点是查询到相关数据后再进行改变）：

   在使用界面数据时，必须要用UpdateData()进行更新。

   添加入字段主要的操作是：

 

// 写入各字段值 m_pRecordset->AddNew(); m_pRecordset->PutCollect("Name", _variant_t(m_Name)); m_pRecordset->PutCollect("Age", atol(m_Age)); m_pRecordset->Update(); AfxMessageBox("插入成功!");  

 保存字段到数据库的主要操作是：

  UpdateData();//保存界面上的数据，首先在updatedta()，使界面数据保存下来 m_pRecordset->MoveFirst(); //其次要使记录表指针，指到某一指定的位置，才可以往下操作。 CString strName; int i =0; _variant_t vtFld; while (!m_pRecordset->adoEOF) { vtFld = m_pRecordset->GetCollect("Name"); if(vtFld.vt != VT_NULL) strName = (LPCSTR)_bstr_t(vtFld); if (strName == "w1") { float a = m_strW1.GetLength(); m_pRecordset->PutCollect("Age", atol(m_strW1)); m_pRecordset->Update(); //记得刷新数据 } if (strName == "w2") { m_pRecordset->PutCollect("Age", atol(m_strW2)); m_pRecordset->Update(); //记得刷新数据 } if (strName == "w3") { m_pRecordset->PutCollect("Age", atol(m_strW3)); m_pRecordset->Update(); //记得刷新数据 } if (strName == "w4") { m_pRecordset->PutCollect("Age", atol(m_strW4)); m_pRecordset->Update(); //记得刷新数据 } if (strName == "w5") { m_pRecordset->PutCollect("Age", atol(m_strW5)); m_pRecordset->Update(); //记得刷新数据 } m_pRecordset->MoveNext(); }  

 读取数据库的主要操作是：

  try { if(!m_pRecordset->BOF) m_pRecordset->MoveFirst(); else { AfxMessageBox("表内数据为空"); return; } // 读入库中各字段并加入列表框中 while(!m_pRecordset->adoEOF) { var = m_pRecordset->GetCollect("Name"); if(var.vt != VT_NULL) strName = (LPCSTR)_bstr_t(var); var = m_pRecordset->GetCollect("Age"); if(var.vt != VT_NULL) strValue = (LPCSTR)_bstr_t(var); if (strName == "w1") { m_strW1 = strValue; } else if (strName == "w2") { m_strW2 = strValue; } else if (strName == "w3") { m_strW3 = strValue; } else if (strName == "w4") { m_strW4 = strValue; } else if (strName == "w5") { m_strW5 = strValue; } m_pRecordset->MoveNext(); } } catch(_com_error *e) { AfxMessageBox(e->ErrorMessage()); } UpdateData(FALSE); 

 

SQL语句的查询在VC6.0的实际应用：

CString sql; sql.Format(_T("select * from %s where ID=-1 and Name='%s'"), table, Type);//然后用ADO的执行函数执行SQL语句 网上示例： 3、CommandPtr智能指针，可以使用_ConnectionPtr或_RecordsetPtr来执行任务，定义输出参数，执行存储过程或SQL语句。 ——执行SQL语句。先创建一个_CommandPtr实例指针，再将库连接和SQL语句做为参数，执行Execute()方法既可。代码如下所示： _CommandPtr m_pCommand; m_pCommand.CreateInstance(__uuidof(Command)); m_pCommand->ActiveConnection = m_pConnection; // 将库连接赋于它 m_pCommand->CommandText = "SELECT * FROM DemoTable"; // SQL语句 m_pRecordset = m_pCommand->Execute(NULL, NULL,adCmdText); // 执行SQL语句，返回记录集 ——执行存储过程。执行存储过程的操作和上面执行SQL语句类似，不同点仅是CommandText参数中不再是SQL语句，而是存储过程的名字，如Demo。另一个不同点就是在Execute()中参数由adCmdText(执行SQL语句)，改为adCmdStoredProc来执行存储过程。如果存储过程中存在输入、输出参数的话，需要使用到另一个智能指针_ParameterPtr来逐次设置要输入、输出的参数信息，并将其赋于_CommandPtr中Parameters参数来传递信息，有兴趣的读者可以自行查找相关书籍或MSDN。执行存储过程的代码如下所示： _CommandPtr m_pCommand; m_pCommand.CreateInstance(__uuidof(Command)); m_pCommand->ActiveConnection = m_pConnection; // 将库连接赋于它 m_pCommand->CommandText = "Demo"; m_pCommand->Execute(NULL,NULL, adCmdStoredProc)