Creer une nouvelle référence pour le driver ODBC [Résolu]

[tripper.dim]

Salut à tous,

Je travail avec Firebird comme base de données et avec Windev 8 pour la programmation, comme dans Windev il n'y à pas d'accès natif vers Firebird nous utilisons le driver ODBC ( qui fonctionne très très bien), mon problème c'est de de pouvoir définir via un script ou un batch ou autre... Une nouvelle connexion ODBC par les drivers de Firebird et de référencer n'importe qu'elle base de donnée.

Est-ce possible, si oui comment ?

D'avance merci pour votre aide.

[djeant]

Bonjour,

Je suppose que le driver ODBC est déjà installé.
Tu peux creer une nouvelle référence en utilisant un script qui met à jour la base de registre.
Par exemple, pour creer une connection ODBC TEST_FB :
Tu peux utiliser un script pour la base de registre (.reg)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Windows Registry Editor Version 5.00
 
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC DATA Sources]
"TEST_FB"="Firebird/InterBase(r) driver"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\TEST_FB]
"Driver"="C:\\WINDOWS\\System32\\OdbcJdbc.dll"
"Dbname"="d:\\test.fdb"
"Client"="D:\\Firebird_1_5\\bin\\fbclient.dll"
"User"="SYSDBA"
"Role"=""
"CharacterSet"="NONE"
"JdbcDriver"="IscDbc"
"ReadOnly"="N"
"NoWait"="N"
"Dialect"="3"
"QuotedIdentifier"="Y"
"SensitiveIdentifier"="N"
"AutoQuotedIdentifier"="N"
"Password"="DKEBFJENHFCOBHGHLAIMNAAFICELEAEGDNMFNOGALAMHBBGCHFADNKCBPPGMANOGIEKENIOPHDIPBIECPLLLCBIKEJKMJLPLIB"

Le plus simple étant de sauvegarder la description dans la base de registre d'une connection existante. Puis de la modifier en fonction de tes besoins.

[devoberlechner]

La solution la plus élégante est le langage PERL:

Télécharger le run Time 5.8 sur www.activestate.com
ensuite essayer un script PERL ".pl" qui ressemplerait à celui du dessous :
C'est un exemple pour ORACLE mais il marche pour tous les types ODBC

Code :

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
USE Win32;
USE Win32::ODBC;
 
 print "Sys_ODBC_Ciril_Creation.pl : Creation d'un DSN pour les applications CIRIL\n";
 print "--------------------------------------------------------------------------\n";
 
 
my $Dsn         = "NOM_DSN"; 
my $Serveur     = "Instance de la base"; 
my $Description = "Connexion aux applications CIRIL"; 
my $ODBCDriver  = "Microsoft ODBC pour Oracle"; 
my $ODBCDriverUk  = "Microsoft ODBC for Oracle"; 
 
IF (%DSNs = Win32::ODBC::DataSources()){
   foreach $Temp (KEYS(%DSNs)){
        IF ( $Temp eq $Dsn) {
           print ".le DSN : \"$Dsn\" vers \"$ODBCDriver\" existe deja !\n";       
           exit 0;
        }
   }
}
 
print ".creation d'un DSN : \"$Dsn\" vers \"$ODBCDriver\"";
 
IF ( Win32::ODBC::ConfigDSN(ODBC_ADD_SYS_DSN, $ODBCDriver,
                            "DSN=$Dsn", "Description=$Description", 
                            "Server=$Serveur") ) {
   print " : OK\n"; 
   exit 0;
} else {
   print " :\n\tCREATION REFUSEE AVEC LE DRIVER ORACLE FRANCAIS INEXISTANT\n";
   IF ( Win32::ODBC::ConfigDSN(ODBC_ADD_SYS_DSN, $ODBCDriverUk,
                            "DSN=$Dsn", "Description=$Description", 
                            "Server=$Serveur") ) {
       print "\tOK en Anglais\n"; 
       exit 0;
   }   
   exit 1;
}

[img] [/img]

[djeant]

Très élégant.... Surtout que j'adore Perl.
Mais elle me semble un peu complex à implémenter ....