SQLite Explorer
Re: SQLite Explorer
Beau boulot Falsam, merci de partager ton travail.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Version de PB : 6.00LTS - 64 bits
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: SQLite Explorer
Nouvelle version de SQLite Explorer.
■ Ajout de la visualisation d'une ligne de résultat en mode fiche.
- Sélectionner la ligne à visualiser et appuyer sur la touche Entrée.
■ Possibilité de lire des données échapées avec la fonction EscapeString()
- Cocher la case Use UnescapeString avant de lancer une requête SQL avec la touche F5
Mise à jour du code dans le premier message.
■ Ajout de la visualisation d'une ligne de résultat en mode fiche.
- Sélectionner la ligne à visualiser et appuyer sur la touche Entrée.
■ Possibilité de lire des données échapées avec la fonction EscapeString()
- Cocher la case Use UnescapeString avant de lancer une requête SQL avec la touche F5
Mise à jour du code dans le premier message.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Re: SQLite Explorer
J'aime bien ce petit outil rapide pour vérifier l'état des bases en cours de développements.
Mais je trouvais dommage de ne pas pouvoir ouvrir une base simplement glissant un fichier sur l'icône de raccourci ou sur l'EXE
Alors je propose ce petit ajout (après la ligne 130)
Ce n'est peut-être pas le meilleur endroit. À toi de modifier.
Mais je trouvais dommage de ne pas pouvoir ouvrir une base simplement glissant un fichier sur l'icône de raccourci ou sur l'EXE
Alors je propose ce petit ajout (après la ligne 130)
Code : Tout sélectionner
If CountProgramParameters()
Protected DataBase_Launch$ = ProgramParameter()
If OpenDatabase(#DataBase, DataBase_Launch$, "","")
SetGadgetText(#Database, DataBase_Launch$)
DataBaseListTable()
Else
MessageRequester("Erreur", "Problème pour ouvrir la base de données: " + #CRLF$ + DataBase_Launch$)
EndIf
EndIf
;Evenements