[ARX程序]：ARX中查询Access数据库

geogesun

在ARX中查询Access数据库，如何处理？在VC++中编译成功但到Cad中运行时，出现错误信息为"Unhanlde Access"，希望能够解答。非常感谢！！

xiaowa

我对这个也想知道。。。有没有完整的源程序参考一下呢？

binbin

读写Access数据库,可以参观周景润的用ADO读写Access,好像一般的vc网站都有.

gephen

你使用什么数据库引擎，是ADO吗？我刚做了一个可以访问Oracle SQL Access等数据源的程序，用来保存自定义实体对象的属性。其实知道了ADO的使用方法就可以直接在ARX中访问Access数据库了。

xiaowa

大虾们能否做一个简单点的实例呀？

fjznz

我也卡在这个问题上，哪位大虾能帮忙一下，给个实例！
谢谢！！！

adian2000

这个问题对我来说也是一个难题。请高手把相关的源代码提供出来给大家参考吧。

binbin

周景润的用ADO读写Access

fjznz

这篇文章我已有了，我参考之后在我自己的程序加入了数据库模块，编译通过，运行出错。
出错信息：不支持此接口！
我到现在还没找出原因，各位高手能不能提供在ARX里连接数据库的源码？！
谢谢！！！

yyjordan

是呀是呀 最好有代码大家学习一下

saintlzh

是呀，我也卡在这里了

kable

.h

#ifndef _ADOVISIT_H
#define _ADOVISIT_H

#define INITGUID
#import "C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"\
        no_namespace rename("EOF", "EndOfFile"),\
        no_namespace rename("LockTypeEnum", "LockTypeEnumA"),\
        no_namespace rename("DataTypeEnum", "DataTypeEnumA"),\
        no_namespace rename("FieldAttributeEnum", "FieldAttributeEnumA"),\
        no_namespace rename("EditModeEnum", "EditModeEnumA"),\
        no_namespace rename("RecordStatusEnum", "RecordStatusEnumA"),\
        no_namespace rename("ParameterDirectionEnum", "ParameterDirectionEnumA"),\
        no_namespace rename("EOS", "EOSA")
#include "comdef.h"
#include "stdio.h"
#include "adoid.h"
#include "icrsint.h"
#include "acutads.h"

class CCustomRs : public CADORecordBinding
{
BEGIN_ADO_BINDING(CCustomRs)
        ADO_VARIABLE_LENGTH_ENTRY2(1, adVarChar, m_code,
                sizeof(m_code), codeStatus, FALSE)
        ADO_VARIABLE_LENGTH_ENTRY2(2, adVarChar, m_count,
                sizeof(m_count), countStatus, FALSE)
        ADO_VARIABLE_LENGTH_ENTRY2(3, adVarChar, m_direction,
                sizeof(m_direction), directionStatus, FALSE)
END_ADO_BINDING()
               
public:
        CHAR   m_code[41];
        ULONG   codeStatus;
        CHAR   m_count[12];
        ULONG   countStatus;
        CHAR   m_direction[41];
        ULONG   directionStatus;
};

void VisitMdb();

#endif

.cpp

#include "StdAfx.h"
#include "AdoVisit.h"
#include "conio.h"
#include "ole2.h"

void dump_com_error(_com_error &e)
{
        acutPrintf("Error\n");
        acutPrintf("\a\tCode = %08lx\n", e.Error());
        acutPrintf("\a\tCode meaning = %s", e.ErrorMessage());
        _bstr_t bstrSource(e.Source());
        _bstr_t bstrDescription(e.Description());
        acutPrintf("\a\tSource = %s\n", (LPCSTR) bstrSource);
        acutPrintf("\a\tDescription = %s\n", (LPCSTR) bstrDescription);
}

void
VisitMdb()
{
        HRESULT hr;
        IADORecordBinding   *picRs = NULL;
        _ConnectionPtr pConn("ADODB.Connection");
        _RecordsetPtr pRs("ADODB.Recordset");
        CCustomRs rs;
       
        ::CoInitialize(NULL);
        try
        {
                               
                pConn->Open("Provider=Microsoft.Jet.OLEDB.4.0;\
                        Data Source=e:\\kable\\basefiles\\Weld.mdb",\
                        "","",adModeUnknown);
               
                pRs->Open("select * from WeldingCode", (IDispatch*)pConn,
                        adOpenDynamic, adLockOptimistic, adCmdUnknown);
               
                if (FAILED(hr = pRs->QueryInterface(__uuidof(IADORecordBinding),
            (LPVOID*)&picRs)))
                        _com_issue_error(hr);
               
                if (FAILED(hr = picRs->BindToRecordset(&rs)))
                        _com_issue_error(hr);
               
                pRs->MoveFirst();
                while (!pRs->EndOfFile)
                {
                        acutPrintf("\a\tcode: %s\t count:%s\tdirection: %s\n",
                                (rs.codeStatus == adFldOK ? rs.m_code : ""),
                                (rs.countStatus == adFldOK ? rs.m_count: ""),
                                (rs.directionStatus == adFldOK ? rs.m_direction: ""));

                        pRs->MoveNext();
                }
                pConn->BeginTrans();
                pRs->UpdateBatch(adAffectAll);
               
                pConn->CommitTrans();
        }
        catch (_com_error &e)
        {
                dump_com_error(e);
        }
       
        if (picRs)
                picRs->Release();
       
        CoUninitialize();
}


1.有的#include文件要用尖括号，奇怪用尖括号贴不上去

2.这个程序可以运行，我总觉得有点怪怪的，请高手赐教

wencugb

一用dao加载数据就会出现内存不足的错误，咋办？
有用这个德马？大家为什么 都用ado呢：？

easypower

微軟的IDE會幫你自動生成odbc的相關代碼呀

gaoxianglxj

我也想了解这方面的编程