DataSnap und der Zugriff auf Datenbanken

[arnof]

Mal ein Beispiel, das nimmt eine SQL-Anweisung entgegen und gibt ein TDataSet zurück.

Delphi-Quellcode:

function TServerMethods1.GetSQLDataSet(ID,SQL: string): TDataSet;
var t1,t2:TTime;
begin
  AFSQuery1.Close;
  AFSQuery1.SQL.Text:=SQL;
  try
   t1:=now;
   AFSQuery1.Open;
   T2:=now;
   Result := AFSQuery1;
   FM_Haupt.RE_LOG.Lines.Add('ID:'+ID+'/SQL:'+IntToStr(AFSQuery1.RecordCount)+';'+SQL+' '+TimeToStr(now-t1));
  except
   on E: Exception do begin
    FM_Haupt.RE_LOG.Lines.Add('ERROR: '+e.Message);
    FM_Haupt.RE_LOG.Lines.Add('SQL: '+SQL);
    //
    Result := nil;
   end;
  end;
end;

PS: das logt noch etwas mit und macht auch eine Zeitmessung, d.h. alles mit FM_HAUPT kannste entfernen

AFSQuery ist eine beliebige Query Komponente

[Uwe Raabe]

Ich kann dein Projekt hier mangels UniDAC leider nicht öffnen. Daher hier nur eine Trockenübung:

Im Client ist dein DataSet über den lokalen Provider DSProv_Main mit der ServerMethod SQLSrvMethod_Main verbunden. Damit läuft immer alles über die ServerMethod. Das wollen wir hier aber nicht.

Platziere im Server eine weitere Query und einen DataSetProvider und setze dessen DataSet property auf die Query. Gib dem DataSetProvider einen adäquaten Namen. Das mit dem poAllowCommandText hast du ja schon selbst rausgefunden.

Setze bei dem ClientDataSet das Property RemoteServer auf die SQLCOnnection. Dann sollte dir bei ProviderName auch der neue DataSetProvider angezeigt werden. Wähle den aus und dein ClientDataSet ist mehr oder weniger direkt mit der Query verbunden.

Edit: Ich hatte noch vergessen (das kommt davon, wenn man das Projekt nicht öffnet) - du musst im Client noch eine TDSProviderConnection platzieren, die mit der SQLConnection verbunden wird. Diese wird dann im ClientDataSet als RemoteServer ausgewählt.

[RWarnecke]

Hallo Uwe,

bin erst jetzt zum Ausprobieren gekommen. Danke für Deine Trockenübung. Ich habe alles hinbekommen und es funktioniert zumindest in meiner Demo. Jetzt werde ich es versuchen in einem Produktivprogramm umzusetzen.