Clientdataset zwischen zwei Datenbankservern wechseln

[Rainer Wolff]

Hallo,

ich habe ganz klassisch TSQLConnection, TSQLQuery, Datasetprovider, Clientdataset in meinem Projekt und möchte zwischen zwei verschiedenen Servern umschalten (einmal remote, einmal lokaler Server). Warum geht das nur, wenn ich die SQLConnection vorher schliesse? Sobald ich connected:=False auskommentiere, wird das Clientdataset verbunden und bleibt dann stur auf der erstaufgerufenen Datenmenge stehen.

Code:

procedure TForm8.Button1Click(Sender: TObject);
begin
  CDSStunden.Close;
  if Server then
  begin
    Remoteserver.Connected:=False;
    Localhost.Connected:=False;
    SQLQStunden.SQLConnection:=Remoteserver;
  end
  else
  begin
    Remoteserver.Connected:=False;
    Localhost.Connected:=False;
    SQLQStunden.SQLConnection:=Localhost;
  end;
  CDSStunden.Open;
  Server:=not server;
  Caption:=IntToStr(StrToInt(caption)+1);
end;