Discussion :

[OR34a]

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 :

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
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.

[tourlourou]

Je ne sais pas comment Zeos s'intercale, mais SQLite crée une base quand elle n'existe pas (utilité du Properties.Add ?)

Inutilité de cette affectation de soi-même (ne devrait pas changer grand'chose !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Zconnec_Stocks do
 Begin
  Protocol:=  ZConnec_Stocks.Protocol; // choix du type Sqlite-3 (dans Protocol)

Quelle est la valeur du protocol ?

Le chemin de la base est-il valide ? Pas de répertoire protégé en accès ?

Ajoute quelques ShowMessage ou des contrôles des valeurs en pas-à-pas.

[OR34a]

Bonjour,

En réponse à vos questions sur mon message et la question posée :

- Le protocole utilisé est SQLITE-3 . Je précise que j'ai testé la syntaxe Protocol := 'Sqlite-3' ;
- Le chemin de la table est parfaitement valide. L'instruction show message l'indique bien.
Je précise que mon intention est de créer une base puis ensuite d'y ajouter automatiquement une table qui servirait de container pour les données concernées par le reste du code à développer. L'utilisateur final aura la possibilité de choisir le chemin et le nom de la base, le reste étant géré par du code .
Expl :

créer sur D:/mes_apli la base toto.sqlite qui générera la table tata puis ......
ou créer sur D:/mesapli2 ma base toto2.sqlite qui générera la table tata puis....
Le tout simplement dans une fenêtre formulaire de l'application tutu.exe conçue à l'aide de Lazarus.

Espérant avoir répondu à vos questions et en vous remerciant de vous intéresser à mon problème.

Cordialement

R.O.

[Jon Shannow]

Je suis pas sûr, mais d'après le fonctionnement de SQLITE, tu n'as pas besoin (mais je ne sais pas si ça entraine un problème) de préciser le hostname, ni même d'indiquer quoique ce soit dans properties.

Connecter une base SQLITE à un fichier TOTO.SQLITE qui n'existe pas, créé automatiquement le fichier TOTO.SQLITE.

JS