Hello les amis! aujourd’hui je vais commencer à faire des posts sur Delphi, oui j’ai bien dit Delphi, je sais que c’est le langage utilisé par les dinosaures pour coder, mais vu qu’il est toujours utilisé en Algérie, surtout en TS ( Technicien supérieur ), je me suis dit que cela serait bien de partager mon savoir faire, surtout que moi même j’ai galéré pour trouver des informations utiles, spécialement tout ce qui concerne Delphi + SQL Server
Nous allons commencer aujourd’hui par une simple application qui fait simplement qu’afficher les données relatives à une table Clients, pour une première fois je vais expliquer étape par étape comment réaliser cela, c’est à dire de la création de la base de données sur SQL Server jusqu’à relier Delphi à SQL Server
Création de la base de données
Tout d’abord sur SQL Server aller au niveau de Nouvelle requête
Après vous allez avoir la possibilité d’insérer votre code
Maintenant nous pouvons enfin créer notre base de données
Sélectionner le code puis cliquez sur Exécuter ou sinon vous pouvez appuyer sur la touche F5
L’étape suivante et de cliquer sur la liste déroulante ou il y a master et de sélectionner le nom de la base de données que vous avez créer, par exemple dans notre cas ici c’est MY_BDD
Après la sélection, vous exécuter le code suivant afin de créer la table client + l’insertion des données
Si tout s’est déroulé correctement, normalement maintenant nous sommes prêt à aller vers l’application Delphi
Connectez Delphi à SQL Server
De mon côté j’utilise Delphi XE7 en Anglais, normalement cela ne devrait pas vous poser de problème, ce n’est pas difficile à comprendre, malgré que je vous recommande fortement d’utilisé l’IDE en anglais, cela vous serez vraiment utile dans votre recherche le cas où vous auriez une erreur.
Bref revenons à nos moutons, vous faîtes File -> New -> VCL Forms Application – Delphi
Vous allez normalement avoir le même résultat que moi
Bien maintenant nous allons faire en sorte de permettre à Delphi de se connecter à SQL Server.
Tout d’abord, en bas à droite, recherchez les éléments suivants :
ADOConnection, ADOTable, DataSource et copiez au niveau de votre Form ( c’est du Drag and Drop ), vous allez avoir le résultat suivant :
Cliquez sur ADOConnection1 et allez sur ConnectionString et cliquez sur les trois petits points
Sélectionnez la deuxième option et cliquez sur Build
Sélectionnez la dernière option, c’est à dire SQL Server Native Client 11.0
Vous allez avoir cela :
Comment faire pour avoir le nom du serveur ?
C’est très simple, allez au niveau de SQL Server, puis à l’explorateur d’objets
Sélectionnez le premier élement et vous faîtes Clique droite -> Propriétés
Vous copiez le nom au niveau de Delphi comme je l’ai fait, et vous sélectionnez notre base de données MY_BDD
Super, maintenant nous allons relier notre ADOTable1 avec notre ADOConnection1, pour cela il faut aller au niveau de l’inspecteur d’objet de notre ADOTable et de sélectionner Connection et de sélectionner ADOConnection1
Même chose pour notre DataSource1, vous allez sur DataSet et vous sélectionner ADOTable1
Depuis la Tool Palette qui se trouve en bas à droite, vous insérez dans votre Form DBNavigator & DBGrid et au niveau de leurs propriétés, je parle de DataSource, vous sélectionnez DataSource1
A ce stage là, il y a quelques réglages à faire pour que tout fonctionne correctement et qui sont les suivants :
- Au niveau de ADOConnection1 mettez la propriété LoginPrompt a false
- Sur ADOTable1 au niveau de TableName, sélectionnez Clients et pour la propriété Active mettez la à true
Normalement si vous avez tout juste, vous allez obtenir ce résultat
Maintenant cliquez sur l’icône verte pour lancer l’application et admirez le résultat
Vous pouvez même ajouter/modifier/supprimez des clients, c’est trop cool non ?
Bref voilà pour cette fois, j’ai essayé de mettre le plus de détails possible afin que vous puissiez arriver au même résultat que moi, je doute que je vais garder ce genre de format de post, peut-être que faire des vidéos est plus approprié ? dites-moi ce que vous en penser par le biais des commentaires ou en utilisant ceci ! à la prochaine !
Pingback: Créer une jointure sur deux tables avec Delphi - Technicien Supérieur
Très bien expliqué, Bravo!
Je vous remercie infiniment, au fond c’est grâce aux connaissances que j’ai acquis chez vous qui m’ont permis de faire ce post
De rien, et bon courage!
#la_chance_na_rien_avoir :p
Bonjour Tous le Monde,
J’ai développer une application avec delphi7 et sql server 2008 qui se communiquent par in fichier INI. tous marchent très bien.
ini files:
[Parametre de Connection]
provider=SQLOLEDB.1
Integrated Security=SSPI
Trusted_Connection=Yes
Initial catalog=SQL_UMC
Data Source=10.15.60.2\SQLEXPRESS
le problème que j’ai changer de machine, j’ai installer SQL server 2008 je me connecte a la BDD sans problème avec sql server management studio. j’ai cree tous le connexion.
Mais quand j’execute mon programme delphi il m’affiche une erreur
‘[DBNetLib][ConnectionOpen] Ce serveur n’existe pas ou accès refusé’
je clique sur Ok il me refait le même message et la 2 eme fois quand je clique sur ok il se connecter le plus normalement du monde.
pouvez vous m’aider s’il vous plait pour savoir comment remédier a cette erreur.
Merci d’avance.
cordialement
Salut Krazem,
Qu’avez-vous utiliser pour la connexion entre la BDD et Delphi ? AdoConnection ? ou autre ?
salut Fayçal
oui j’ai utilise ADOconnection, et je fait l liaison par’un fichier INI
[Parametre de Connection]
provider=SQLOLEDB.1
Integrated Security=SSPI
Persiste Security Info=False
Trusted_Connection=Yes
Initial catalog=SQL_UMC
Data Source=10.15.60.2\SQLEXPRESS
Et avez-vous essayer de faire la liaison en utilisant la propriété ConnectionString ? juste pour voir si cela fonctionne
AdoConnection
Oui cela fonctionne parfaitement avec connectionString mais avec le fichier ini ça fait l’erreur que j’ai citée.
Franchement sur ce coup la, aucune idée car j’utilise toujours ConnectionString pour faire la liason.
Mais quel est l’intêrét de passer par le fichier INI alors qu’avec ConnectionString cela fonctionne bien ?