ADO 有沒有提供計算欄位數的功能 |
尚未結案
|
a120803
初階會員 發表:61 回覆:66 積分:25 註冊:2003-03-12 發送簡訊給我 |
|
problemman
一般會員 發表:7 回覆:25 積分:16 註冊:2003-04-11 發送簡訊給我 |
|
a120803
初階會員 發表:61 回覆:66 積分:25 註冊:2003-03-12 發送簡訊給我 |
|
a120803
初階會員 發表:61 回覆:66 積分:25 註冊:2003-03-12 發送簡訊給我 |
|
darnell
版主 發表:25 回覆:103 積分:145 註冊:2003-03-04 發送簡訊給我 |
|
problemman
一般會員 發表:7 回覆:25 積分:16 註冊:2003-04-11 發送簡訊給我 |
試試這樣看:
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;《觸不到問題人》 來無影,去無踪, 問題總是一羅羅。 發表人 - |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |