RoadMap : PostgreSql bientôt supporté par PureBasic ?

comtois

Responsable Purebasic

Le 18/08/2009 à 5:04

Fred n'a pas tardé, c'est déjà intégré dans la 4.40

- Added UsePostgreSQLDatabase()

Plus d'informations ici

0

0

comtois

Responsable Purebasic

Le 02/09/2009 à 13:24

Et voila mon premier essai avec PostgreSQL , je suis content ça marche

Maintenant je n'ai plus qu'à lire les FAQ et tutoriels sur PostgreSQL.

Code :

Sélectionner tout

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
Procedure CheckDatabaseUpdate(Database, Query$)
   Result = DatabaseUpdate(Database, Query$)
   If Result = 0
      Debug DatabaseError()
   EndIf
   
   ProcedureReturn Result
EndProcedure


UsePostgreSQLDatabase()

; You should have a server running on localhost
;
If OpenDatabase(0, "host=localhost port=5432", "postgres", "postgres")

  CheckDatabaseUpdate(0, "CREATE TABLE food (name CHAR(50), weight INT)")
  CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('apple', '10')")
  CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('pear', '5')")
  CheckDatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES ('banana', '20')")
  
  If DatabaseQuery(0, "SELECT * FROM food WHERE weight > 7")
  
     While NextDatabaseRow(0)
        Debug GetDatabaseString(0, 0)
     Wend
  
     FinishDatabaseQuery(0)
  EndIf
  
Else
  Debug "Can't open database !"
EndIf

0

comtois

Responsable Purebasic

Le 02/09/2009 à 20:05

Et là j'ai testé un des codes de la FAQ, je voulais surtout comparer la syntaxe avec PureBasic.

Tester si un nombre est impair

Code :

Sélectionner tout

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
46
47
Procedure CheckDatabaseUpdate(Database, Query$)
   Result = DatabaseUpdate(Database, Query$)
   If Result = 0
      Debug DatabaseError()
   EndIf
   
   ProcedureReturn Result
EndProcedure
 
 
UsePostgreSQLDatabase()
 
; You should have a server running on localhost
;
If OpenDatabase(0, "host=localhost port=5432", "postgres", "postgres")
 
  ;Valider les 2 lignes qui suivent si vous avez une erreur (pas de langage)
  ;t$ = "CREATE LANGUAGE plpgsql;"
  ;checkDatabaseUpdate(0, t$)
  
  t$ = "CREATE Or REPLACE FUNCTION public.estimpair (nombre integer) RETURNS boolean As "
  t$ + "$body$"
  t$ + "/* Cette fonction retourne true (vrai) si le nombre passé en argument est impair" 
  t$ + "   Exemple :  Select estimpair(12);"
  t$ + "              false"
  t$ + "*/"
  t$ + "BEGIN"
  t$ + " Return nombre % 2!=0;"
  t$ + "End;"
  t$ + "$body$"
  t$ + "LANGUAGE plpgsql;"
  checkDatabaseUpdate(0, t$)
 
 ; à partir d'ici on peut interroger la fonction 
 If DatabaseQuery(0, "Select estimpair(13);")
  
     While NextDatabaseRow(0)
        Debug GetDatabaseString(0, 0)
     Wend
  
     FinishDatabaseQuery(0)
  EndIf

  
Else
  Debug "Can't open database !"
EndIf

0

Progi1984

Membre éprouvé

Le 02/09/2009 à 21:44

Quelques améliorations possibles :

Tu peux remplacer ta procédure par une macro.
Tu as oublié un retour à la ligne aprés "; à partir d'ici on peut interroger la fonction".

Avant de faire le CREATE Or REPLACE FUNCTION, tu devrais faire la vérification que "CREATE LANGUAGE plpgsql;" est fonctionnelle

PS: tu n'es pas obligé de faire une fonction pgsql pour que ca marche

0

comtois

Responsable Purebasic

Le 02/09/2009 à 21:52

Je n'ai pas encore lu les tutoriels sur PostgreSQL, je voulais d'abord vérifier que ça fonctionnait bien avec la 4.40

Je me suis contenté de saisir un code que je ne comprends pas, du moins pas dans le détail , ça me permet de savoir que ça existe, reste à étudier les subtilités.

0

comtois

Responsable Purebasic

Le 16/09/2009 à 13:12

Avec la doc c'est mieux, voici enfin la syntaxe pour ouvrir une base PostgreSQL:

A PostgreSQL database has to be connected using OpenDatabase() before using any other database functions. PostgresSQL specific parameters can be passed in the 'DatabaseName$' parameter of OpenDatabase():
- host: Name of host to connect to.
- hostaddr: Numeric IP address of host to connect to.
- port: Port number to connect to at the server host.
- dbname: The database name. Defaults to be the same as the user name.
- connect_timeout: Maximum wait for connection, in seconds (write as a decimal integer string).
Zero or not specified means wait indefinitely.
It is not recommended to use a timeout of less than 2 seconds.

la version française de la doc n'est pas encore disponible.

0

Identifiez-vous

Créer un compte

RoadMap : PostgreSql bientôt supporté par PureBasic ?

Identifiant
Mot de passe

Mot de passe oublié ?