The below list of Frequently Asked Questions (FAQs) is constantly updated based on our customer's requests. As with any database interface, NativeDB heavily relies on the quality of the lower database layers it communicates with. We encourage you to re-check this list of known issues if you encounter any problem or have questions not covered in our documentation.

procedure TForm1.AsaDataset1ServerWait(Sender: TObject; var AbortRequest: Boolean);
var
  Msg: TMsg;
begin
  PeekMessage(Msg, 0, 0, 0, PM_REMOVE);
end;

try
  AsaSession1.ClientParams := 'dbn=demo_db';
  AsaSession1.LoginDatabase := ''
  AsaSession1.LoginEngineName := 'demo_db'
  AsaSession1.ServerParams := 'start=dbeng6.exe "C:\Asa6\asademo.db" -n demo_db'
  AsaSession1.ServerType := stServer;
  AsaSession1.Connected := True;
except
  on E: EAsaException do ShowMessage(E.Message);
end;

AsaSession1.LoginEngineName := 'demo_eng'
AsaSession1.ServerParams := 'start=dbeng6.exe -n demo_eng "C:\Asa6\asademo.db" -n demo_db'

try
  AsaSession1.ClientParams := 'agent=client;dbf=MyDatabase2';
  AsaSession1.LoginDatabase := ''
  AsaSession1.LoginEngineName := ''
  AsaSession1.ServerType := stClient;
  AsaSession1.Connected := True;
except
  on E: EAsaException do ShowMessage(E.Message);
end;

try
  AsaSession1.ClientParams := 'dsn=ASA 7.0 Sample';
  AsaSession1.ServerType := stClient;
  AsaSession1.Connected := True;
except
  on E: EAsaException do ShowMessage(E.Message);
end;

AsaSQL1->OpenRead("select * from customer", &Null, 0);

procedure TForm1.AsaDataset1EditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  Confirm: Word;
begin
  Confirm := MessageDlg(E.Message + '. Abort or Retry the operation?',
    mtConfirmation, [mbAbort, mbRetry], 0);
  if Confirm = mrRetry then
    Action := daRetry
  else
    Action := daAbort;
end;

// User defined windows message declared with global scope.
const
  WM_RECONNECT = WM_USER + 1;
.
.

procedure TForm1.WMReconnect(var Msg: TMessage);
begin
  // Toggle the connection property to force a database reconnection.
  AsaSession1.Connected := False;
  AsaSession1.Connected := True;
end;

procedure TForm1.AsaSession1ConnectionDropped(Sender: TObject);
// User defined event handler for the OnConnectionDropped event.
begin
  // Avoid reentrancy by posting (not SendMessage) the user defined
  // windows message to the application message queue.
  PostMessage(Handle, WM_RECONNECT, 0, 0);
end;

ABatch := 'begin' +
          ' declare cust_id int;' +
          ' set cust_id = 101;' +
          ' select * from customer where id=cust_id;' +
          'end';
AsaSQL1.OpenRead(ABatch, Null);

ABatch := 'begin atomic' +
          ' declare cust_id int;' +
          ' declare phone_no char(12);' +
          ' set cust_id = 101;' +
          ' set phone_no = ''3175558414'';' +
          ' update customer set phone=phone_no where id=cust_id;'+
          'end';
AsaSQL1.Execute(ABatch, Null);

procedure TForm1.btnConnectClick(Sender: TObject);
begin
   AsaSession1.ClientParams := 'start=dbclient.exe -x tcpip';
   AsaSession1.LibraryFile := 'dbl40t.dll';
   AsaSession1.LibraryPath := 'C:\Program Files\Sybase\wsql40\nt'
   AsaSession1.ServerType := stClient;
   AsaSession1.LoginEngineName := 'MyServer';
   AsaSession1.LoginDatabase := 'MyDatatbase';
   AsaSession1.LoginUser := 'dba';
   AsaSession1.LoginPassword := 'sql';
   AsaSession1.Connected := True;
end;