Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
program connexion_consol_bdd;
 
    {$mode objfpc}{$H+}
 
uses Classes, SysUtils, IBConnection, SQLDBLib, SQLDB, DB;
var
    bdd           : TIBConnection;
    lib_bdd       : TSQLDBLibraryLoader;
    SQLQuery      : TSQLQuery;
    SQLTransaction: TSQLTransaction;
 
begin
    bdd           :=TIBConnection.Create(nil);
    lib_bdd       :=TSQLDBLibraryLoader.Create(nil);
    SQLQuery      :=TSQLQuery.Create(nil);
    SQLTransaction:=TSQLTransaction.Create(nil);
 
    bdd.databasename:= '/exem.fdb';
    bdd.hostname    := '192.168.56.7';
    bdd.port        :=  3050;
    bdd.username    := 'sysdba';
    bdd.password    := '8246951,;:!';
    bdd.Transaction := SQLTransaction;
 
    lib_bdd.LibraryName:='Firebird';
    lib_bdd.LibraryName:='/opt/firebird/lib/libfbclient.so.4.0.3';
 
    SQLQuery.database:= bdd;
    SQLQuery.sql.add(' select * from liste ');
    SQLQuery.Transaction := SQLTransaction;
 
    SQLTransaction.database:=bdd;
 
   lib_bdd.Enabled:=true;
   bdd.Connected:=true;
   SQLQuery.Active:=true;
   SQLTransaction.Active:=true;
   write(SQLQuery.FieldByName('nom').AsString);
 
   readln;
 
end.
===========================================
An unhandled exception occurred at $000000000048AE7A:
EDatabaseError: : Invalid connection type : ""
$000000000048AE7A
$000000000047FA85
===========================================
la compilation passe mais lors de l'éxecution, la base de données n'est pas reconnue pourquoi? s'il vous plaît.