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.la compilation passe mais lors de l'éxecution, la base de données n'est pas reconnue pourquoi? s'il vous plaît.===========================================
An unhandled exception occurred at $000000000048AE7A:
EDatabaseError: : Invalid connection type : ""
$000000000048AE7A
$000000000047FA85
===========================================
Partager