Devart Forums

Code: Select all

#include <vcl.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused

#include <tchar.h>
#include <stdio.h>
#include "DBAccess.hpp"
#include "MemDS.hpp"
#pragma link "ibprovider180.lib"
#pragma link "InterBaseUniProvider"

#include "Uni.hpp"
#include "UniProvider.hpp"

int _tmain(int argc, _TCHAR* argv[])
{

   TUniTransaction *UniTransaction = new TUniTransaction(NULL);

   TUniConnection *UniConnection = new TUniConnection(NULL);
   try
   {
	  UniConnection->ProviderName = "InterBase";
	  UniConnection->Server = "localhost";
	  UniConnection->Port = 3050;
	  UniConnection->Database = "d:\\vik\\empty.fdb";
	  UniConnection->Username = "sysdba";
	  UniConnection->Password = "masterkey";
	  UniConnection->DefaultTransaction = UniTransaction;
	  UniConnection->Options->AllowImplicitConnect = false;
	  UniConnection->Connected = false;

	  TUniQuery  *UniQuery = new TUniQuery(NULL);
	  try
	  {
		 UniQuery->Connection = UniConnection;
		 UniQuery->SQL->Text = "SELECT * FROM DEPT";
		 UniQuery->Open();
	  }
	  __finally
	  {
		 UniQuery->Free();
	  }
   }
   __finally
   {
	  UniConnection->Free();
	  UniTransaction->Free();
   }
   return 0;
}