关于ADO组件自动生成的问题

[aupttea]

我在写一个数据访问模块，如下：
遇到的问题是动态生成ADO组件的时候出了问题，求助！！
这个模块就是要实现无窗体的调用数据库组件，并访问数据库

#ifndef ACCESSREAD
#define ACCESSREAD
#include <vcl.h>
#include <string>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComObj.hpp>

using namespace std;

namespace AccessRead
{
int Read()
{
TADOConnection *ADOConnection1 = new TADOConnection(NULL);
//这个是可以的，也可以设定并连接上数据库
ADOConnection1->ConnectionString = "Driver= {Microsoft Access Driver (*.mdb)};DBQ=Information.mdb";

TADOTable *ADOTable1= new TADOTable(NULL);
//但这个就出错了，运行时说没有权限什么的。ADODataSet也不行

CoInitialize(NULL);
Variant AConnection = CreateOleObject("ADODB.Connection");
Variant ARecordSet = CreateOleObject ("ADODB.RecordSet");
//这两个建立的时候都可以，但后面我就不知如何做了
//AConnection.OleProcedure("Open", "");
CoUninitialize;
}
}

[aupttea]

up 一下，有人知道么？

[yangguo_god]

代码没问题，重建一个工程试试

[aupttea]

还是显示：
Application is not licensed to use this feature.

是因为我没有用form类么，应该有解决的办法吧

[xu_xinyu]

用数据模块很好呀，为什么这么麻烦。

[aupttea]

或者是我的C++ Builder版本的问题么？
Question:

What is the cause of the error "Application is not licensed to use this feature"?

Answer:

This error occurs when you try to use components from one version of Delphi, such as Enterprise, with a different version that does not include those components, such as Standard. For example if you try to install the database components from the Enterprise version of Delphi into a Standard installation of Delphi.

Another possible cause is if you have the Standard version of Delphi installed on your machine and you install the Professional or Enterprise version without first uninstalling the Standard version. This error may also occur if you move a project from one version to another and keep the same compiled units (.dcu). It is best to delete the .dcu files and let them be recreated automatically.

Note: It is fine to have two different release versions of Delphi on your machine, such as Delphi 4 and Delphi 5, but not two versions of the same release such as Delphi 5 Standard and Delphi 5 Enterprise.

[cizi]

试试:
TADOTable* myTable = new TADOTable(Application);

[ljianq]

你可以使用TDataModule，在里面操作数据就可以了。

[aupttea]

TADOTable* myTable = new TADOTable(Application); 还是不行

[swites]

gz1

[aupttea]

我是希望别的程序调用我的模块的时候只包含这个 .h 文件就可以了
不想有什么窗体什么的。功能就是要读取数据库里的内容

[pzoon]

TADOConnection *ADOConnection1 = new TADOConnection(Application->Owner);

[aupttea]

还是不行，我把全部代码都贴出来吧，如果解决了我再加200分。
我用的是Win2000_Pro_En BCB6_Enterprise
用bcb打开testAccessRead.cpp文件，自动生成工程。

//testAccessRead.cpp

#include "AccessRead.h"
#pragma package(smart_init)

using namespace std;

int main(int argc, char* argv[])
{
AccessRead::First();
return 0;
}

//AccessRead.h

#ifndef ACCESSREAD
#define ACCESSREAD
#include <vcl.h>
#include <string>
#include <fstream>
#include <sstream>
#include <algorithm>
#include <vector>
#include <ADODB.hpp>
#include <Db.hpp>

using namespace std;

namespace AccessRead
{
int First()
{
CoInitialize(NULL);
TADOTable *ADOTable1 = new TADOTable(NULL);
//就是上面这行运行的时候出了问题
CoUninitialize();
return 1;
}
}
#endif

[aupttea]

是不是真的没有form就不能new出TADOTable啊？
但为什么能new出TADOConnection呢？

[南郁]

不能没有Applicate 请套到里头去:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
//Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------

[hswu]

程序没有问题，我也帮你试过，但如果你想在控制台程序中调用那是肯定不行的，nanyu(南郁) 说的没错你必须
Application->Initialize();
Application->Run();
的windows消息循环下调用