各位前輩 以下是我的程式碼請問是錯在哪呢?請指教 ClientDataSet1原本的RemoteServer是DM.SKconnect 我用程式去更改ClientDataSet1的RemoteServer及ProviderName 當程式去執行 if ClientDataSet1.RemoteServer=DM.SkSql2 then這段時 就會出現provider not exported:Dsp_forinsert 請問是什麼原因錯在哪呢     

procedure TAct_3192Form.RadioButton2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Area_Form:=TArea_Form.Create(Self);
  Area_Form.ClientDataSet1.RemoteServer:=DM.SkSql2;
  Area_Form.ClientDataSet1.ProviderName:='Dsp_Forinsert';
  Area_Form.Show;    end;    end.    procedure TArea_Form.FormShow(Sender: TObject);
begin
  if ClientDataSet1.RemoteServer=DM.SKconnect then //原本的RemoteServer
  begin
    ClientDataSet1.Close;
    ClientDataSet1.CommandText:='delete  c_q_area where user_no=' '''' user_name '''';
    ClientDataSet1.Execute;        ClientDataSet1.Close;
    ClientDataSet1.CommandText:='select b.region_id,b.region_name,a.st_no,a.store' 
                              ' from c_region b,c_store a where a.region_id=b.region_id' 
                              ' and a.region_id is not null order by a.region_id';
    ClientDataSet1.Open;
  end;      if ClientDataSet1.RemoteServer=DM.SkSql2 then //程式執行到Execute就發生Error
begin
    ClientDataSet1.Close;
    ClientDataSet1.CommandText:='delete c_q_area where user_no=' '''' user_name '''';
    ClientDataSet1.Execute;
    ClientDataSet1.Close;
    ClientDataSet1.CommandText:='select b.region_id,b.region_name,a.st_no,a.store' 
                              ' from sql1.mt.dbo.c_region b,sql1.mt.dbo.c_store a where a.region_id=b.region_id' 
                              ' and a.region_id is not null order by a.region_id';
    ClientDataSet1.Open;
  end;
end;    end.     

參考一下: http://www.textcontrol.com/tx/newsgroups/borland_public_delphi_database_multi-tier/2002/04/22/

那是你的ClientDataSet 連接不到你的Connection元件 導致provider not exported(找不到Provider Name) 但實際上你的Connection元件其實已經在之前就有設定了 只是與ClientDataSet 的連結突然miss了 你試試看先去把Connection元件的Connected屬性先關閉再開啟 然後執行 應該就可以了 預防萬一可以把Connected屬性先關閉再開啟的動作 寫成程式碼 回首來時路 也無風雨也無晴~~@.@

------
天行健
君子當自強不息~~@.@