help!!!如何在程序中创建使用Ado对象？？？

[EISA]

help!!!如何在程序中创建使用Ado对象？？？

[mrshan]

跟创建其他对象一样，用ｃｒｅａｔｅ
然后设置属性就行了

[EISA]

我声明一个 var vAdoDS:TAdoDataSet;
vAdoDS:=TAdoDataSet.Create(nil);
创建会报错：尚未调用CoInitialize 是什么问题呢？

[chenkandy]

var vAdoDS:TAdoDataSet;
vAdoDS:=TAdoDataSet.Create(self);

[ehom]

见ADODB单元:

CLASS_Connection: TGUID = '{00000514-0000-0010-8000-00AA006D2EA4}';
CLASS_Command: TGUID = '{00000507-0000-0010-8000-00AA006D2EA4}';
CLASS_Recordset: TGUID = '{00000535-0000-0010-8000-00AA006D2EA4}';
...

CreateADOObject(CLASS_Connection) as _Connection;
CreateADOObject(CLASS_Recordset) as _Recordset;
CreateADOObject(CLASS_Command) as _Command;
...

function CreateADOObject(const ClassID: TGUID): IUnknown;
var
Status: HResult;
FPUControlWord: Word;
begin
asm
FNSTCW FPUControlWord
end;
Status := CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, IUnknown, Result);
asm
FNCLEX
FLDCW FPUControlWord
end;
if (Status = REGDB_E_CLASSNOTREG) then
raise Exception.CreateRes(@SADOCreateError) else
OleCheck(Status);
end;

...

[张灰太狼]

可爱的即插即用，你在uses里面加DB, ADODB了吗？
如果没有的话，那就是这里了。
我在我这里是的可以用，你的也可以：
vAdoDS:=TAdoDataSet.Create(nil);
chenkandy(kandy)也可以
vAdoDS:=TAdoDataSet.Create(self);
你试试看！

[张灰太狼]

前面的uses里面一定要有的，没有就会出错
记住：
DB, ADODB；
DB, ADODB
DB, ADODB
DB, ADODB