VC++用ADO连接Oracle数据库

最新推荐文章于 2021-12-31 10:00:37 发布

淡淡的琉璃

最新推荐文章于 2021-12-31 10:00:37 发布

阅读量3.3k

点赞数

分类专栏： oracle

oracle 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

编程思路：

一、创建对话框应用程序

二、编辑对话框资源

控件ID及标题

连接Access数据库

IDC_QUERY 查询

三、添加变量、函数

1、添加变量

// DBQuery.h : main header file for the DBQUERY application
public:
......
_ConnectionPtr m_pConnection;

// DBQueryDlg.h : header file

public:
_RecordsetPtr m_pRecordset;
CListCtrl m_ListCtrl;

2、添加函数

a、添加消息响应函数

b、添加函数

四、添加代码

1、添加输入语句

// stdafx.h : include file for standard system include files,

......

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

2、于“Resource.h”文件内添加资源“IDC_LIST_DB ”

#define IDC_QUERY 1000
#define IDC_LIST_DB 1001

3、于“”文件内添加外部变量

// DBQueryDlg.h : header file
......
extern CDBQueryApp theApp;
class CDBQueryDlg : public CDialog

4、添加函数代码

a、于“DBQueryDlg.cpp”文件内添加函数代码

BOOL CDBQueryDlg::OnInitDialog()
{
CDialog::OnInitDialog();
// Add "About..." menu item to system menu.
// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);
CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
   CString strAboutMenu;
   strAboutMenu.LoadString(IDS_ABOUTBOX);
   if (!strAboutMenu.IsEmpty())
   {
    pSysMenu->AppendMenu(MF_SEPARATOR);
    pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
   }
}
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE);    // Set big icon
SetIcon(m_hIcon, FALSE);   // Set small icon
// TODO: Add extra initialization here
CRect rect;
GetClientRect(&rect);
CRect rectQuery;
GetDlgItem(IDC_QUERY)->GetWindowRect(&rectQuery);
ScreenToClient(&rectQuery);
rect.left+=10;
rect.top+=10;
rect.right-=10;
rect.bottom=rectQuery.top-10;
BOOL bl=m_ListCtrl.Create(WS_BORDER|WS_VISIBLE|LVS_REPORT,rect,this,IDC_LIST_DB);
m_ListCtrl.SetExtendedStyle(LVS_EX_FULLROWSELECT);
m_ListCtrl.InsertColumn(0,"学号",LVCFMT_LEFT,50);
m_ListCtrl.InsertColumn(1,"姓名",LVCFMT_LEFT,50);
int n=m_ListCtrl.InsertItem(0,"1");
m_ListCtrl.SetItemText(n,1,"张三");
n=m_ListCtrl.InsertItem(1,"2");
m_ListCtrl.SetItemText(n,1,"李四");
return TRUE; // return TRUE unless you set the focus to a control
}

void CDBQueryDlg::OnQuery()
{
// TODO: Add your control notification handler code here
CString strSQL="";
int nFieldsCount=0;
long i=0;
CString strFieldName="";
m_pRecordset.CreateInstance("ADODB.Recordset");//创建Recordset实例
strSQL="SELECT TNO,TN,SEX,AGE,PROF,DEPT FROM T WHERE AGE>30";
try
{
   m_pRecordset->Open((_variant_t)strSQL,(IDispatch*)theApp.m_pConnection,
    adOpenDynamic,adLockOptimistic,adCmdText);//打开记录集
}
catch (_com_error* e)
{
   AfxMessageBox(e->ErrorMessage());//弹出错误对话框
}

try
{
   nFieldsCount=m_pRecordset->GetFields()->Count;//得到字段数
}
catch (_com_error* e)
{
   AfxMessageBox(e->ErrorMessage());//弹出错误对话框
}

//清空列表控件
int nListColCount=0;
nListColCount=m_ListCtrl.GetHeaderCtrl()->GetItemCount();
m_ListCtrl.DeleteAllItems();
for (i=nListColCount-1;i>=0;i--)
{
m_ListCtrl.DeleteColumn(i);
}

//添加新的字段，字段名为读取表中的各字段名
for (i=0;i<nFieldsCount;i++)
{
strFieldName=LPCTSTR(m_pRecordset->GetFields()->GetItem(_variant_t(i))->Name);
m_ListCtrl.InsertColumn(i,strFieldName,LVCFMT_LEFT,50,50);
}

_variant_t var;
CString strItemValue;//当前记录当前字段的值
int nItem=0;//当前插入记录的行数
long nFirstCol=0;//第一列的索引，为0
int nIndex=0;//标记当前记录索引，从0开始

while (!m_pRecordset->adoEOF)
{
   //得到当前记录第一个字段的值
   var=m_pRecordset->GetCollect(_variant_t(nFirstCol));
   if (var.vt!=VT_NULL)
   {
    //类型转换，将_variant_t转换为CString
    strItemValue=LPCTSTR(_bstr_t(var));
   }
   //插入记录并填入第一个字段的值
   nItem=m_ListCtrl.InsertItem(nIndex,strItemValue);
   //循环一下，读取数据库中当前记录的值并填入列表控件
   for (i=1;i<nFieldsCount;i++)
   {
    var=m_pRecordset->GetCollect(_variant_t(i));
    if (var.vt!=VT_NULL)
    {
     strItemValue=LPCTSTR(_bstr_t(var));
     m_ListCtrl.SetItemText(nItem,i,strItemValue);
    }
   }
   m_pRecordset->MoveNext();//转入数据库下一记录
   nIndex++;//当前记录索引加1
}

//防止闪烁
m_ListCtrl.ShowWindow(SW_HIDE);
for (i=0;i<nFieldsCount;i++)
{
   //自动调整列宽
   m_ListCtrl.SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
}
m_ListCtrl.ShowWindow(SW_SHOW);
}

b、于“DBQuery.cpp”文件添加函数代码

BOOL CDBQueryApp::InitInstance()
{
AfxEnableControlContainer();
AfxOleInit();///初始化COM库
HRESULT hr;
hr=m_pConnection.CreateInstance("ADODB.Connection");
if (FAILED(hr))   return FALSE;
try
{
   hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=School.mdb","","",adModeUnknown);
}
catch (_com_error &e)
{
   CString errormessage;
   errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
   AfxMessageBox(errormessage);///显示错误信息
   return FALSE;
}
// Standard initialization
// If you are not using these features and wish to reduce the size
// of your final executable, you should remove from the following
// the specific initialization routines you do not need.
#ifdef _AFXDLL
Enable3dControls();    // Call this when using MFC in a shared DLL
#else
Enable3dControlsStatic(); // Call this when linking to MFC statically
#endif
CDBQueryDlg dlg;
m_pMainWnd = &dlg;
int nResponse = dlg.DoModal();
if (nResponse == IDOK)
{
   // TODO: Place code here to handle when the dialog is
   // dismissed with OK
}
else if (nResponse == IDCANCEL)
{
   // TODO: Place code here to handle when the dialog is
   // dismissed with Cancel
}
// Since the dialog has been closed, return FALSE so that we exit the
// application, rather than start the application's message pump.
return FALSE;
}

int CDBQueryApp::ExitInstance()
{
// TODO: Add your specialized code here and/or call the base class
if(m_pConnection->State)
m_pConnection->Close();
return CWinApp::ExitInstance();
}

五、编译

六、运行

将数据库文件与该程序置于同一文件夹打开。