Connection a une base ODBC avec VB 2005

Question

Bonjour,

J aimerais me connecter a une base ODBC pour pouvoir y lire des donnes que je veux afficher dans des textbox.
J ai bien compris que pour me connecter il me fallais utiliser ADO, j ai donc creer un bouttons dans mon document et lui est ajouter le code des READER.
Il ne me reste plus (je l espere) qu a me connecter a cette base a l aide du login et du mot de passe que l utilisateur aurra entrer ... et c est la que je ne sais absolument pas faire (je commence en VB pour depanner ma carriere (le patron en a besoin, et moi j ai besoin de sous pour manger :( )).
QQ peux t il me donner un tuyau ?

Merci d avance

sadok_sa · Answer

slt 1) il faut importer les biblio qui vont permettre d’utiliser ado.net : ( à mettre tout en haut ) Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic 2) il faut déclarer les variables : (au dessus de form_load) 'Déclaration de la variable pour la connection Private cnx As OleDbConnection 'Déclaration de la variable pour la commande Private cmd As OleDbCommand 'Déclaration de la variable pour le dataadapter Private dta As OleDbDataAdapter 'Déclaration de la variable pour le dataset PrivatedtsAs NewDataset 'Déclaration de la variable pour la requête Private sql As String 'Déclaration de la variable pour la datatable Private dtt As DataTable 'Déclaration de la variable pour le datarow Private dtr As DataRow 'Déclaration de la variable pour le Nº de l’enregistrement Private rownum As Integer 'Déclaration de la variable pour la connectionstring Private cnxstr As String 'Déclaration de la variable pour le commandbuilder Private cmdbAs OleDbCommandBuilder Command (cmd) : permet par le biais d’une requête de récupérer tout ou partie des données de la table. Dataadapter (dta) : reçoit les données de la commande (cmd) et les envoies au dataset (dts) Datatable (dtt) :le dataset renvoie les données dans la datatable , qui va permettre de récupérer le nº d’enregistrement sur lequel on est placé grace au Nº de ligne (rownum) Commandbuilder (cmdb) : il va récupérer les données modifiées et les renvoyer au dataadapter pour recréer le dataset avec les nouvelles données 3) dans form_load on va créer la connection , la commande , le dataadapter , le dataset et la datatable afin de pouvoir ajouter , modifier , supprimer des données dans la table. Afin de ne pas devoir déplacer la base de données on la place dans le répertoire bin du projet et on déclare la connection à la BD de cette façon : 'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne cnxstr "provider microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\base.mdb;" cnx = New OleDbConnection cnx.ConnectionString = cnxstr cnx.Open() 'Création de la requête sql sql = "select table.* from table" 'Création de la commande et on l'instancie (sql) cmd = New OleDbCommand(sql) 'Création du dataadapter (dta) et on l'instancie (cmd) dta = New OleDbDataAdapter(cmd) 'On instancie la commande (cmd) à la connection (cnx) cmd.Connection() = cnx 'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta) dta.Fill(dts, "table") 'On charge la datatable (dtt) grace à la propriété tables du dataset (dts) dtt = dts.Tables("table") Remarque concernant la requête sql : Select table.* from table Table est le nom de la table et " table.* " signifie sélectionner tous les champs de la table 4) Pour pouvoir séléctionner et afficher des données on va se servir de la variable rownum qui va contenir le Nº de ligne (ou d'enregistrement) sur lequel nous serrons placés dans la datatable (dtt)et que ces lignes vont de 0 (premier enregistrement) à rows.count-1 (dernier enregistrement). Pour afficher un enregistrement , dans des textbox , on utilisera la syntaxe suivante : Me.txt1.text = dtt.Rows (rownum).Item("champ1") Me.txt2.text = dtt.Rows (rownum).Item("champ2") Pour ce déplacer dans les enregistrements , on utilisera les syntaxes suivantes suivies de la syntaxe d'affichage données : Premier : rownum = 0 Précédent : rownum -= 1 Suivant : rownum += 1 Dernier : dtt.Rows.Count - 1 Pour vérifier si la table contient des enregistrements on utilisera cette syntaxe : 'si la table est vide alors If rownum > dtt.Rows.Count - 1 Then Remarque : Dans chaque boutons de navigation il faudra utilisé une condition pour afficher les données, car si l'on clique sur le bouton suivant et que l'on est sur le dernier enregistrement etc…cela génèrera une erreur. Exemple pour le bouton précédent : 'si début du fichier ou table vide message et sortie de procédure If rownum = 0 Or rownum > dtt.Rows.Count - 1 Then MessageBox.Show etc.... Exit Sub Else 'aller à la ligne précédente rownum -= 1 'affichage des données dans les textbox Me.txt1.text = dtt.Rows (rownum).Item("champ1") Me.txt2.text = dtt.Rows (rownum).Item("champ2") End if 5) On va donc afficher le premier enregistrement , si la table n'est pas vide , en plaçant ce code dans le form_load : 'si la table est vide alors If rownum > dtt.Rows.Count - 1 Then 'Sortie de procédure Exit sub 'Sinon affichage des données dans les textbox Else Me.txt1.text = dtt.Rows (rownum).Item("champ1") Me.txt2.text = dtt.Rows (rownum).Item("champ2") End If 6) Pour ajouter un enregistrement on utilisera cette syntaxe : 'crátion d'une nouvelle ligne avec les données des textbox dtr = dts.Tables("table").NewRow dtr("champ1") = Me.txt1.Text dtr("champ2") = Me.txt2.Text 'ajout de la ligne dans le DataSet dts.Tables("table").Rows.Add(dtr) 'création et exécution du commandbuilder pour mettre à jour le DataAdapter cmdb = New OleDbCommandBuilder(dta) 'mise à jour des données du dataadapter(dta)à partir du commandbuilder (cmdb) dta.Update(dts, "table") 'on vide le dataset pour le recréer avec les nouvelles données dts.Clear() dta.Fill(dts, "table") dtt = dts.Tables("table") 7) Pour modifier un enregistrement on utilisera cette syntaxe : 'récupération de la ligne sur laquel on est placés dans le datarow dtr = dts.Tables("table").Rows(rownum) 'modification des données dtr("champ1") = Me.txt1.Text dtr("champ2") = Me.txt2.Text 'création et exécution du commandbuilder pour mettre à jour le DataAdapter cmdb = New OleDbCommandBuilder(dta) 'mise à jour des données du DataAdapter à partir du commandbuilder dta.Update(dts, "table") 'on vide le dataset pour le recréer avec les nouvelles données dts.Clear() dta.Fill(dts, "table") dtt = dts.Tables("table") 8)Pour supprimer un enregistrement on utilisera la syntaxe suivante: 'suppression de la ligne en cours dts.Tables("table").Rows(rownum).Delete() 'création et exécution du commandbuilder pour mettre à jour le DataAdapter cmdb = New OleDbCommandBuilder(dta) 'mise à jour des données du DataAdapter à partir du commandbuilder dta.Update(dts, "table") 9)Pour fermer les objets et les connections on utilisera ces syntaxes : cnx = Nothing dts = Nothing 10) Il ne vous reste plus qu'a gérer l'activation et la désactivation des boutons dans chaque procédure et autres finitions(null , msgbox ,etc…..) [:D]

neurone84 · Answer

Super, ca c est de la reponse :)
Merci bcp, je test ca des demain matin (ca va me prendre du temps) ... En tout les cas merci bcp du temps que vous avez pris et de votre pedagogie :)

neurone84 · Answer

Apres quelques essait, voici une autre question qui se pose a moi :

Le but est de ce connecter a une base DB2 se trouvant dans ODBC, ici il faut indiquer le chemin de la base en dur (j aurrais aimer une possibilite de pouvoir entrer un mot de passe et un login de meme) ...

Pouvez vous (SVP) m aider de nouveau, je penses que pour afficher dans une textbox, votre code est tout a fait bon.

voici peut etre une meilleur explication en image de se que je veux faire :
L utilisateur se connecte avec son login et password, selon les parametre qu il a entrer dans la part "your contract" il  va voir les informations apparaitre dans les autres champs :

De noiuveau : Merci bcp

Connection a une base ODBC avec VB 2005

3 réponses

Votre réponse

Discussions similaires