请问VC++中如何连接odbc数据源,具体步骤!谢谢!
2014-02-23
展开全部
1.先创建数据库,在控制面板的管理工具.数据源
2. ADO技术
ActiveX Data Object, ActiveX数据对象。
ADO建立在OLE DB之上,采用ADO技术访问数据库的话,实际的调用过程是:ADO客户程序通过ADO再访问OLE DB提供的程序,这样访问速度就要慢一些。
如果某个关系型数据库没有OLE DB的提供程序,那么可以利用ODBC的OLE DB提供程序去访问ODBC,然后利用ODBC再去访问支持ODBC的数据库。
2.1 条件
l 头文件和动态库的加载
#include <comdef.h>
#include <atlbase.h>
#pragma warning(disable:4146)
#import "C:\Program Files\Common Files\System\ado\msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF")
#pragma warning(default:4146)
using namespace ADODB;
l COM组件的加载
if ( CoInitialize( NULL ) != 0 )
{
AfxMessageBox( _T( "初始化Com库失败!" ) );
return FALSE;
}
l 变量的声明
_ConnectionPtr m_pConnection;
2.2 连接数据库
m_pConnection.CreateInstance( __uuidof(Connection) );
m_pConnection->ConnectionString = _T( "DSN=PostgreSQL30W;UID=PostGre;PWD=PostGre" );
HRESULT hr = m_pConnection->Open( _T(""), _T(""), _T(""), adConnectUnspecified );
if ( SUCCEEDED( hr ) )
{
AfxMessageBox( _T( "连接数据库成功!" ) );
}
2.3 访问数据库
_CommandPtr pCommand(__uuidof(Command));
_RecordsetPtr pRecordset( __uuidof(Recordset) );
CString strSQL = _T( "select * from \"pg_getProductInfo\"()" );
try
{
pCommand->ActiveConnection=m_pConnection;
pCommand->CommandText=_bstr_t(strSQL);
pRecordset=pCommand->Execute(NULL,NULL,adCmdText);
}
catch (_com_error & e)
{
AfxMessageBox(e.Description());
return ;
}
_variant_t var;
int nRecordNum = pRecordset->GetRecordCount();
while( !pRecordset->GetadoEOF() )
{
TAG_PRODUCTINFO tagProductInfo;
// ID
var = pRecordset->GetCollect( _T( "ID" ) );
tagProductInfo.nProductID= var.intVal;
// Name
var = pRecordset->GetCollect( _T( "Name" ) );
tagProductInfo.strProductName = (char*)_bstr_t(var);
m_vecProductInfo.push_back( tagProductInfo );
pRecordset->MoveNext();
}
pRecordset->Close();
pRecordset.Release();
2. ADO技术
ActiveX Data Object, ActiveX数据对象。
ADO建立在OLE DB之上,采用ADO技术访问数据库的话,实际的调用过程是:ADO客户程序通过ADO再访问OLE DB提供的程序,这样访问速度就要慢一些。
如果某个关系型数据库没有OLE DB的提供程序,那么可以利用ODBC的OLE DB提供程序去访问ODBC,然后利用ODBC再去访问支持ODBC的数据库。
2.1 条件
l 头文件和动态库的加载
#include <comdef.h>
#include <atlbase.h>
#pragma warning(disable:4146)
#import "C:\Program Files\Common Files\System\ado\msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF")
#pragma warning(default:4146)
using namespace ADODB;
l COM组件的加载
if ( CoInitialize( NULL ) != 0 )
{
AfxMessageBox( _T( "初始化Com库失败!" ) );
return FALSE;
}
l 变量的声明
_ConnectionPtr m_pConnection;
2.2 连接数据库
m_pConnection.CreateInstance( __uuidof(Connection) );
m_pConnection->ConnectionString = _T( "DSN=PostgreSQL30W;UID=PostGre;PWD=PostGre" );
HRESULT hr = m_pConnection->Open( _T(""), _T(""), _T(""), adConnectUnspecified );
if ( SUCCEEDED( hr ) )
{
AfxMessageBox( _T( "连接数据库成功!" ) );
}
2.3 访问数据库
_CommandPtr pCommand(__uuidof(Command));
_RecordsetPtr pRecordset( __uuidof(Recordset) );
CString strSQL = _T( "select * from \"pg_getProductInfo\"()" );
try
{
pCommand->ActiveConnection=m_pConnection;
pCommand->CommandText=_bstr_t(strSQL);
pRecordset=pCommand->Execute(NULL,NULL,adCmdText);
}
catch (_com_error & e)
{
AfxMessageBox(e.Description());
return ;
}
_variant_t var;
int nRecordNum = pRecordset->GetRecordCount();
while( !pRecordset->GetadoEOF() )
{
TAG_PRODUCTINFO tagProductInfo;
// ID
var = pRecordset->GetCollect( _T( "ID" ) );
tagProductInfo.nProductID= var.intVal;
// Name
var = pRecordset->GetCollect( _T( "Name" ) );
tagProductInfo.strProductName = (char*)_bstr_t(var);
m_vecProductInfo.push_back( tagProductInfo );
pRecordset->MoveNext();
}
pRecordset->Close();
pRecordset.Release();
Storm代理
2023-08-29 广告
2023-08-29 广告
"StormProxies是全球大数据IP资源服务商,其住宅代理网络由真实的家庭住宅IP组成,可为企业或个人提供满足各种场景的代理产品。点击免费测试(注册即送1G流量)StormProxies有哪些优势?1、IP+端口提取形式,不限带宽,I...
点击进入详情页
本回答由Storm代理提供
2014-02-23
展开全部
dim conn
dim connstr
dim db
db="test.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
连接SQl 库:
dim connweb
set connweb=server.createobject("ADODB.connection")
connweb.open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=密码;DATABASE=数据库名称"
dim connstr
dim db
db="test.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
连接SQl 库:
dim connweb
set connweb=server.createobject("ADODB.connection")
connweb.open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=密码;DATABASE=数据库名称"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询