使用ADO技术访问SQL 数据库

最新推荐文章于 2021-01-19 19:07:03 发布

oMengHen1

最新推荐文章于 2021-01-19 19:07:03 发布

阅读量832

点赞数

VC++6.0下使用ADO技术访问SQL 数据库（一、ADO类和数据库表类的建立）

关键词： ADO,SQL

*********************************************************************************************
1. ADOConn功能类的引入
*********************************************************************************************
// ADOConn.h: interface for the ADOConn class.
//
//
#import "c:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF") rename("BOF","adoBOF")
#if !defined(AFX_ADOCONN_H__20D9D06A_E099_4B1C_99DD_5B1F11B3A313__INCLUDED_)
#define AFX_ADOCONN_H__20D9D06A_E099_4B1C_99DD_5B1F11B3A313__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

class ADOConn
{

public:
_ConnectionPtr m_pConnection;
_RecordsetPtr m_pRecordset;
public:
ADOConn();
virtual ~ADOConn();
void OnInitADOConn();
_RecordsetPtr& GetRecordSet(_bstr_t bstrSQL);
BOOL ExecuteSQL(_bstr_t bstrSQL);
void ExitConnect();
};

#endif // !defined(AFX_ADOCONN_H__20D9D06A_E099_4B1C_99DD_5B1F11B3A313__INCLUDED_)
--------------------------------------------------------------------------------------------
// ADOConn.cpp: implementation of the ADOConn class.
//数据库连接、读记录及断开操作
//

#include "stdafx.h"
#include "CheckMan.h"
#include "ADOConn.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//
// Construction/Destruction
//

ADOConn::ADOConn()
{
}

ADOConn::~ADOConn()
{
}

//初始化——连接数据库
void ADOConn::OnInitADOConn()
{
// 初始化OLE/COM库环境
::CoInitialize(NULL);
try
{
  // 创建Connection对象
  m_pConnection.CreateInstance("ADODB.Connection");
  // 设置连接字符串，必须是BSTR型或者_bstr_t类型
  _bstr_t strConnect = "Provider=SQLOLEDB;Server=127.0.0.1;Database=basename;uid=sa;pwd=pwd;";
  m_pConnection->Open(strConnect,"","",adModeUnknown);
}
// 捕捉异常
catch(_com_error e)
{
  AfxMessageBox("数据库连接失败,请开启数据库服务!");
     PostQuitMessage(0);
  //AfxMessageBox(e.Description());
}
}

// 执行查询
_RecordsetPtr& ADOConn::GetRecordSet(_bstr_t bstrSQL)
{
try
{
  // 连接数据库，如果Connection对象为空，则重新连接数据库
  if(m_pConnection==NULL)
    OnInitADOConn();
  // 创建记录集对象
  m_pRecordset.CreateInstance(__uuidof(Recordset));
  // 取得表中的记录
  m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
}
// 捕捉异常
catch(_com_error e)
{
  AfxMessageBox("数据库记录读取失败!");
     PostQuitMessage(0);
  // 显示错误信息
  //AfxMessageBox(e.Description());
}
// 返回记录集
return m_pRecordset;
}

// 执行SQL语句，Insert Update _variant_t
BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL)
{
try
{
  // 是否已经连接数据库
  if(m_pConnection==NULL)
    OnInitADOConn();
  // Connection对象的Execute方法:(_bstr_t CommandText,
  // VARIANT * RecordsAffected, long Options )
  // 其中CommandText是命令字串，通常是SQL命令。
  // 参数RecordsAffected是操作完成后所影响的行数,
  // 参数Options表示CommandText的类型：adCmdText-文本命令；adCmdTable-表名
  // adCmdProc-存储过程；adCmdUnknown-未知
  m_pConnection->Execute(bstrSQL,NULL,adCmdText);
  return true;
}
catch(_com_error e)
{
  AfxMessageBox("数据库SQL语句执行失败!");
     PostQuitMessage(0);
  //AfxMessageBox(e.Description());
  return false;
}
}

