請問各位大大: ADO 有沒有提供計算欄位數的功能 類似BDE的Table.FieldCount

有它與BDE的TTable一樣都有FieldCount e.g. ADOTable.FieldCount or ADODataSet.FieldCount 《觸不到問題人》 來無影，去無踪， 問題總是一羅羅。

謝謝大大: 但是我是用OLE Server來呼叫ADO 程式如下: a: Variant ; a := CreateOleObject('ADODB.Connection'); a,Open",,,,"; 那該用那一個物件來計算欄位數ㄋ,如何寫

謝謝大大: 但是我沒有ADO的VCL元件ㄝ,我是用OLE Server啟動ADO

引言: 謝謝大大: 但是我是用OLE Server來呼叫ADO 程式如下: a: Variant ; a := CreateOleObject('ADODB.Connection'); a,Open",,,,"; 那該用那一個物件來計算欄位數ㄋ,如何寫

試看看... 你使用的是Connection要使用a:=CreateOleObject('ADODB.Recordset') a.Fields.Count 發表人 - darnell 於 2003/04/21 17:45:15

試試這樣看:

 
procedure TForm1.Button1Click(Sender: TObject);
var lConDB,lRecSet: Variant;
    lConnectionString:String;
    lSQL:String;
begin
   {DataBase, for example MS-SQL}
   lConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;' 
                      'Persist Security Info=False;Initial    
                       Catalog=TestDB;'  
                      'Data Source=Computer1';

  {Create Connection}
  lConDB := CreateOleObject('ADODB.Connection');
  lConDB.open(lConnectionString);

  {Create Recordset}
  lSQL:='Select * from keyCounter';
  lRecSet:=CreateOleObject('ADODB.RecordSet');
  lRecSet.open(lSQL,lConDB,3);
  Showmessage(inttostr(lRecSet.Fields.count));
  lRecSet.Close; lConDB.Close; 
end;

《觸不到問題人》 來無影，去無踪， 問題總是一羅羅。 發表人 -