Dans l'application de base de données DELPHI, nous disposons généralement de deux manières d'accéder à la base de données. La première consiste à effectuer une recherche dans la base de données BDE
moteur, c'est-à-dire en utilisant le pilote de base de données fourni avec DELPHI. L'avantage de cette méthode est qu'elle est rapide, mais sa portée d'application est limitée.
Lorsque la version de la base de données est mise à jour, il se peut qu'elle ne soit pas en mesure de faire fonctionner la nouvelle base de données. Une autre méthode consiste à utiliser ODBC, ce qui présente des avantages ;
Le fait est qu'il peut être fourni avec le système d'exploitation (comme WINDOWS) et peut être adapté à une variété de bases de données en tant qu'interface standard. L'inconvénient est qu'il est lent. En préparation
Au cours du processus, nous pouvons choisir l’une des méthodes en fonction de nos besoins.
Lorsque vous utilisez ODBC pour accéder à la base de données, la méthode habituelle consiste à configurer une source de données système ODBC dans le panneau de gestion ODBC.
(DSN système), puis définissez un alias de base de données (Alias) dans le DBD ou dans le programme pour correspondre au DSN, afin que vous puissiez utiliser
La base de données peut être facilement exploitée. Je pense que les programmeurs qui ont utilisé DELPHI pour créer des applications de bases de données connaissent déjà très bien cet aspect, et je n'en connais pas beaucoup.
Dit. Dans des applications pratiques, l'auteur a rencontré une telle situation. Notre application de base de données s'appuie sur la source de données du système ODBC.
Le programme d'application qui accède à la base de données et l'exploite a bien fonctionné jusqu'au jour où une personne qui connaît le système WINDOWS mais ne le connaît pas
Les utilisateurs trop avertis modifient ou suppriment accidentellement notre système DSN prédéfini...
Par conséquent, l'auteur a commencé à étudier comment définir dynamiquement le contenu du DSN du système ODBC dans le programme, afin que je puisse augmenter mon propre programme.
La commande est solide. Après une journée entière de recherche sur le registre WINDOWS, j'ai enfin trouvé le secret pour configurer DSN avec le gestionnaire ODBC.
(« Il y a de la justice au ciel et sur terre, et vous serez toujours récompensés pour vos efforts ! » Ce n'est pas une publicité !) Je l'écris pour le partager avec tout le monde, et je demande aussi conseil à des experts.
Le secret du DSN défini par le programme de gestion ODBC se trouve dans le registre. Si vous n'y croyez pas, vous pouvez accéder à HKEY_LOCAL_MACHINESoftwareODBC.
Jetez-y un œil, cela vous fera certainement sentir que vous avez déjà réussi à moitié.
Tout d'abord, jetons un coup d'œil au pilote de base de données ODBC installé sur le système. dans HKEY_LOCAL_MACHINELogicielODBC
ODBCInst.INI stocke des informations sur le pilote de base de données ODBC installé. De là, vous pouvez vérifier le numéro ODBC installé.
Informations telles que le fichier DLL correspondant au pilote de base de données. Dans chaque valeur clé des pilotes ODBCInst.INIODBC, le nom de la clé est le pilote
Le nom (tel que Microsoft Access Driver (*.mdb)) et la valeur de la clé sont « Installé », indiquant que le pilote a été installé. exister
ODBCInst.INIDriverName (DriverName est un nom de pilote, tel que Microsoft Access Driver (*.mdb))
, il y a des informations détaillées sur le pilote. Nous obtenons principalement ici le chemin et le nom du fichier DLL correspondant au pilote ODBC.
La valeur clé du nom de clé Driver est généralement « C:WINDOWSSYSTEMFileName.DLL ».
Regardez ensuite les informations d'enregistrement du DSN du système Dans HKEY_LOCAL_MACHINESoftwareODBCODBC.INI, le système est stocké.
Les informations d'enregistrement du DSN, les paramètres DSN que nous avons définis dans le panneau de gestion ODBC sont ici.
Jetons un coup d'œil aux étapes pour créer un DSN système ODBC, c'est-à-dire qu'après avoir terminé les réglages des paramètres dans le panneau de gestion ODBC, la gestion ODBC.
Comment le programme enregistre-t-il les informations DSN dans le registre ? Prenons comme exemple la création d'un DSN système de type Ms Access97 nommé MyAccess.
Les paramètres que nous spécifions incluent principalement le type de base de données (Microsoft Access Driver (*.mdb)), le nom de la source de données (MyAccess),
Description de la source de données (Mon ACCESS), chemin de la base de données (C:InetpubwwwrootTest.mdb), autres paramètres tels que le nom d'utilisateur,
Mot de passe utilisateur, exclusif, lecture seule, base de données système, répertoire par défaut, taille du tampon, nombre de lignes de numérisation, délai d'expiration de la page, etc. utiliser le système
Paramètres par défaut. À l’heure actuelle, le système d’enregistrement DSN devrait généralement comporter les étapes suivantes :
1． Ajouter une clé de chaîne dans les sources de données HKEY_LOCAL_MACHINESoftwareODBCODBC.INIODBC
La valeur est MyAccess = Microsoft Access Driver (*.mdb), où correspondent respectivement le nom de la source de données et le type de base de données.
Il s'agit d'enregistrer un nom DSN système dans le registre.
2. Créez une sous-clé (SubKey) MyAccess dans HKEY_LOCAL_MACHINESoftwareODBCODBC.INI, c'est-à-dire créez
Créez une clé sous le nom HKEY_LOCAL_MACHINESoftwareODBCODBC.INIMyAccess, puis créez-en
Valeur clé, qui décrit en détail les informations de configuration d'un DSN système. Les informations principales sont (le contenu entre [] est le commentaire de l'auteur) :
DBQ=C:InetpubwwwrootTest.mdb [Chaîne indiquant le chemin de la base de données]
Description=Mon ACCÈS [chaîne, représentant la description de la base de données]
Driver=C:PWIN98Systemodbcjt32.dll [Chaîne indiquant le pilote, visible ODBCINST.INI]
DriverId=0x00000019(25) [Le numéro indiquant l'identification du conducteur ne peut pas être modifié]
FIL=Ms Access ; [Chaîne, peut être liée au filtre]
SafeTransaction=0x00000000 [Nombre, peut indiquer le nombre d'opérations transactionnelles prises en charge]
UID="" [Chaîne indiquant le nom d'utilisateur, voici une chaîne vide]
3. Créez une sous-clé (SubKey)Engines dans HKEY_LOCAL_MACHINESoftwareODBCODBC.INIMyAccess,
Créez ensuite une sous-clé (SubKey)Jet en dessous, c'est-à-dire créez une clé comme
HKEY_LOCAL_MACHINESoftwareODBCODBC.INIMyAccessEnginesJet puis créez-en quelques-uns
Valeur clé, qui décrit en détail les informations de configuration du moteur de base de données d'un DSN système. Les informations principales sont les suivantes (le contenu entre [] est l'annotation de l'auteur) :
ImplicitCommitSync=Oui [Chaîne, peut indiquer si les modifications des données sont reflétées immédiatement]
MaxBufferSize=0x00000200(512) [numéro indiquant la taille du tampon]
PageTimeout=0x00000005(5) [numéro indiquant le délai d'expiration de la page]
Threads=0x00000003(3) [nombre, indiquant éventuellement le nombre maximum de threads pris en charge]
UserCommitSync=Oui [Chaîne, peut indiquer si les modifications des données seront immédiatement répercutées sur l'utilisateur]
Ce qui précède constitue les informations de base pour établir un DSN système (d'autres informations telles que les options ou les options avancées sont également définies ici, mais comme la valeur par défaut
informations non répertoriées dans le registre), nous exploitons le registre selon les étapes ci-dessus dans le programme, et pouvons également ajouter un DSN système ou modifier sa configuration.
Dans l'exemple de programme suivant, un DSN système sera créé selon les étapes ci-dessus. Veuillez prêter attention aux commentaires dans le programme.
{************************************************* * ***
Dans cette procédure, une source de données système ODBC (DSN) sera créée,
Nom de la source de données : MyAccess Description de la source de données : Ma nouvelle source de données
Type de base de données :ACCESS97
Base de données correspondante : C:Inetpubwwwroot est.mdb
************************************************** * *****}
{Notez que le registre doit être inclus dans l'instruction USES}
PRécédure TForm1.Button1Click(Expéditeur : TObject);
var
registerTemp : TRegistry;
bData : tableau[ 0..0 ] d'octet ;
commencer
registerTemp := TRegistry.Create; //Créer une instance de registre
avec registerTemp faire
commencer
RootKey:=HKEY_LOCAL_MACHINE;//Définissez la valeur de la clé racine sur HKEY_LOCAL_MACHINE
//Rechercher les sources de données SoftwareODBCODBC.INIODBC
si OpenKey('SoftwareODBCODBC.INIODBC Sources de données',True) alors
commencer //Enregistrer un nom DSN
WriteString( 'MyAccess', 'Pilote Microsoft Access (*.mdb)' );
fin
autre
début // Échec de la création de la valeur clé
memo1.lines.add('Échec de l'ajout de la source de données ODBC');
sortie;
fin;
FermerClé ;
//Trouver ou créer SoftwareODBCODBC.INIMyAccess et écrire les informations de configuration DSN
si OpenKey('SoftwareODBCODBC.INIMyAccess',True) alors
commencer
WriteString( 'DBQ', 'C:inetpubwwwroot est.mdb' );//Répertoire de la base de données
WriteString( 'Description', 'Ma nouvelle source de données' );//Description de la source de données
WriteString( 'Driver', 'C:PWIN98SYSTEModbcjt32.dll' );//Fichier DLL du pilote
WriteInteger( 'DriverId', 25 );//ID du pilote
WriteString( 'FIL', 'Ms Access;' );//Base du filtre
WriteInteger( 'SafeTransaction', 0 );//Nombre d'opérations de transaction prises en charge
WriteString( 'UID', ' );//Nom d'utilisateur
bDonnées[0] := 0;
WriteBinaryData( 'Exclusif', bData, 1 );//Mode non exclusif
WriteBinaryData( 'ReadOnly', bData, 1 );//Mode non lecture seule
fin
else // Échec de la création de la valeur clé
commencer
memo1.lines.add('Échec de l'ajout de la source de données ODBC');
sortie;
fin;
FermerClé ;
//Trouver ou créer SoftwareODBCODBC.INIMyAccessEnginesJet
//Écrire les informations de configuration du moteur de base de données DSN
si OpenKey('SoftwareODBCODBC.INIMyAccessEnginesJet',True) alors
commencer
WriteString( 'ImplicitCommitSync', 'Oui' );
WriteInteger( 'MaxBufferSize', 512 );//Taille du tampon
WriteInteger( 'PageTimeout', 10 ); //Délai d'expiration de la page
WriteInteger( 'Threads', 3 );//Le nombre de threads pris en charge
WriteString( 'UserCommitSync', 'Oui' );
fin
else // Échec de la création de la valeur clé
commencer
memo1.lines.add('Échec de l'ajout de la source de données ODBC');
sortie;
fin;
FermerClé ;
memo1.lines.add('Ajouter une nouvelle source de données ODBC avec succès');
Gratuit;
fin;
fin;
Le programme ci-dessus a été débogué et passé sous PWIN98+DELPHI3.0.
Voici les informations qui doivent être définies pour créer un DSN de types de bases de données courants ([] est le contenu du commentaire, à l'exception des commentaires spéciaux, chaque paramètre peut être vu dans la description précédente) :
1． Accès (Pilote Microsoft Access (*.mdb))
DBQ, Description, Pilote[odbcjt32.dll], DriverID[25], FIL[Ms Access;],
SafeTransaction[la valeur par défaut est 0], UID[la valeur par défaut est vide],
EnginesJetImplicitCommitSync[la valeur par défaut est Oui], EnginesJetMaxBufferSize[512 par défaut],
EnginesJetPageTimeout[la valeur par défaut est 512], EnginesJetThreads[la valeur par défaut est 3],
EnginesJetUserCommitSync [par défaut Oui]
Paramètres facultatifs : SystemDb[string, chemin d'accès à la base de données système],
ReadOnly[binaire, s'il faut ouvrir en mode lecture seule, 1 signifie oui, la valeur par défaut est 0],
Exclusif[binaire, s'il faut ouvrir en mode exclusif, 1 signifie oui, la valeur par défaut est 0],
PWD [chaîne, mot de passe utilisateur]
2. Excel (Pilote Microsoft Excel (*.xls))
DBQ[Excel97(=cheminxxx.xls), 5.0/7.0(=cheminxxx.xls), 4.0(=chemin), 3.0(=chemin)],
Description, pilote[odbcjt32.dll],
DefaultDir[Excel97(<>DBQ),5.0/7.0(<>DBQ),4.0(=DBQ),3.0(=DBQ)],
ID du pilote[790(Excel97), 22(5.0/7.0), 278(4.0), 534(3.0)],
FIL[Excel5.0;], Lecture seule, SafeTransaction, UID,
EnginesExcelImplicitCommitSync, EnginesExcelMaxScanRows[nombre, nombre de lignes analysées, la valeur par défaut est 8],
MoteursExcelThreads, MoteursExcelUserCommitSync,
EnginesExcelFirstRowHasName[binaire, si la première ligne est le nom de domaine, 1 signifie oui, la valeur par défaut est 1]
Remarque : DBQ d'Excel97 et Excel7.0/5.0 correspond à un fichier XLS, tandis qu'Excel4.0 et Excel3.0 correspondent à un répertoire ;
DefaultDir correspond à un répertoire, qui est le chemin correspondant à DBQ dans Excel97 et Excel7.0/5.0.
C'est la même chose que DBQ sous Excel4.0 et Excel3.0 ; le DriverID de chaque version est différent.
3. dBase (Pilote Microsoft dBase (*.dbf))
DefaultDir[string, répertoire où se trouve le fichier de base de données], Description, Driver[odbcjt32.dll],
ID du pilote[277(IV), 533(5.0)], FIL[dbase III;], SafeTransaction, UID,
MoteursXbaseImplicitCommitSync,
EnginesXbaseCollating[String, base de tri, peut être ASCII, International, Norvégien-Danois,
Suédois-finlandais],
EnginesXbaseDeleted[binaire, s'il faut ou non afficher les enregistrements supprimés de manière logicielle, 0 signifie affichage, la valeur par défaut est 1],
EnginesXbasePageTimeout[la valeur par défaut est 600], EnginesXbaseUserCommitSync,
EnginesXbaseThreads, EnginesXbaseStatistics [binaire, s'il faut utiliser le nombre approximatif de lignes, 1 est oui, 0 par défaut]
Remarque : (Le DriverId des deux versions de dBaseIV et dBase5.0 est différent)
4. Foxpro (Pilote Microsoft Foxpro (*.dbf))
DefaultDir[le répertoire où se trouve le fichier de base de données], Description, Pilote[odbcjt32.dll],
DriverID[536(2.6), 280(2.5)], FIL[Foxpro 2.0;], SafeTransaction, UID,
EnginesXbaseCollating[Chaîne, base de tri, peut être ASCII, International],
EnginesXbaseDeleted[binaire, s'il faut ou non afficher les enregistrements supprimés de manière logicielle, 0 signifie affichage, la valeur par défaut est 1],
EnginesXbasePageTimeout[la valeur par défaut est 600], EnginesXbaseUserCommitSync,
EnginesXbaseThreads, EnginesXbaseStatistics [binaire, s'il faut utiliser le nombre approximatif de lignes, 1 est oui, 0 par défaut]
Remarque : (Les DriverId de Foxpro2.5 et Foxpro2.6 sont différents)
Transformez le programme ci-dessus en un contrôle COM ou ActiveX, qui peut être utilisé dans de nombreux langages de programmation de haut niveau tels que DELPHI, C++Buider, VB, VC et PB.