BrainPatchworkDX.com

Nexus Server Side Connector Code:

Code: Select all

var DB: TDatabase;
begin
  DB := TDatabase.Create('Access', 'database.mdb'); <--- The Magic that makes it seamless!
  DB.OpenTable('Customers');
  DB.Seek(CustomerID);
  ShowName(DB.GetField('Name'));
end;

{A remote tier} Next Client Side Connector Code:

Code: Select all

var Client: TNexusClient;
begin
  Client := TNexusClient.Create('localhost', 2874);
  Client.Login('user', 'password');
  Client.OpenDataSet('SELECT * FROM Orders');
  while not Client.EOF do
  begin
    ProcessOrder(Client.GetField('OrderID'));
    Client.Next;
  end;
end;