Databases/fr: what changed
Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | Cette page est une introduction sur le sujet '[[Lazarus Faq/fr|Lazarus]] et les **bases de données**'. La table suivante donne une vue d'ensemble des bases de données supportées. | |
| 2 | 2 | ||
| 3 | 3 | Cela ne concerne que les composants de base de données pour lesquels les bibliothèques clientes sont installées (si la base de données nécessite des bibliothèques clientes), sinon Lazarus pourrait échouer à démarrer par manque de fichier. Puis Lazarus doit être réinstallé car la désinstallation du composant n'est pas possible. | |
| 4 | 4 | ||
| 5 | 5 | # Base de données supportées | |
| 6 | 6 | ||
| 7 | 7 | | Base de données | Nom du paquet | Nécessite une bibliothèque client ? | Nécessite un serveur ? | Versions supportées | Plates-formes supportées | | |
| 8 | 8 | |----|----|----|----|----|----| | |
| 9 | 9 | | [**Advantage**](http://www.advantagedatabase.com/) | TAdsDataSet | Oui | Non | 10.1 et supérieur | i386: Linux, Win32 | | |
| 10 | 10 | | **DBase** | [[Lazarus Tdbf Tutorial/fr|DBFLaz]] | Non | Non | III+, IV, VII | Toutes | | |
| 11 | 11 | | **En mémoire** | [[How to write in-memory database applications in Lazarus/FPC/fr|memds]] | Non | Non | \- | Toutes | | |
| 12 | 12 | | **En mémoire** | [[How to write in-memory database applications in Lazarus/FPC/fr|bufdataset]] | Non | Non | \- | Toutes | | |
| 13 | 13 | | [**Firebird**](http://www.firebirdsql.org/) | [[Firebird/fr|SQLdb]] | Oui | Selon <sup>1</sup> | 1 - 2.5 | i386: Linux, Win32 | | |
| 14 | 14 | | **(Visual) FoxPro** | [[Lazarus Tdbf Tutorial/fr|DBFLaz]] | Non | Non | 2.0, 2.5, 3.0 (pas complétement) | Toutes | | |
| 15 | 15 | | [**Interbase**](http://www.embarcadero.com/products/interbase-smp) | [[Firebird/fr|SQLdb]] | Oui | Oui | 4 - 6 | i386: Linux, Win32 | | |
| 16 | 16 | | [**Microsoft SQL Server**](http://www.microsoft.com/sqlserver/) | [[mssqlconn/fr|SQLdb]] | Oui | Oui | 6- | FPC 2.6.2+. Linux, macOS, Win32, probablement *BSD, probablement Solaris<sup>2</sup> | | |
| 17 | 17 | | [**MySQL**](http://www.mysql.com/) | [[MySQLDatabases/fr|SQLdb]] | Oui | Oui | 3.0 - 5.5 | i386: Linux, Win32 | | |
| 18 | 18 | | **ODBC** | [[ODBCConn/fr|SQLdb]] | Oui | Selon | 3.x <sup>3</sup> | i386: Linux, Win32 | | |
| 19 | 19 | | [**Oracle**](http://www.oracle.com/) | [[Oracle/fr|SQLdb]] | Oui | Oui | \- | \- | | |
| 20 | 20 | | **Paradox** | [[TParadoxDataSet/fr|TParadoxDataSet]] | Non | Non | jusqu'à la version de table 7 (et au dessus ??) | Toutes | | |
| 21 | 21 | | **Paradox** | [[TParadox/fr|TParadox]] | Oui | Non | | Win32 | | |
| 22 | 22 | | [**PostgreSQL**](http://www.postgresql.org/) | [[postgres/fr|SQLdb]] | Oui | Oui | 6.6 - 8 | i386: Linux, Win32 | | |
| 23 | 23 | | [**Sybase Adaptive Server Enterprise (ASE)**](http://www.sybase.com/products/databasemanagement/adaptiveserverenterprise) | [[mssqlconn/fr|SQLdb]] | Oui | Oui | Certain | Linux, macOS, Win32, probablement *BSD, probablement Solaris<sup>2</sup> | | |
| 24 | 24 | | [**SQLite**](http://www.sqlite.org/) | [[SQLite/fr|SQLdb]] | Oui | Non | sqlite3 | Toutes | | |
| 25 | 25 | | **Text files** | sdf | Non | Non | \- | Toutes | | |
| 26 | 26 | ||
| 27 | 27 | [[Databases|Note (1):]] Vous pouvez utiliser une version embarquée de Firebird sous Windows et Linux (potentiellement sous Mac OS X aussi), ou vous pouvez vous connecter à un serveur Firebird s'exécutant sous Windows/Unix/macOS/FreeBSD/ou autre plate-forme supportée par Firebird. | |
| 28 | 28 | ||
| 29 | 29 | [[Databases|Note (2):]] Ces connecteurs utilisent la bibliothèque FreeTDS comme un pilote. La documentation de FreeTDS indique qu'elle se construirait au moins sur ces paltes-formes. Les versions pour Windows x86 et x64 peuvent être téléchargées depuis p.ex. [1](ftp://ftp.freepascal.org/fpc/contrib/windows/dblib_x32.zip) et <ftp://ftp.freepascal.org/fpc/contrib/windows/dblib_x64.zip>\]. | |
| 30 | 30 | ||
| 31 | 31 | [[Databases|Note (3):]] Ce numéro de version se réfère au standard ODBC, et non pas au numéro de version d'un pilote ou d'un gestionnaire de pilote. Il y a des pilotes ODBC 3.x pour la plupart des SGBDRs. | |
| 32 | 32 | ||
| 33 | 33 | # Les liaisons aux clients de base de données | |
| 34 | 34 | ||
| 35 | 35 | Si vous voulez utiliser une des bases de données qui demande des bibliothèques clientes, celles-ci doivent être installées. Non seulement sur l'ordinateur avec lequel vous développez mais aussi sur celui où l'application devra tourner. Remarquez que certaines bases de données (en particulier MySQL) tourne seulement si les liaisons qui sont compilées dans l'application sont de la même version que celles des bibliothèques installées. Vous pouvez trouver comment installer ces bibliothèques (fichiers .so sur les systèmes *nix et des .dll sur Windows) dans le site web des développeurs de la base de données. Les unités de liaison peuvent être trouvées dans le dossier packages/base dans les sources de FPC. Elles consistent fondamentalement en appels d'API clientes comme mysql_connect_database, qui diffèrent complètement d'un SGBD à un autre. Il est possible d'écrire des applications en utilisant ces unités, mais cela donne plus de travail et est plus générateur de bugs que d'employer les composants DB de Lazarus. | |
| 36 | 36 | ||
| 37 | 37 | La plupart de ces paquets de liaisons sont liés en dur aux bibliothèques clientes. Ceci signifie que si votre application est compilée avec l'une des unités en elle, l'application entière ne peut être liée (au sens de l'édition de liens) si les bibliothèques clientes ne sont pas disponibles sur la station de travail. Cela signifie que votre programme ne sera pas généré si vous n'avez pas installé - p.ex. - un client MySQL sur votre ordinateur, et vous utilisez l'unité mysql4.pp dans votre programme. Si vous compilez avec succès le programme sur un ordinateur qui a les bibliothèques MySQL installées, il ne démarrera pas sur une autre machine qui n'a pas les bibliothèques MySQL adéquates. En d'autres mots : pour ces SGBD, vous devez installer les bibliothèques clientes sur votre machine de développement et vous devrez installer ces bibliothèques clientes avec votre application (NdT: attention aux termes des licences). | |
| 38 | 38 | ||
| 39 | 39 | Pour éviter de tels problèmes, certains de ces paquets sont aussi capables d'être liés dynamiquement aux bibliothèques. Avant que tout appel à ces bibliothèques puissent être réalisé, l'unité doit être 'initialisée'. Cette initialisation échoue si le client de base de données n'est pas installé sur l'ordinateur. Si le programme est prêt en utilisant la bibliothèque cliente, l'unité doit être 'délivrée' (*released*). | |
| 40 | 40 | ||
| 41 | 41 | # Datasets | |
| 42 | 42 | ||
| 43 | 43 | L'utilisation de base de données dans Lazarus (ou Free Pascal) est fondamentalement basé sur la classe [[TDataSet/fr|TDataSet]]. Ceci représente une table ou une requête de votre application. Toutefois, comme d'autres classes fondamentales, vous n'utiliserez pas la classe TDataSet elle-même, vous utiliserez un de ses descendants. Il y en a un certain nombre. Ils fournissent un accès à différentes bases de données, telles que dbase local ou des fichiers texte, ou des bases de données back-end telles que PostgreSQL, Firebird, MySQL et ainsi de suite. Certains descendants de DataSet relient directement aux tables de la base, alors que d'autres utilisent des composants additionnels ou des bibliothèques pour réaliser le lien. | |
| 44 | 44 | ||
| 45 | 45 | Les descendants de TDataSet, étant des composants non visuels, sont généralement des composants de la Bibliothèque de Composants libres (*Free Component Library* ou FCL) plutôt que des composants de la bibliothèque de composant de Lazarus (*Lazarus Component Library* ou LCL). | |
| 46 | 46 | ||
| 47 | 47 | Les DataSet peuvent être employés à la fois par programmation et avec les contrôles visuels. Une application de base de données typique utilisera souvent les deux méthodes. Dans tous les cas, la première étape est de créer le descendant de TDataSet, l'initialiser en le connectant à la table ou la requête que vous souhaitez et l'ouvrir. Cela peut être fait soit par code à l'exécution soit en posant le composant sur la fiche et en définissant ses propriétés au moment de la conception. Les détails de ceci varient considérablement selon les différents descendants de TDataSet, donc allez voir les divers guides sous [[Databases/fr|Base de données]] pour ce qui est à faire pour votre SGBD. | |
| 48 | 48 | ||
| 49 | 49 | Quand un DataSet est ouvert, un ensemble de composants champs est créé, un par champ ou colonne de la table ou requête que vous avez ouverte. Chaque composant champ est un descendant de la classe TField, adapté au type du champ, p.ex., TstringField. | |
| 50 | 50 | ||
| 51 | 51 | ## Utilisation de TDataSets par code | |
| 52 | 52 | ||
| 53 | 53 | L'accès par programmation sera expliqué dans plus de détails dans [[Using Dataset and Field components/fr|Utilisation de composants DataSet et TField]], mais en guise de simple survol : | |
| 54 | 54 | ||
| 55 | 55 | - Utilisez les descendants de TDataSet pour ouvrir la table ou la requête, filtrer les lignes que vous voulez voir, et déplacez vous de ligne en ligne. | |
| 56 | 56 | - Utilisez les descendants de TField pour : | |
| 57 | 57 | - Accéder aux informations générales sur les champs. | |
| 58 | 58 | - accéder aux valeurs spécifiques pour la ligen courante. (utilisez la proporiété As..., telle que AsString, AsInteger, etc.) | |
| 59 | 59 | - Accéder aux champs d'un descendant de TDataSet en utilisant soit : | |
| 60 | 60 | - La propriété Fields, p.ex. Fields\[0\] est le premier champ, | |
| 61 | 61 | - La méthode FieldByName, p.ex. FieldByName('AGE') retourne le champ associé avec le champ de base de données appelé 'AGE'. | |
| 62 | 62 | ||
| 63 | 63 | Voir [[Database field type/fr|Type de champs de base de données]] pour une liste des types de champ. | |
| 64 | 64 | ||
| 65 | 65 | ## Utilisation des contrôles visuels (sensibles aux données) | |
| 66 | 66 | ||
| 67 | 67 | Pour utiliser des bases de données dans une simple application de type "RAD", vous pouvez généralement configuerer le descendant de TDataSet en conception et employer des contrôles sensibles aux données. Pour faire ceci : | |
| 68 | 68 | ||
| 69 | 69 | - Ajouter les descendant de TDataSet pour la base de données de votre choix, ainsi que tous lescomposants sur votre fiche,et ouvrez-le (Définissez la propriété 'Active' à true). | |
| 70 | 70 | - Ajouter un composant [[TDataSource/fr|TDataSource]] (depuis l'onglet [[Data Access tab/fr|Data Access]] à la fiche et liez-le au DataSet (définissez la propriété). | |
| 71 | 71 | - Ajoutez des contrôles sensibles aux données depuis l'onglet [[Data Controls tab/fr|Data Controls]] à la fiche et liez-les chacun au composant DataSource (et non pas au DataSet). | |
| 72 | 72 | - La plupart des contrôles sont reliés à un seul champ, vous devez donc définir le champ pour chaque contrôle. | |
| 73 | 73 | ||
| 74 | 74 | Voir #Contrôles de données plus bas pour plus de détails sur les contrôles. | |
| 75 | 75 | ||
| 76 | 76 | ## Etat de Dataset | |
| 77 | 77 | ||
| 78 | 78 | Les DataSets peuvent dans un certain nombre d'états, plutôt peu nombreux (jetez un oeil à TDataSetState dans les sources), les principaux dont il faut tenir compte sont : | |
| 79 | 79 | ||
| 80 | 80 | | Etat | Fonction | | |
| 81 | 81 | |----|----| | |
| 82 | 82 | | dsInactive | Le dataset est fermé. | | |
| 83 | 83 | | dsBrowse | L'utilisateur peut parcourir les données dans le DataSet. | | |
| 84 | 84 | | dsEdit | L'utilisateur peut éditer les valeurs de la ligne courante. Les valeurs ne sont enregistrées qu'après l'appel à Post sur le DataSet. | | |
| 85 | 85 | | dsInsert | Une nouvelle ligne est ajoutée et l'utilisateur peut en définir les valeurs. L'enregistrement n'est pas réalisés avant l'appel à Post. | | |
| 86 | 86 | ||
| 87 | 87 | Les autres états sont clairement transitoires et sont généralement géré "automatiquement". Ils sont utilisés en interne et dans du code plus compliqué. Si votre base de données visualise seulement les données et que vous ouvrez le DataSet lors de la conception, vous pouvez largement ignorer l'état, qui sera la plupart du temps dsBrowse. Néanmoins, le plupart des applications voudront changer les données à certains moments. Si vous utilisez des contrôles sensibles aux données, ils traiteront beaucoup de cela automatiquement. Si vous changez le texte dans un contrôle [[TDBEdit/fr|TDBEdit]] p.ex., l'état du DataSet passera à dsEdit - à moins que vous ne soyez déjà dans un état dsEdit ou dsInsert. Si vous "défilez" vers un enregistrement différent alors que l'état courant est dsEdit ou dsInsert, cet enregistrement sera "posté" et le DataSet reviendra à l'état dsBrowse. Toutefois, si vous accédez à l'ensemble de données à partir du code, vous devrez souvent modifier l'état dans le code ainsi. Le contrôle [[TDBNavigator/fr|TDBNavigator]] (voir plus bas) permet à l'utilisateur de changer explicitement l'état. | |
| 88 | 88 | ||
| 89 | 89 | ## Méthode de TDataset UpdateStatus | |
| 90 | 90 | ||
| 91 | 91 | UpdateStatus détermine l'état courant du tampon d'enregistrement, si les mises à jour n'ont pas été appliquées à la base de données. | |
| 92 | 92 | ||
| 93 | 93 | **Exemple** de comment détecter si ApplyUpdates insérera, mettra à jour ou supprimera la donnée : | |
| 94 | 94 | ||
| 95 | 95 | ``` pascal | |
| 96 | 96 | procedure QueryAfterPost(DataSet: TDataSet); | |
| 97 | 97 | begin | |
| 98 | 98 | case DataSet.UpdateStatus of | |
| 99 | 99 | usUnmodified : ShowMessage('Unmodified'); | |
| 100 | 100 | usModified : ShowMessage('Modified'); | |
| 101 | 101 | usInserted : ShowMessage('Inserted'); | |
| 102 | 102 | usDeleted : ShowMessage('Deleted'); | |
| 103 | 103 | end; | |
| 104 | 104 | end; | |
| 105 | 105 | ``` | |
| 106 | 106 | ||
| 107 | 107 | Explication des valeurs | |
| 108 | 108 | ||
| 109 | 109 | - usUnmodified: l'enregistrement reste inchangé. | |
| 110 | 110 | - usModified: L'enregistrement existe dans la base de données mais est localement supprimé. | |
| 111 | 111 | - usInserted: L'enregistrement n'existe pas encore dans la base de données mais est localement inséré. | |
| 112 | 112 | - usDeleted: L'enregistrement existe dans la base de données mais est localement supprimé. | |
| 113 | 113 | ||
| 114 | 114 | ## Méthodes Post et Cancel | |
| 115 | 115 | ||
| 116 | 116 | Si vous avez modifié ou inséré un enregistrement, les nouvelles valeurs sont tenues dans un tampon. | |
| 117 | 117 | ||
| 118 | 118 | - L'appel à la méthode Cancel du DataSet efface le nouvel enregistrement (insertion) ou revient aux valeurs précédentes (édition). | |
| 119 | 119 | - L'appel à la méthode Post du DataSet enregistre les valeurs (édition) ou l'enregistrement (insertion). Dans certains descendants de TDataSet, ils seront écrits directement dans la base de données, alors que dans d'autres ils seront stockés dans une liste de mises à jour jusqu'à ce qu'un appel ultérieur soit fait pour enregistrer tous les changements dans la base de données. Au final, même quand ils sont écrits dans la base de données, vous devrez faire appel à la méthode "Commit" pour que la base de données les écrive de manière permanente. Tout cela dépend considérablement avec le descendant de TDataSet, il faut donc consulter les détails sur celui que vous utilisez. | |
| 120 | 120 | ||
| 121 | 121 | ## Insertion d'un nouvel enregistrement | |
| 122 | 122 | ||
| 123 | 123 | Pour insérer un nouvel enregistrement, dans un descendant de TDataSet, on devrait utiliser la méthode [Insert](http://www.freepascal.org/docs-html/fcl/db/tdataset.insert.html). Après avoir défini la valeur des champs, il faut appeler finalement la méthode Post pour faire le Commit du nouvel enregistrement, comme l'exemple du bas le montre. | |
| 124 | 124 | ||
| 125 | 125 | L'exemple montre aussi commment insérer de la donnée BLOB depuis un fichier - vous pouvez aussi utiliser la méthode LoadFromStream pour charger la donnée depuis un flux. | |
| 126 | 126 | ||
| 127 | 127 | ``` pascal | |
| 128 | 128 | MyDataset.Insert; | |
| 129 | 129 | MyDataset.Fields[0].AsInteger := 4; //an integer field | |
| 130 | 130 | MyDataset.Fields[1].AsString := 'First Name'; //a string field | |
| 131 | 131 | TBlobField(MyDataset.Fields[2]).LoadFromFile('SomeBlobfile.bin'); //blob field | |
| 132 | 132 | MyDataset.Post; | |
| 133 | 133 | ``` | |
| 134 | 134 | ||
| 135 | 135 | ## Comment sauter rapidement vers une enregistrement particulier dans la table ? | |
| 136 | 136 | ||
| 137 | 137 | ### Après sélection tous les enregistrements de la table | |
| 138 | 138 | ||
| 139 | 139 | Si vous utilisez SELECT * FROM pour sélectionner tous les enregistrements de la table et ensuite passer de l'un à l'autre, vous aurez à construire un index et chercher à partir de celui-ci. Il est plus efficace de sélectionner seulement les enregistrements dont vous avez besoin. | |
| 140 | 140 | ||
| 141 | 141 | ### Sélection du seul enregistrement désiré | |
| 142 | 142 | ||
| 143 | 143 | Une solution rapide pour sauter à un enregistrement particulier est ne sélectionner que celui-ci, p.ex. en faisant : | |
| 144 | 144 | ||
| 145 | 145 | ``` pascal | |
| 146 | 146 | var | |
| 147 | 147 | MyDataset: TSQLQuery; | |
| 148 | 148 | begin | |
| 149 | 149 | //... | |
| 150 | 150 | MyDataset.FieldDefs.Add('SessionId', ftLargeint); | |
| 151 | 151 | MyDataset.FieldDefs.Add('GameEvent', ftLargeint); | |
| 152 | 152 | MyDataset.FieldDefs.Add('TableId', ftInteger); | |
| 153 | 153 | MyDataset.FieldDefs.Add('LoggedIn', ftBoolean); | |
| 154 | 154 | MyDataset.FieldDefs.Add('PlayerId', ftInteger); | |
| 155 | 155 | MyDataset.Active := False; | |
| 156 | 156 | { Non-parameterized format; may run into issues with text containing ' and dates | |
| 157 | 157 | SQLText := Format('select * from "GameSession" WHERE "SessionId"=%d', [ASessionId]); | |
| 158 | 158 | } | |
| 159 | 159 | // Solution: parameterized query: | |
| 160 | 160 | // Actually, if this is done in a loop, you only need to set the SQL.Text once, | |
| 161 | 161 | // and only change the parameter value | |
| 162 | 162 | MyDataset.SQL.Text := 'select * from "GameSession" WHERE "SessionID"=:SessionID'); | |
| 163 | 163 | MyDataSet.ParamByName('SessionID').AsLargeInt := ASessionID; | |
| 164 | 164 | try | |
| 165 | 165 | MyDataset.Active := True; | |
| 166 | 166 | except | |
| 167 | 167 | //... | |
| 168 | 168 | end; | |
| 169 | 169 | ``` | |
| 170 | 170 | ||
| 171 | 171 | Vous pouvez alors lire l'informatation en utilisant quelque chose comme ceci : | |
| 172 | 172 | ||
| 173 | 173 | ``` pascal | |
| 174 | 174 | lPlayerId := MyDataset.Fields[4].AsInteger; | |
| 175 | 175 | ``` | |
| 176 | 176 | ||
| 177 | 177 | ## Filtrage | |
| 178 | 178 | ||
| 179 | 179 | Vous pouvez filtrer votre DataSet pour limiter les enregistrements à un sous-ensemble que vous souhaitez (p.ex. tous les noms de famille commençant par Smith). | |
| 180 | 180 | ||
| 181 | 181 | - En utilisant .Filter: | |
| 182 | 182 | - [[TDbf/fr|TDbf]], [[TBufDataset/fr|TBufDataset]] et descendants (y compris [[TSQLQuery/fr|TSQLQuery]]) utilisent l'analyseur (*parser*) de filtrage de TDBF ; voir [[Lazarus Tdbf Tutorial/fr|Lazarus Tdbf Tutorial/fr#Expressions]] pour les détails d'utilisation. | |
| 183 | 183 | - [[TMemDataset/fr|TMemDataset]] ne supporte pas .Filter | |
| 184 | 184 | - En utilisant un événement/procédure de rappel (*callback procedure*) avec OnFilter, vous pouvez définir votre propre fonction de filtre. | |
| 185 | 185 | ||
| 186 | 186 | ## Méthodes Locate/lookup | |
| 187 | 187 | ||
| 188 | 188 | Bien que plus souvent utilisé dans les DataSets non-SQL (comme [[TParadoxDataSet/fr|TParadoxDataSet]], [[TDbf/fr|TDbf]]), vous pouvez sauter entre les enregistrements en utilisant [[locate/fr|locate]]/[[lookup/fr|lookup]]. | |
| 189 | 189 | ||
| 190 | 190 | ## En utilisant TSQLQuery | |
| 191 | 191 | ||
| 192 | 192 | Pour plus d'information sur [[TSQLQuery/fr|TSQLQuery]] voir [[Working With TSQLQuery/fr|Travailler avec TSQLQuery]]. | |
| 193 | 193 | ||
| 194 | 194 | ## Exportation | |
| 195 | 195 | ||
| 196 | 196 | FPC/Lazarus contient des fonctionnalités pour exporter des ensembles de données selon des formats divers ; voir p.ex. : | |
| 197 | 197 | ||
| 198 | 198 | - [[fpXMLXSDExport/fr|fpXMLXSDExport]]. | |
| 199 | 199 | - [[fpdbfexport/fr|fpdbfexport]]. | |
| 200 | 200 | - Les autres composants dans le paquet [[lazdbexport/fr|export de base de données]]. | |
| 201 | 201 | ||
| 202 | 202 | Bien sûr, vous pouvez aussi faire cela manuellement (voir p.ex. [[FPSpreadsheet/fr|FPSpreadsheet/fr#Conversion_d.27une_base_de_donn.C3.A9es_vers_une_feuille_de_calcul]] pour exporter vers le format Excel en utilisant fpspreadsheet). | |
| 203 | 203 | ||
| 204 | 204 | # Contrôles de données | |
| 205 | 205 | ||
| 206 | 206 | Pour utiliser n'importe quel de ces contrôles, ajoutez le contrôle à la fiche et définissez au moins sa propriété DataSource. D'autres propriétés clé seront notées. | |
| 207 | 207 | ||
| 208 | 208 | ## Contrôle Datasource | |
| 209 | 209 | ||
| 210 | 210 | Ce contrôle garde la trace de l'enregistrement vers lequel sont actuellement reliés les contrôles. Le contrôle DataSource doit être relié à un DataSet (p.exe un TSQlQuery). | |
| 211 | 211 | ||
| 212 | 212 | ## Contrôles à champ unique | |
| 213 | 213 | ||
| 214 | 214 | Ces contrôles s'attachent tous à un simple champ. | |
| 215 | 215 | ||
| 216 | 216 | These controls all attach to a single field. En plus de la propriété DataSource, définissez le nom du champ. Les contrôles incluent : | |
| 217 | 217 | ||
| 218 | 218 | - [[doc:lcl/dbctrls/tdbtext.html|Contrôle DBText]] Affiche un champ texte (en lecture seule, pas de bordure). | |
| 219 | 219 | - [[doc:lcl/dbctrls/tdbedit.html|Contrôle DBEdit]] Affiche/édite un champ texte dans une zone d'édition. | |
| 220 | 220 | - [[doc:lcl/dbctrls/tdbmemo.html|Contrôle DBMemo]] Affiche/édite un champ texte dans une zone d'édition multiligne. | |
| 221 | 221 | - [[doc:lcl/dbctrls/tdbimage.html|Contrôle DBImage]] Affiche une image stockée dans la bse de données sous forme d'un BLOB. Remarquez : par défaut, Lazarus stocke un entête avec le type de l'image avant la donnée d'image dans le champ BLOB de base de données. Cela est différent de Delphi. Néanmoins, vous pouvez rendre TDBImage compatible avec Delphi : voir [[Lazarus For Delphi Users|Lazarus For Delphi Users#TDBImage]] | |
| 222 | 222 | - [[doc:lcl/dbctrls/tdblistbox.html|Contrôle DBListBox]] et [[doc:lcl/dbctrls/tdbcombobox.html|contrôle DBComboBox]] permettent à l'utilisateur d'insérer des valeurs dans un champ de base de données depuis une liste de valeurs dans la propriété Items des contrôles. | |
| 223 | 223 | - [[doc:lcl/dbctrls/tdblookuplistbox.html|Contrôle DBLookupListBox]] et [[doc:lcl/dbctrls/tdblookupcombobox.html|contrôle DBLookupComboBox]], voir aussi [[TDBLookupComboBox/fr|TDBLookupComboBox]] permettent à l'utilisateur d'insérer des valeurs dans un champ de base de données en affichant le contenu d'un champ de référence d'une autre table. Bien que ces contrôles stockent leurs résultats dans un seul champ, vous aurez besoin d'un autre champ pour les valeurs de référence. **Note** : au moins pour DBLookupComboBox, il y a un bug dans FPC 2.6.0 qui demande à ce que le listfield soit présente aussi bien dans la DataSource, vous pouvez contourner ça en déclarant un champ calculé avec le même nom que la listfield dans le DataSet de la DataSource, qui ne fera rien. | |
| 224 | 224 | - [[doc:lcl/dbctrls/tdbcheckbox.html|Contrôle DBCheckBox]] Affiche/modifie un champ booléen en vérifiant/effaçant une case à cocher. | |
| 225 | 225 | - [[doc:lcl/dbctrls/tdbradiogroup.html|Contrôle DBRadioGroup]] Affiche les articles dans un contrôle RadioGroup normal, lecture/écriture de la valeur du champ depuis une liste de valeurs correspondantes. | |
| 226 | 226 | - [[doc:lcl/dbctrls/tdbcalendar.html|Contrôle DBCalendar]] Affiche/édite un champ date en utilisant un panneau calendrier. | |
| 227 | 227 | - [[doc:lcl/dbctrls/tdbgroupbox.html|Contrôle DBGroupBox]] | |
| 228 | 228 | ||
| 229 | 229 | ## [[doc:lcl/dbgrids/tdbgrid.html|Contrôle DBGrid]] | |
| 230 | 230 | ||
| 231 | 231 | Ce contrôle peut montrer un nombre de champs dans une disposition ligne/colonne - en fait par défaut, il montre tout. Néanmoins vous pouvez mettre des entrées dans la [[doc:lcl/dbgrids/tdbgrid.columns.html|collections des colonnes]] pour restreindre à des champs spécifiques et définir les largeurs et titres de chaque colonne. | |
| 232 | 232 | ||
| 233 | 233 | En plus de la [[doc:lcl/dbgrids/tdbgrid.html|documentation mentionnée]], d'autres détails peuvent être trouvés là [[Grids Reference Page|Grids Reference Page#TCustomDBGrid]]. | |
| 234 | 234 | ||
| 235 | 235 | ## [Contrôle Navigateur](http://lazarus-ccr.sourceforge.net/docs/lcl/dbctrls/tdbnavigator.html) | |
| 236 | 236 | ||
| 237 | 237 | Ce contrôle donne à l'utilisateur certaines actions directes sur le DataSet, il permet à l'utilisateur de : | |
| 238 | 238 | ||
| 239 | 239 | - se déplacer vers l'enregistrement suivant ou précédent, ou vers le début ou la fin des enregistrements. | |
| 240 | 240 | - Ajouter un nouvel enregistrement (équivalent à l'appel de la méthode dataset.insert). | |
| 241 | 241 | - Mettre l'enregistrement en mode édition. | |
| 242 | 242 | - Supprimer un enregistrement. | |
| 243 | 243 | - Valider (*Post*) ou annuler (*Cancel*) les changements en cours. | |
| 244 | 244 | - Rafraîchir la donnée (utile dans des applications multi-utilisateurs) | |
| 245 | 245 | ||
| 246 | 246 | Propriétés clés : | |
| 247 | 247 | ||
| 248 | 248 | - VisibleButtons : Limite aux actions que l'utilisateurs peut faire. P.ex., si la suppression n'est pas permise, cachez le bouton Delete. Si vous avez un DBGrid, attaché au même DataSet, vous pouvez vous passer des boutons Next et Prior. | |
| 249 | 249 | - Width : Si vous ne montrez pas tous les boutons, vous pouvez définir la propriété Width à (height*nombre_de_boutons_visibles). | |
| 250 | 250 | ||
| 251 | 251 | # Exécution de tests de bases de données de FPC | |
| 252 | 252 | ||
| 253 | 253 | Les composants de base de données Free Pascal intègrent un framework orienté test [[fpcunit/fr|fpcunit]], dbtestframework, qui peut être utlisé pour vérifier des fonctionnalités. Voir le répertoire source\packages\fcl-db\tests\\ dans l'arborescence des sources FPC. | |
| 254 | 254 | ||
| 255 | 255 | Included est un framework de test qui peut être exécuté sur des composants de base de données divers, aussi bien que sur d'autres tests (p.ex. le test d'un export de données). | |
| 256 | 256 | ||
| 257 | 257 | Pour exécuter un framework de test sur une certaine base de données : | |
| 258 | 258 | ||
| 259 | 259 | 1\. enregistrer source\packages\fcl-db\tests\database.ini.txt sous source\packages\fcl-db\tests\database.ini | |
| 260 | 260 | ||
| 261 | 261 | 2\. Modifier source\packages\fcl-db\tests\database.ini pour choisir quelle base de données vous utiliserez. | |
| 262 | 262 | ||
| 263 | 263 | Exemple pour Interbase/Firebird: | |
| 264 | 264 | ||
| 265 | 265 | ``` ini | |
| 266 | 266 | [Database] | |
| 267 | 267 | type=interbase | |
| 268 | 268 | ``` | |
| 269 | 269 | ||
| 270 | 270 | 3\. Dans le même fichier, personnalisez les réglages de votre base de données. P.ex. si vous avez choisi interbase avant : | |
| 271 | 271 | ||
| 272 | 272 | ``` ini | |
| 273 | 273 | [interbase] | |
| 274 | 274 | connector=sql | |
| 275 | 275 | connectorparams=interbase | |
| 276 | 276 | ; Database name/path (note: database needs to exist already) | |
| 277 | 277 | ; You can use aliases (see aliases.conf in your Firebird documentation) | |
| 278 | 278 | name=testdb | |
| 279 | 279 | user=sysdba | |
| 280 | 280 | password=masterkey | |
| 281 | 281 | ; your hostname may very well differ: | |
| 282 | 282 | ; Leave blank if you want to use an embedded Firebird database | |
| 283 | 283 | hostname=192.168.0.42 | |
| 284 | 284 | ``` | |
| 285 | 285 | ||
| 286 | 286 | 4\. Compilez et exécutez source\packages\fcl-db\tests\dbtestframework.pas (vous pouvez aussi utiliser Lazarus pour compiler et exécuter la version en IHM, dbtestframework_gui). Si vous utilisez une base de données incorporée sur Windows (p.ex. Firebird incorporé ou sqlite), copiez d'abord les fichiers DLL dans le dossier. La sortie sera au format XML (ou affiché sur votre écran si vous utilisez dbtestframework_gui). | |
| 287 | 287 | ||
| 288 | 288 | Veuillez vous reporter au fichier source\packages\fcl-db\tests\README.txt pour plus de détails. | |
| 289 | 289 | ||
| 290 | 290 | # Paquets Bases de données contenus dans Lazarus | |
| 291 | 291 | ||
| 292 | 292 | ## sqldblaz.lpk | |
| 293 | 293 | ||
| 294 | 294 |  | |
| 295 | 295 | ||
| 296 | 296 | Ce paquet fournit l'accès à différentes bases de données. Ce qui inclut : | |
| 297 | 297 | ||
| 298 | 298 | - Interbase/Firebird | |
| 299 | 299 | - Microsoft SQL Server (sauf pour Lazarus/FPC x64 pour Windows) | |
| 300 | 300 | - MySQL | |
| 301 | 301 | - Oracle (sauf pour Lazarus/FPC x64 pour Windows) | |
| 302 | 302 | - PostgreSQL (sauf pour Lazarus/FPC x64 pour Windows) | |
| 303 | 303 | - SQLite (avec le support de l'extension [[Spatialite/fr|Spatialite]]) | |
| 304 | 304 | - Sybase ASE (Adaptive Server Enterprise - à ne pas confondre avec Sybase ASA) (sauf pour Lazarus/FPC x64 pour Windows) | |
| 305 | 305 | - Toute base de données disposant d'un pilote ODBC. | |
| 306 | 306 | ||
| 307 | 307 | Les composants (TSQLQuery, TSQLTransaction, TIBConnection, TODBCConnection, TOracleConnection, TMSSQLConnection, TMySQL40Connection, TMySQL41Connection, TMySQL50Connection, TPQConnection, TSybaseConnection) se trouvent dans l'onglet 'SQLdb' de la palette de composants. | |
| 308 | 308 | ||
| 309 | 309 | - [[SQLdb Package/fr|SQLdb Package]] | |
| 310 | 310 | ||
| 311 | 311 | ## dbflaz.lpk | |
| 312 | 312 | ||
| 313 | 313 | Ce paquet fournit l'accès aux bases de données DBase et FoxPro. Vous pouvez obtenir plus d'information dans le [[Lazarus Tdbf Tutorial/fr|tutoriel Lazarus TDbf]]. Le composant TDbf est sur l'onglet [[Data Access tab/fr|Data Access]] dans la palette de composants. | |
| 314 | 314 | ||
| 315 | 315 | ## sqlitelaz.lpk | |
| 316 | 316 | ||
| 317 | 317 | Ce paquet fournit l'accès aux bases de données SQLite. Vous pouvez obtenir plus d'information dans la [[Lazarus Database Overview/fr|vue d'ensemble des base de données de Lazarus]]. | |
| 318 | 318 | ||
| 319 | 319 | ## sdflaz.lpk | |
| 320 | 320 | ||
| 321 | 321 | Le composant [[TSdfDataSet/fr|TSdfDataSet]] se trouve dans l'onglet [[Data Access tab/fr|Data Access]] dans la palette de composants. | |
| 322 | 322 | ||
| 323 | 323 | ## lazreport.lpk | |
| 324 | 324 | ||
| 325 | 325 | Le site du générateur d'état est [<http://lazreport.sourceforge.net/>](http://lazreport.sourceforge.net/). Plus d'information peut être trouvée [[Projects using Lazarus|là]]. LazReport dépend du paquet Printer4Lazarus. Avec la révision 11950, LazReport a été intégré dans le référentiel SVN de Lazarus. | |
| 326 | 326 | ||
| 327 | 327 | ## lazdbexport.lpk | |
| 328 | 328 | ||
| 329 | 329 | Voir [[lazdbexport/fr|lazdbexport]]. | |
| 330 | 330 | ||
| 331 | 331 | # Paquets externes / bibliothèques | |
| 332 | 332 | ||
| 333 | 333 | ## Objets Zeos DataBase | |
| 334 | 334 | ||
| 335 | 335 | Ces composants fournissent l'accès à différentes bases de données. Vous pouvez trouver plus d'information [[ZeosDBO/fr|là]]. Ce Wiki contient aussi un [[Zeos tutorial/fr|tutoriel Zeos]]. | |
| 336 | 336 | ||
| 337 | 337 | ## Pascal Data Objects | |
| 338 | 338 | ||
| 339 | 339 | C'est maintenant une alternative. Elle supporte : | |
| 340 | 340 | ||
| 341 | 341 | - MySQL 4.1 et 5.0 | |
| 342 | 342 | - sqlite-2 et sqlite-3 | |
| 343 | 343 | - pgsql-8.1 | |
| 344 | 344 | - interbase-5, interbase-6, firebird-1.0, firebird-1.5, firebird-1.5E, firebird-2.0, firebird-2.0E | |
| 345 | 345 | - mssql (Microsoft library) et sybase (FreeTDS library) | |
| 346 | 346 | - oracle | |
| 347 | 347 | ||
| 348 | 348 | Comme les instructions préparées, la liaison et les procédures stockées sont supportées par l'API de base de données appelée Pascal Data Objects, qui est inspirée de PHP Data Objects. Toute la documentation et tout le code nécessaire pour utiliser cette nouvelle API est disponible sur SourceForge : | |
| 349 | 349 | ||
| 350 | - | ||
| 350 | + | ```text | |
| 351 | + | http://pdo.sourceforge.net | |
| 352 | + | ``` | |
| 351 | 353 | ||
| 352 | 354 | ## TPSQL | |
| 353 | 355 | ||
| 354 | 356 | Ces composants fournissent l'accès via TCP/IP aux bases de données PostgreSQL. Vous pooiuvez trouver plus d'informations dans [[TPSQL/fr|cette page]]. | |
| 355 | 357 | ||
| 356 | 358 | ## FIBL | |
| 357 | 359 | ||
| 358 | 360 | Ces composants fournissent l'accès aux bases de données Interbase et Firebird. La page d'accueil est [<http://sourceforge.net/projects/fibl>](http://sourceforge.net/projects/fibl). | |
| 359 | 361 | ||
| 360 | 362 | ## IBX | |
| 361 | 363 | ||
| 362 | 364 | IBX pour Lazarus sont des composants pour accéder aux bases de données Firebird : voir [[IBX/fr|IBX]]. | |
| 363 | 365 | ||
| 364 | 366 | ## Bibliothèque FBLib Firebird | |
| 365 | 367 | ||
| 366 | 368 | [FBLib](http://fblib.altervista.org/) est une bibliothèque Open Source non sensible aux données pour l'accès direct à Firebird depuis Borland Delphi/Kylix, Free Pascal et Lazarus. | |
| 367 | 369 | ||
| 368 | 370 | Les caractéristiques actuelles intègrent : | |
| 369 | 371 | ||
| 370 | 372 | - L'accès direct à Firebird 1.0.x, 1.5.x et 2.x Classic ou SuperServer. | |
| 371 | 373 | - Multi plate-forme (Win32,Gnu/Linux,FreeBSD). | |
| 372 | 374 | - La sélection automatique de la bibliothèque cliente 'fbclient' ou 'gds32'. | |
| 373 | 375 | - Requêtes avec paramètres. | |
| 374 | 376 | - Supporte les dialectes SQL 1/3. | |
| 375 | 377 | - Agrément de licence LGPL. | |
| 376 | 378 | - Extraction de métadonnées. | |
| 377 | 379 | - Analyseur simple de script. | |
| 378 | 380 | - Seulement 100-150 KB sont ajoutés dans l'EXE final. | |
| 379 | 381 | - Supporte les champs BLOB. | |
| 380 | 382 | - Export de données vers des script SQL HTML | |
| 381 | 383 | - Gestionnaire de service (backup, restore, gfix...) | |
| 382 | 384 | - Alerteur d'événements | |
| 383 | 385 | ||
| 384 | 386 | Vous pouvez télécharger la documentation depuis le [site web de FBLib](http://fblib.altervista.org/). | |
| 385 | 387 | ||
| 386 | 388 | ## Interbase Unifié | |
| 387 | 389 | ||
| 388 | 390 | UIB fournit un accès aux bases de données Interbase, Firebird et YAFFIL. La page d'accueil est [www.progdigy.com](http://www.progdigy.com). Un référentiel SVN est disponible sous <https://uib.svn.sourceforge.net/svnroot/uib>. | |
| 389 | 391 | ||
| 390 | 392 | ## TechInsite Object Persistence Framework (tiOPF) | |
| 391 | 393 | ||
| 392 | 394 | Plus d'information sur tiOPF peut être trouvée dans cette [[tiOPF/fr|page]]. | |
| 393 | 395 | ||
| 394 | 396 | ## Descendant de TDataSet pour Advantage | |
| 395 | 397 | ||
| 396 | 398 | Le TdataSet dérivé Advantage fournit un moyen de connection (et d'ouverture de tables avec) au serveur de base de données Advantage. Advantage est une base de données incorporée sans administration qui fournit des accès client/serveur tout comme des accès pair à pair vers les formats de fichier DBF de Clipper, FoxPro et Visual FoxPro 9, tout comme aussi un format de fichier propriétaire qui fournit un chemin de migration permettant l'emploi de fonctionnalités plus récentes. | |
| 397 | 399 | ||
| 398 | 400 | Caractéristiques clés: | |
| 399 | 401 | ||
| 400 | 402 | - Base de données pair à pair sans royaltie avec chemin de migration vers le client/serveur. | |
| 401 | 403 | - Multi plate-forme (clients supportés sur Windows et Linux, serveurs supportés sur Windows, Linux et NetWare) | |
| 402 | 404 | - Supporte à la fois les accès navigationnels et relationnels SQL aux bases de données. | |
| 403 | 405 | - Moteur de recherche plein-texte. | |
| 404 | 406 | - Table, Index, Memo, et chiffrement de la communication. | |
| 405 | 407 | - Compatible avec les composants TDataset natifs. | |
| 406 | 408 | - Sauvegarde en ligne. | |
| 407 | 409 | - Le serveur supporte la réplication. | |
| 408 | 410 | ||
| 409 | 411 | Pour plus d'informations, voir le site web [Advantage Database Server](http://www.advantagedatabase.com). | |
| 410 | 412 | ||
| 411 | 413 | ## ZMSQL, base de données en mémoire à SQLM amélioré | |
| 412 | 414 | ||
| 413 | 415 | Pour plus d'informations, voir la [page wiki ZMSQL](http://wiki.lazarus.freepascal.org/ZMSQL). | |
| 414 | 416 | ||
| 415 | 417 | ZMSQL est un descendant de TBufDataset Open Source et une base de données en mémoire améliorée pour Free Pascal, opérant avec des tables en texte plat à valeurs séparées par des points-virgules. Complétement écrit en Pascal, il n'a pas de dépendance avec des bibliothèques externes. Il utilise le moteur JanSQL pour l'implémentation SQL. | |
| 416 | 418 | ||
| 417 | 419 | Il offre : | |
| 418 | 420 | ||
| 419 | 421 | - Le chargement depuis et la sauvegarde vers des tables en texte plat. | |
| 420 | 422 | - L'utilisation de SQL pour interroger les données. | |
| 421 | 423 | - La copie des données et du schéma depuis d'autres DataSet. | |
| 422 | 424 | - L'option de prédéfinir fielddefs ou la créer à la volée. | |
| 423 | 425 | - Le filtrage maître/détail. | |
| 424 | 426 | - L'intégrité référentielle. | |
| 425 | 427 | - Les requêtes paramétrées. | |
| 426 | 428 | ||
| 427 | 429 | Le fichier téléchargé contient le code source, des démo d'applications illustrant les caractéristiques du composant ainsi qu'un readme. | |
| 428 | 430 | ||
| 429 | 431 | # Voir aussi | |
| 430 | 432 | ||
| 431 | 433 | - [[Portal:Databases|Database Portal]] | |
| 432 | 434 | - [[Lazarus DB Faq/fr|Lazarus DB Faq]] | |
| 433 | 435 | ||
| 434 | 436 | --- | |
| 435 | 437 | *From the Free Pascal wiki, page "Databases/fr", as it stood on 2020-02-16 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |