TccRemoteQuery Beispiel

Owned by Former user (Deleted)
Juni 18, 2018
1 min read

Erläuterung

Einfaches Beispielskript zur Verwendung der TccRemoteQuery Klasse.

Skript

RemoteQuery := TccRemoteQuery.Create;

try
  RemoteQuery.User        := 'Test';
  RemoteQuery.Password    := 'secret';
  RemoteQuery.CreateSession;
  
  try
    RemoteQuery.Connection  := 'EXAMPLE';
    RemoteQuery.CommandText := 'SELECT * FROM myTable';
    RemoteQuery.Open;

    try
      for i:=0 to RemoteQuery.RecordCount-1 do
      begin
        ShowMessage(RemoteQuery.GetFieldValueByName('Name',i));
      end;

    finally
      RemoteQuery.Close;
    end;

  finally
    RemoteQuery.CloseSession;
  end;

finally
  RemoteQuery.Free;
end;