1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
   |  
#include <vcl.h>
#pragma hdrstop
 
#include "Database.h"
 
bool __fastcall Database::openMDBConnection(String dbName)
{
   String cs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbName;
   // voir message compilo quand commentaire retiré
   //cnnMDB = new TADOConnection(this);
   Database::cnnMDB->CursorLocation = clUseClient;
   Database::cnnMDB->ConnectionString = cs;
   Database::cnnMDB->LoginPrompt = false;
   try { Database::cnnMDB->Connected = true; }
   catch (EADOError *e) { return false; }
 
   return true;
}
 
bool __fastcall Database::openSQLConnection(bool bForBif, String userName, String pw, String serverNamedPipe, String serverAddress, String serverCustom, String dbName)
{
   String cs = "Provider=SQLOLEDB.1;Password=" + pw + ";Persist Security Info=True;" + "User ID=" + userName + ";Initial Catalog=" + dbName;
 
   if(serverNamedPipe != "")
        cs += ";Data Source=" + serverNamedPipe;
   else
        cs += ";Network Address=" + serverAddress + ";Network Library=dbmssocn";
 
   if(serverCustom != "")
   {
        cs = serverCustom;
        cs = StringReplace(cs, "<PW>", pw, TReplaceFlags());
        cs = StringReplace(cs, "<ID>", userName, TReplaceFlags());
        cs = StringReplace(cs, "<DB>", dbName, TReplaceFlags());
   }
 
   if(bForBif)
   {
        // voir message compilo quand commentaire retiré
        //cnnSQLBIF = new TADOConnection(this);
        Database::cnnSQLBIF->CursorLocation = clUseClient;
        Database::cnnSQLBIF->ConnectionString = cs;
        Database::cnnSQLBIF->LoginPrompt = false;
        try { Database::cnnSQLBIF->Open(userName, pw); }
        catch (EADOError *e) { return false; }
 
        return true;
   }
   else
   {
        // voir message compilo quand commentaire retiré
        //cnnSQLData = new TADOConnection(this);
        Database::cnnSQLData->CursorLocation = clUseClient;
        Database::cnnSQLData->ConnectionString = cs;
        Database::cnnSQLData->LoginPrompt = false;
        try { Database::cnnSQLData->Open(userName, pw); }
        catch (EADOError *e) { return false; }
 
        return true;
   }
}
 
bool __fastcall Database::openSQLConnections(String userName, String pw, String serverNamedPipe, String serverAddress, String serverCustom, String BIFDBName, String DataDBName)
{
   bool rc;
 
   rc = openSQLConnection(true, userName, pw, serverNamedPipe, serverAddress, serverCustom, BIFDBName);
   if(rc)
   {
        rc = openSQLConnection(false, userName, pw, serverNamedPipe, serverAddress, serverCustom, DataDBName);
        if(!rc)
                Database::cnnSQLBIF->Close();
   }
 
   return rc;
}
 
#pragma package(smart_init) | 
Partager