線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:570
推到 Plurk!
推到 Facebook!

求助,请教各位大哥怎么把 服务器里的数据库都选择出来,&#358

答題得分者是:hagar
lsh998
中階會員


發表:163
回覆:138
積分:60
註冊:2005-01-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-17 10:38:37 IP:219.128.xxx.xxx 未訂閱
数据库 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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-17 13:04:45 IP:202.39.xxx.xxx 未訂閱
加紅色的部份試試:
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-17 13:37:54 IP:219.128.xxx.xxx 未訂閱
谢谢 hagar 大哥 现在可以了! 请 hagar 大哥 再给我看看 那个数据库的问题哦~~ 谢谢!
系統時間:2024-07-05 6:17:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!