
[SOCPB 2006] Projet # 1 : Rendre facile la gestion de MySQL
-
- Messages : 1202
- Inscription : sam. 31/déc./2005 23:52
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Deux nouvelles BD :
MaxDB : http://www.framasoft.net/article1591.html
MyLittleBase : http://www.framasoft.net/article1519.html
MaxDB : http://www.framasoft.net/article1591.html
MyLittleBase : http://www.framasoft.net/article1519.html
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
je viens d'apprendre aujourd'hui au taf que je serais encore plus débordé qu'à l'accoutumée dès aujourd'hui jusqu a mes vacances. Ca va etre tendu. C'est pas un métier facile programmeur
@progi
ce qui serait pas mal ce serait de séparer les bdd commerciales et les bdd gratuites dans notre belle liste qui s'étoffe.
Tout simplement parceque seules les bdd gratuites seront dans un premier temps supportées. Enfin c'est ce qui parait le plus raisonnable (?)
sinon c'est sûr que pour ce weekend vous aurez le 1er subsystem fonctionnel (mysql). franchement j'en ai soupé avec tailbite avant d'avoir un truc qui tourne mais j'ai à nouveau ma trame de base qui compile, ouf !!!


@progi
ce qui serait pas mal ce serait de séparer les bdd commerciales et les bdd gratuites dans notre belle liste qui s'étoffe.
Tout simplement parceque seules les bdd gratuites seront dans un premier temps supportées. Enfin c'est ce qui parait le plus raisonnable (?)
sinon c'est sûr que pour ce weekend vous aurez le 1er subsystem fonctionnel (mysql). franchement j'en ai soupé avec tailbite avant d'avoir un truc qui tourne mais j'ai à nouveau ma trame de base qui compile, ouf !!!
-
- Messages : 1202
- Inscription : sam. 31/déc./2005 23:52
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Recu, m'en occupe !
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
C'est fait !
+ Ajout de OpenBase
+ Ajout de OpenBase
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
-
- Messages : 1202
- Inscription : sam. 31/déc./2005 23:52
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
News au 10 Juillet ?
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
je me met çà de coté pour pas l'oublier (création/suppression dynamique de connexions ODBC) :
Code : Tout sélectionner
; flype, juil 2006
Enumeration 1
#ODBC_ADD_DSN ; Ajoute une source de données utilisateur.
#ODBC_CONFIG_DSN ; Configure/Modifie une source de données utilisateur existante.
#ODBC_REMOVE_DSN ; Supprime une source de données utilisateur existante.
#ODBC_ADD_SYS_DSN ; Ajoute une source de données système.
#ODBC_CONFIG_SYS_DSN ; Configure/Modifie une source de données système existante.
#ODBC_REMOVE_SYS_DSN ; Supprime une source de données système existante.
#ODBC_REMOVE_DEFAULT_DSN ; Supprime la source de données définies par défaut.
EndEnumeration
#ODBC_DRIVER_MSACCESS = "Microsoft Access Driver (*.mdb)"
Procedure.l MSAccess_AddConnection(name.s, database.s, hwnd.l = #Null)
Protected attrs.s
attrs + "UID=" + ";"
attrs + "PWD=" + ";"
attrs + "DSN=" + name + ";"
attrs + "DBQ=" + database + ";"
attrs + "FIL=" + "MS Access;"
attrs + "Driver=" + "ODBCJT32.DLL;"
attrs + "DefaultDir=" + GetPathPart(database) + ";"
attrs + "Description=" + FormatDate("Créé le %dd-%mm-%yyyy, %hh:%ii:%ss;", Date())
ReplaceString(attrs, ";", #NULL$, 2)
ProcedureReturn SQLConfigDataSource_(hWnd, #ODBC_ADD_DSN, #ODBC_DRIVER_MSACCESS, attrs)
EndProcedure
Procedure.l MSAccess_RemoveConnection(name.s, hwnd.l = #Null)
ProcedureReturn SQLConfigDataSource_(hWnd, #ODBC_REMOVE_DSN, #ODBC_DRIVER_MSACCESS, "DSN="+name)
EndProcedure
If InitDatabase()
DSN.s = "pbtest"
If MSAccess_AddConnection(DSN, "c:\test.mdb")
If OpenDatabase(0, DSN, "", "")
If DatabaseQuery(0, "SELECT NOW")
If NextDatabaseRow(0)
Debug GetDatabaseString(0, 0)
EndIf
EndIf
If DatabaseQuery(0, "SELECT * FROM personne")
While NextDatabaseRow(0)
Debug GetDatabaseString(0, 0)
Debug GetDatabaseString(0, 1)
Debug GetDatabaseString(0, 2)
Wend
EndIf
EndIf
MSAccess_RemoveConnection(DSN)
EndIf
EndIf
Dernière modification par Flype le sam. 15/juil./2006 6:36, modifié 3 fois.