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

Question

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

Answer 1

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

Answer 2

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

Answer 3

见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;...

Answer 4

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

Answer 5

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