Connexion à la base de données en console avec SQLDB
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
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. |
Citation:
===========================================
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.