void ADOConn::ExitConnect()
{
// 关闭记录集和连接
if(m_pRecordset!=NULL)
m_pRecordset->Close();
m_pConnection->Close();
// 释放环境
::CoUninitialize();
}

*********************************************************************************************
2. 建立数据库中表对应的表类，将表中的各个要操作的列都以变量的形式在类中再现，注意要保证对应的数据结构相通，例如SQL server中的 char n 类型对应VC++中的CString类型等。然后建立要操作的功能对应的功能函数，如sql_select(),sql_insert() 等等。
*********************************************************************************************
--------------------------------------------------------------------------------------------
2.1 INSERT 插入
--------------------------------------------------------------------------------------------
void Ctable::sql_insert()
{
ADOConn m_AdoConn;
m_AdoConn.OnInitADOConn();
_bstr_t vSQL;
//将各非字符串的数据转换为字符串
CString str_vlong,str_vint,str_vfloat;
str_tjxh.Format("%ld",tjxh);
str_yetl.Format("%d",yetl);
str_jzsly.Format("%f",jzsly);
//插入信息
vSQL="INSERT INTO table(lint,llong,lfloat,lstring,lchar)VALUES ("+vint+","+vlong+","+vfloat+",'"+vstring+"','"+vchar+"')";  //attention! 字符串的书写，见后面说明
m_AdoConn.ExecuteSQL(vSQL);
m_AdoConn.ExitConnect();
MessageBox(NULL,"保存体检信息成功！" , "提示", 0);

}
--------------------------------------------------------------------------------------------
2.2 SELECT查询
--------------------------------------------------------------------------------------------
void Ctable::sql_select(CString str)
{
  ADOConn m_AdoConn;
  m_AdoConn.OnInitADOConn();
  _bstr_t vSQL;
  vSQL = "SELECT * FROM table WHERE list="+str;  //不用对str加''
  _RecordsetPtr m_pRecordset;
  m_pRecordset=m_AdoConn.GetRecordSet(vSQL);
  if(m_pRecordset->adoEOF==1)
  AfxMessageBox("无法找到该数据记录！" );
  else
{
  vint=atoi((_bstr_t)m_pRecordset->GetCollect("lint"));   //int 型读取
        tjxh=atol((_bstr_t)m_pRecordset->GetCollect("tjxh"));   //long 型读取
  lysly=atof((_bstr_t)m_pRecordset->GetCollect("yk_lysly"));// float 型读取
        ch=*(char*)((_bstr_t)m_pRecordset->GetCollect("ch")); //char 读取
        str=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("str"); //char n,varchar n,string 的读取
}
m_AdoConn.ExitConnect();
}
--------------------------------------------------------------------------------------------
2.3 UPDATE 更新
--------------------------------------------------------------------------------------------
void Ctable::sql_update()
{
ADOConn m_AdoConn;
m_AdoConn.OnInitADOConn();
_bstr_t vSQL;

//将各非字符串的数据转换为字符串
CString str_vlong,str_vint,str_vfloat;
str_vlong.Format("%ld",vlong);
str_vint.Format("%d",vint);
str_vfloat.Format("%f",vfloat);
//更新数据，注意第一个加号不可以是char
vSQL= "UPDATE table SET lstring='"+vstring+"',lchar ='" +vchar+"',lint=" +str_vint+ ","lfloat=" +str_vfloat+ "WHERE list='" +list+ "' ";
m_AdoConn.ExecuteSQL(vSQL);
m_AdoConn.ExitConnect();
MessageBox(NULL,"更新记录成功！" , "提示", 0);
}
--------------------------------------------------------------------------------------------
2.4 DELETE 删除
--------------------------------------------------------------------------------------------
void Ctable::sql_delete(CString str)
{
//连接数据库
ADOConn m_AdoConn;
m_AdoConn.OnInitADOConn();
_bstr_t vSQL;