ADO连接Oracle

最新推荐文章于 2022-08-15 01:28:06 发布

中国村民

最新推荐文章于 2022-08-15 01:28:06 发布

阅读量852

点赞数

分类专栏： ADO

本文链接：https://blog.csdn.net/seulww/article/details/21692893

版权

ADO 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

2014年3月21日08:57:57

1、使用VS2008创建一个预编译头的控制台项目。

2、在stdafx.h文件结尾添加：

#include<iostream>
#include <string>

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename(L"EOF", L"EndOfFile")

using namespace std;

3、源代码内容：

int _tmain(int argc, _TCHAR* argv[])
{
	setlocale( LC_CTYPE, "" );

	_ConnectionPtr pConnection=NULL;//连接
	_RecordsetPtr  pRecordset=NULL;//记录集

	::CoInitialize(NULL); 
	pConnection.CreateInstance(__uuidof(Connection));
	pRecordset.CreateInstance(__uuidof(Recordset));

	char ch;//
	cin>>ch;

	if(!pConnection->State)
	{
		_bstr_t strConnect =L"Provider=MSDAORA;Data Source=ORCL;User ID=etc_ctrlr;Password=itsmoe";

		try
		{
			pConnection->Open(strConnect, L"",L"", adModeUnknown); 
			wcout<<L"打开成功"<<endl;
		}catch (_com_error e)
		{
			wcout<<L"出错"<<endl;
			exit(-1);
		}
	}

	cin>>ch;

	if (pRecordset->State)
		pRecordset->Close();
	if(pConnection->State)
		pConnection->Close();

	::CoUninitialize();

	return 0;
}