MFC 中用ADO访问数据库

个人觉得，数据库操作连接和操作上手很快，但是那些类型总是会让你头疼 目前我还没搞清楚用怎么从T-SQL 的decimal技术到MFC中相应的数据？？ 将一下数据库连接的步骤 一：加载动态链接库 #import C:\Program Files\Common Files\System\ADO\msado15.dll \ no

个人觉得，数据库操作连接和操作上手很快，但是那些类型总是会让你头疼

目前我还没搞清楚用怎么从T-SQL 的decimal技术到MFC中相应的数据？？

将一下数据库连接的步骤

一：加载动态链接库

#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
no_namespace rename("EOF", "EndOfFile")

讲一下这句话什么意思，就是导入动态链接库，否则你的那个什么ptrConn，ptrRecord连接指针，都会在编译的时候报错

第二个rename，EOF替换成，EndOfFile是为了在从记录集Recordset取出来时候，判断是否到达了结尾

如果是到达了结尾，那么就会返回非VARIANT_FALSE

二：声明连接指针和记录集

_ConnectionPtr ptrConn; // 定义Connection对象
_RecordsetPtr ptrRecord;

三：创建连接

CoInitialize(NULL); //不要忘记了，否则指针全部为空，无效

try//打开连接
	{

	// 创建一个连接实体
	ptrConn.CreateInstance(__uuidof(Connection));
	// 设定连接等待的最大秒数，默认是15秒
	ptrConn->ConnectionTimeout = 20;
	// 打开连接
    ptrConn->Open("driver={SQL server};server=127.0.0.1;uid=laicb;pwd=616458;database=DBCourse", 
	"",//登录用户名
	"",//登录密码
	adConnectUnspecified);//打开连接
	}
	catch(_com_error &e)--捕获异常
	{
		CString str;
		CString strTemp;
		str.Format(TEXT("Error:\n"));
		strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
		str+="\n";
		str+=strTemp;
		
		strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
		str+="\n";
		str+=strTemp;
		MessageBox(str);
	}

四：打开记录集，初始化记录集

try
	{
	//_RecordsetPtr ptrRS; // recordset 对象
	// 创建recordset 对象实体

	ptrRecord.CreateInstance(__uuidof(Recordset));//有些时候如果记录级背使用过了，可能需要重新创建实例，然后再打开
	ptrRecord->Open("select * from dbo.StaffInfo",///为什么把这里的数据库改成dbo.StaffRecord时候，列表框就显示全为空
	ptrConn.GetInterfacePtr(),
	adOpenKeyset, //注意在VB说明文档时候，首字母a是大写的，在C++中应该小写
	adLockBatchOptimistic, 
	adCmdText);
	//int j= ptrRecord->RecordCount;
	//或者
	//ptrRS = ptrConn ->Execute(m_ strSql,NULL, adCmdText);

	}
	catch(_com_error &e)
	{
		CString str;
		CString strTemp;
		str.Format(TEXT("Error:\n"));
		strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
		str+="\n";
		str+=strTemp;
		
		strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
		str+="\n";
		str+=strTemp;
			MessageBox(str);
	}

五，执行语句

	try
	{
	ptrConn->Execute("select * from dbo.Login",NULL,adCmdText);
	ptrRecord->MoveFirst();//加了这句这会就可以取出数据了，可能是上一个父亲指针已经把其移动到最后了
	int i= ptrRecord->RecordCount;//如果把游标从动态到记录集，那么这个参数就有用
	while(ptrRecord->EndOfFile==VARIANT_FALSE)
	{	
		_variant_t va;
		_variant_t str;
		va.vt=VT_I4;
		va.lVal=0;
		str = ptrRecord->Fields->GetItem(va)->Value;
		CString strGetID((wchar_t*)(_bstr_t)str);
		str = ptrRecord->Fields->GetItem(short(1))->Value;
		CString strGetSerect((wchar_t*)(_bstr_t)str);
		strGetID.TrimRight();
		strGetSerect.TrimRight();
		right=ptrRecord->Fields->GetItem(short(2))->Value.intVal;
		if(strGetID==strID&&strGetSerect==strSerect)
		{
			isadmin=true;
		}
		ptrRecord->MoveNext();
	}
	}
	catch(_com_error &e)
	{
		CString str;
		CString strTemp;
		str.Format(TEXT("Error:\n"));
		strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
		str+="\n";
		str+=strTemp;
		
		strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
		str+="\n";
		str+=strTemp;

		strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
		str+="\n";
		str+=strTemp;
		AfxMessageBox(str);
	}

Connection::Execute来执行SQL语句，如果有返回结果的，那么就返回Recordset，如果无需返回的就可以直接执行

取出查询结果是

 ptrRecord->Fields->GetItem(va)->Value;

 ptrRecord->Fields->GetItem(va)->Name;
va是
_variant_t va;
va.vt=VT_I4;
va.lVal=0;
也可以这样
 ptrRecord->Fields->GetItem(short(0))->Name;
返回结果是

while(ptrRecord->EndOfFile==VARIANT_FALSE)
｛
取出结果集
ptrRecord->MoveNext();
｝

有些时候，如果你的结果集已经被全部取出来的时候，也就是你的结果集已经到了非VARIANT_FALSE
这时候你就需要重新创建实例，然后打开，
ptrRecord.CreateInstance(__uuidof(Recordset));//有些时候如果记录级背使用过了，可能需要重新创建实例，然后再打开
	ptrRecord->Open("select * from dbo.StaffInfo",///为什么把这里的数据库改成dbo.StaffRecord时候，列表框就显示全为空
	ptrConn.GetInterfacePtr(),
	adOpenKeyset, //注意在VB说明文档时候，首字母a是大写的，在C++中应该小写
	adLockBatchOptimistic, 
	adCmdText);

这样你才能重新使用，不然好像MoveFirst,么有用啊
另外如果你结果集在某处调用了close，那么你再次使用的时候一定要执行上面这段语句，否则会报说记录集已经关闭了，wufa使用


六：Command对象的使用
try

{

// Create Connection Object (1.5 Version)

Conn1.CreateInstance( __uuidof( Connection ) );

Conn1->ConnectionString = bstrConnect;

Conn1->Open( bstrEmpty, bstrEmpty, bstrEmpty, -1 );

// Create Command Object

Cmd1.CreateInstance( __uuidof( Command ) );

Cmd1->ActiveConnection = Conn1;

Cmd1->CommandText = _bstr_t("SELECT * FROM mytable WHERE age
然后执行就可以了cmd1->Execute就OK了


结束：
一些释放操作，置空操作