Composant mysql avec fichier d aide [ancienne version]

Soyez le premier à donner votre avis sur cette source.

Vue 12 544 fois - Téléchargée 1 884 fois

Description

mercredi 25 decembre : Nouvelle version du composant disponible, cf :
http://www.delphifr.com/article.aspx?Val=2153

ici j ai mis dans le zip du projet l ancienne et la nouvelle version au cas ou.
---------------------------------------------------------------------------------------

lundi 25 novembre : Mise à jour de l'aide avec rajout d'exemples.
-------------------------------------
Vendredi 8 novembre :
Ajout de la procedure : SaveBaseToFile afin de sauvegarder votre base de données avec comme options : drop table, delete from, append to file, definition des tables.
Pour la definition des tables libmysql donne un type BLOB pour les type BLOB et TEXT, donc par defaut tout est mis en TEXT dans les declarations de tables. De plus les type ENUM et SET ne sont pas pris correctement et sont mis en TEXT.

Ajout du debut du fichier d aide et correction de defaut de retour de fonctions. Si quelques uns d'entres-vous etes interessé ou utilisé ce composant et désiré l aide avec des exmples rapidement envoyez moi des messages, ca me motivera
-----------------------------------------------------------------
Composant MySQL permettant de se connecter à une base de données MySQL et d'executer des requetes facilement.

Installer le composant et ajoutez aux variables d'environement des librairies le repertoire ou se trouve les sources du composant.

Version utilisant mysql.pas

Il est necessaire d'avoir LibMysql.dll :
http://www.fichtner.net/delphi/mysql.delphi.phtml?download=libmySQL.dll-3.23.49.zip

Conclusion :


Ce composant n'est pas encore documenté du faite qu il reprend en partie les specifications de mysql.pas, des fonctions y ont étaient ajouté tel que :
procedure LoadFromIni (Filename : String); //charge la config a partir d'un fichier INI
procedure SaveToIni (Filename : String); //sauve la config sur un fichier INI

function add_slashes (mot : string) : string; // ajoute des slashes dans une string,ceci est utile lorsque dans la requete on desire faire : WHERE mot='c\'est un mot', la procedure rajoute un \ dans la chaine "c'est un mot"

charge les bases de donnees du serveur sur lequel on est connecté
procedure ListDBsInListBox (ListBox : TListBox);

charge les table de la base de donnees selectionnee
procedure ListTablesInListBox (ListBox : TListBox;Database : string);

charge les champs de la table voulue
procedure ListFieldsInListBox (ListBox : TListBox;Table : string);

Liste un resultat de type PMYSQL_RES (pouvant etre fournit par la fonction Query()) dans une listbox
procedure ListInListBox (ListBox : TListBox;Result: PMYSQL_RES);

Liste le resultat de la requete passé en parametre dans une listbox
function QueryIntoListBox (Querys : string;ListBox : TListBox) : boolean;

Liste le resultat de la requete passé en parametre dans une combobox
function QueryIntoComboBox (Querys : string;ComboBox : TComboBox) : boolean;

resort le premier resultat de la requete passé en parametre dans un string
function QueryFirstResult (Querys : string;var FirstRowZero : string) : boolean;

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
20
Date d'inscription
samedi 30 août 2003
Statut
Membre
Dernière intervention
18 février 2008

Comment fait_on pour gérer des champs BLOB :
- A savoir, enregistrer un BLOB (style image jpeg) dans un champ BLOB
- Lecture du BLOB pour le mettre dans un TImage

Merci d'avance pour vos réponses

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.