DELPHI中调用原生ado的api如何做？能否给个例子？

Question

var cn:variant;
var rec:variant;
begin
  cn:=createoleobject('adodb.connection');
  cn.provider:='msdaora.1';    //连到ORACEL的驱动，其它数据库照改
  
cn.open ('sqlnetname','username','userpassword');
  rec:=createoleobject('adodb.recordset');
  rec.source:='select * from tablename';
  rec.acitveconnection:=cn;
  rec.open
showmessage(rec.recordcount);
end

Answer 1

implementation
     uses comobj;        //注意此处要引用，否则不能创建OLEOBJECT
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var Cn:variant;
var Rec:variant;
begin
        Cn:=createoleobject('adodb.connection');
  Cn.provider:='msdaora.1';
        Cn.ConnectionTimeout := 15;
Cn.CursorLocation := 3; //'aduseclient
Cn.CommandTimeout := 30;
Cn.mode:=3; //'admodereadwrite
Cn.open ('server' ,'search','search');
        Rec:=createoleobject('adodb.recordset');
        rec.activeconnection:=Cn;
        rec.source:='select * from s_user';
        rec.open;
        showmessage(inttostr(rec.recordcount));
end;

Answer 2

MTS是什麽？怎麽用？ 
 

Answer 3

procedure TForm1.btnConnectionClick(Sender: TObject);
begin
  adoc := CreateOleObject('ADODB.Connection');
  
  adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=F:\Leewei\Books\Delphi5\Book3\Datas\Northwind.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False');
end;