Discussion :

[joreveur]

Bonjour
j'ai une base SQLite avec plusieurs tables que je peux mettre à jour avec l'extension de Firefox SQLite Manager.
Est-t-il possible d'accéder à ces tables avec FreePascal (sans passer par Lazarus) et éventuellement faire des requêtes SQL ?

Pour Info je suis sous Linux

Bien à vous

[yamer]

Normalement, oui c'est possible. Les composants d'accès aux bases de données sont fournis avec FreePascal et donc utilisables sans Lazarus (à l'exception des composants visuels bien sûr). En revanche tu vas devoir créer par le code tous les composants que tu déposes simplement sur une fiche ou un datamodule habituellement. Une autre solution qui peut, peut-être, marcher est de créer une application Lazarus classique avec le widgetset nogui (s'il existe toujours).

[joreveur]

Bonjour,

sais-tu si il y a de la documentation freepascal pour ce sujet ?

Bien à toi

[yamer]

Je n'en connais pas. Mais il y a quelques exemples dans le dossier "packages/fcl-db/src/sqlite" des sources de FreePascal.

[joreveur]

Bonjour
en fouillant un peu sur le net j'ai trouvé un peu de code et en l'adaptant - je ne maitrise pas tout - j'arrive à mettre à jour une petite base de données Sqlite
base dont j'ai créé la structure à la main
voila le code

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
43
44
45
program Sqliteajout;
 
uses
	db, 	sqlite3ds,  SysUtils;
var
	SqLiteDemo: TSQLite3Dataset;
	b_prenom,b_nom,b_age: TStringField;
	Prenom,Nom,Age,Rep:string;
 
begin
repeat
	SqLiteDemo := TSqlite3Dataset.Create(nil);
	 Try
	 with SqLiteDemo do
	 begin
		FileName := 'essai01.sqlite';
		TableName := 'clients';
		PrimaryKey := 'Id';
 
		Sql := 'select Id,  nom, prenom, age from clients limit 1';
		Open;
 
		b_prenom := TStringField(Fields[1]);
		b_nom := TStringField(Fields[2]);
		b_age := TStringField(Fields[3]);
 
		write('Prénom ? ');	readln(Prenom);  
		write('Nom ? ');readln(Nom);  
		write('age ? ');readln(Age);  
 
		Append;
			b_nom.Value := Nom;
			b_prenom.Value := Prenom;
			b_age.Value := age;
			ApplyUpdates;
			Close;
	 end;
	finally
	SqLiteDemo.Free;
	end;
 
	Write('Entrée pour nouvel enregistrement ou * pour quitter ');
	Readln(Rep);
until Rep='*'
end.

et voici le résultat après plusieurs saisies



Merci de vos remarques.

Bien Cordialement

[ptitjoz]

il faut auparavant installer sudo apt-get install libsqlite3-0-dev