Sqlite - Connexion impossible
Bonjour,
Tout en remerciant ceux qui ont bien voulu accompagner mes premiers pas avec Lazarus, je pose une nouvelle question de néophite :
Je tente de créer une base de données par code et ai, pour cela, créé une nouvelle application avec pour l'instant un Zconnection (ZConnec_Stocks) et un TDirectoryEdit (Dir_RepBase) et un TEdit (File_Nombase) et le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| procedure TForm1.Bt_NouvBaseClick(Sender: TObject);
Var DNombase : string ;
begin
// création du chemin et du nom de la baseSQLITE container de l'application
DNombase := Dir_RepBase.text + '\' + File_NomBase.text + '.sqlite' ;
With Zconnec_Stocks do
Begin
Protocol:= ZConnec_Stocks.Protocol; // choix du type Sqlite-3 (dans Protocol)
Database := DNombase ;
Hostname := 'localhost' ;
Properties.Add('CreateNewDatabase=CREATE DATABASE ' + DNombase );
//ZConnec_Stocks.Connected := True ;
//Connect ;
End;
//'(Produits varchar(15), designation varchar(40),
// Categorie varchar(2), Prix NUMERIC, Quantite INTEGER)';
Showmessage ('Base ' + Dnombase + ' Créée !') ;
end; |
Le projet est installé avec succès mais les instructions de type "Connect" en remarque affolent le débogueur. Si je les passe en remarque le message d'avertissement final s'affiche convenablement.
Question Qu'est-ce qui empêche la base de se créer normalement ?
Merci d'avance.
R.O.
