求助,请教各位大哥怎么把 服务器里的数据库都选择出来,Ŧ |
答題得分者是:hagar
|
lsh998
中階會員 發表:163 回覆:138 積分:60 註冊:2005-01-07 發送簡訊給我 |
数据库 SQL SERVER 2000 请教:
假设有数据库实列,aa\server1 ,aa\server2 aa\server1 里有数据库一些数据库,系统数据库 和 mydatabase1,mydatabase2 我怎么能把 库实列,aa\server1 系统数据库 和 mydatabase1,mydatabase2 选择出来呢? 谢谢! 还请教各位大哥另外一个问题:
procedure TForm1.FormCreate(Sender: TObject); var backss:tstrings; //备份设备 begin myinifile:=tinifile.Create('f:\zhouhui.ini'); backss:=TStringList.Create; myinifile.ReadSections(backss); combobox1.Text:=backss[0]; end;当我的 zhouhui.ini 中有记录时,是没有错误的,当 zhouhui.ini 中 没有一条记录时,就出现下面的错误 list index out of bounds(0) 是 combobox1.Text:=backss[0]; 中 的 backss[0] 有错误 请教各位大哥,能不能先判断 呢? 谢谢! |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
加紅色的部份試試:
procedure TForm1.FormCreate(Sender: TObject); var backss: TStrings; //?份?? begin myinifile := TInifile.Create('f:\zhouhui.ini'); backss := TStringList.Create; myinifile.ReadSections(backss); if backss.Count > 0 then Combobox1.Text := backss[0]; end;-- hagar. |
lsh998
中階會員 發表:163 回覆:138 積分:60 註冊:2005-01-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |