兄弟们来帮忙，vc6连接oracle，献上100分。

[ecjtu5208]

小弟新建一个win32 console application，我想连oracle数据库，并且就显示出第一笔记录就可以。
我知道MFC怎么连的，但是不知道console程序可不可以。不才向大家询问一下，请贴出代码。
代码应该不多，给100分。谢谢。

[ecjtu52082]

唉，太郁闷了

[ecjtu5208]

搞什么啊，没人来

[ecjtu5208]

我自己先顶一下

[sb3day]

ODBC连,改变连接的字符串就可以了

[ecjtu5208]

[Quote=引用 2 楼 sb3day 的回复:]
ODBC连,改变连接的字符串就可以了
[/Quote]
兄弟能运行成功后给我发个代码出来看吗？
我有用MFC的方法连，貌似有点问题。

[ecjtu5208]

#include "stdafx.h"
#include<iostream.h>


int main(int argc, char* argv[])
{
AfxEnableControlContainer();
AfxOleInit();//初始化COM库

//以下是连接access2000数据库。。。
HRESULT hr;
_ConnectionPtr m_pConnection;
try
{

hr = m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象

if(SUCCEEDED(hr))
{
m_pConnection->ConnectionTimeout=8;///设置超时时间为8秒
m_pConnection->PutCursorLocation(adUseClient);
hr = m_pConnection->Open("Provider=OraOLEDB.Oracle;User ID=x;Password=y;Data Source=test;","","",adModeUnknown);
}
}
catch(_com_error e)///捕捉异常
{
CString temp;
temp.Format("连接数据库错误信息:%s",e.ErrorMessage());
::MessageBox(NULL,temp,"提示信息",NULL);
return false;
}

_RecordsetPtr m_pRecordset_user;
CString strname,strpwd;
int x;

m_pRecordset_user.CreateInstance("ADODB.Recordset");
m_pRecordset_user->Open("select * from SFIS1.C_WEB_USER_T",_variant_t((IDispatch *)theApp.m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);

/*if(m_pRecordset_user->GetRecordCount() != 0)
{
while(!m_pRecordset_user->adoEOF)
{
strname = m_pRecordset_user->GetCollect("ACCOUNT").bstrVal;
strpwd = m_pRecordset_user->GetCollect("PASSWORD").bstrVal;



m_pRecordset_user->MoveNext();
}
}*/
cout<<m_pRecordset_user->GetRecordCount()<<endl;
cin>>x;
return 0;
}

[ecjtu5208]

要不帮我改改也可以，我就显示这个表有多少笔数据，
谢谢。

[ecjtu52083]

C版的人呢？帮忙啊