動態更改BdpConnection的連線字串呢?? |
尚未結案
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
|
shieh2700
高階會員 發表:0 回覆:127 積分:100 註冊:2002-06-13 發送簡訊給我 |
下列程式為切換 ConnectionString 的範例, 無發生錯誤. 不知你發生錯誤的程式為何, 錯誤訊息是什麼?
procedure TWebForm1.LinkButton3_Click(sender: System.Object; e: System.EventArgs); const SQL : string = 'SELECT * FROM ff'; cnStr : string = 'assembly=Borland.Data.Msacc, ' 'Version=1.5.0.0, Culture=neutral, ' 'PublicKeyToken=91d62ebb5b0d1b1b;' 'vendorclient=msjet40.dll;' 'database=##DBPATH##;' 'provider=MSAccess;' 'username=' 'admin;password='; var cn : Borland.Data.Provider.BdpConnection; cm : Borland.Data.Provider.BdpCommand; dr : Borland.Data.Provider.BdpDataReader; s : string; begin cn := Borland.Data.Provider.BdpConnection.Create( cnStr.Replace('##DBPATH##', 'C:\DB1.MDB') ); cn.Open; cm := Borland.Data.Provider.BdpCommand.Create( SQL, cn ); dr := cm.ExecuteReader; while ( dr.Read ) do s := s dr['f1'].ToString ', ' dr['f2'].ToString '|'; dr.Close; cm.Close; cn.Close; cn.ConnectionString := cnStr.Replace('##DBPATH##', 'C:\DB2.MDB'); cn.Open; cm.Connection := cn; dr := cm.ExecuteReader; while ( dr.Read ) do s := s dr['f1'].ToString ', ' dr['f2'].ToString '|'; Label1.Text := s; dr.Close; dr.Free; cm.Close; cm.Free; cn.Close; cn.Free; end;發表人 - shieh2700 於 2004/05/11 23:28:27 |
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |