Pilotage base Access

Version imprimable

Bonjour, a tous

Je cherche a piloter une base de donnée Access, avec un script VB.NET.
Je but actuellement sur un problème, je charge une colonne de ma base de donnée dans une combobox sans problème, par contre quand je sélectionne un nom dans la combo box, j'aimerais lire la ligne et récupère les donnée dans des variables, mais cela ne marche pas car je n'arrive pas a identifier la clef primaire de la ligne a lire.

Voici mon code et merci par avance de votre aide :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim BaseCnx As New OleDbConnection
Dim BaseCmd As OleDbCommand
Dim BaseDta As OleDbDataAdapter
Dim BaseDts As New DataSet
Dim BaseSql As String
Dim BaseDtt As DataTable
Dim BaseDtr As DataRow
Dim BaseRownum As Integer
Dim BaseCnxStr As String
Dim BaseCmdb As OleDbCommandBuilder
 
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged 'lecture info
'attribution variable
Dim VARLIGN As Integer
Dim VAR001 As String
Dim VAR002 As String
'ouverture base
BaseCnxStr = "provider = microsoft.ACE.OLEDB.12.0 ; data source = C:\Cmc Interface 2020\BASE_CMC.accdb"
BaseCnx = New OleDbConnection
BaseCnx.ConnectionString = BaseCnxStr
BaseCnx.Open()
'selection table
BaseSql = "select CONTACT.* from CONTACT"
BaseCmd = New OleDbCommand(BaseSql)
BaseDta = New OleDbDataAdapter(BaseCmd)
BaseCmd.Connection() = BaseCnx
BaseDta.Fill(BaseDts, "CONTACT")
BaseDtt = BaseDts.Tables("CONTACT")
'recuperation info ligne
BaseDtr = BaseDts.Tables("CONTACT").Rows(BaseRownum)
VARLIGN = (BaseRownum - 1)
'lecture base
VAR001 = BaseDtt.Rows(VARLIGN).Item("NOM") ### LIGNE IDENTIFIE EN ERREUR
VAR002 = BaseDtt.Rows(VARLIGN).Item("PRENOM")
'affichage des infomation
TextBox1.Text = VAR001
TextBox2.Text = VAR002
End Sub

Bonsoir,

Dta, Dtt, Dts, Dtr ... ça fait beaucoup ... :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
' ... ... ...
        BaseDtt = New DataTable
 
BaseCnxStr = "provider = microsoft.ACE.OLEDB.12.0 ; data source = C:\Cmc Interface 2020\BASE_CMC.accdb"
BaseCnx = New OleDbConnection
BaseCnx.ConnectionString = BaseCnxStr
' !!!!!!!!!!!   BaseCnx.Open()       ===========>     pas besoin d'OPEN quand usage du DataAdapter
 
BaseSql = "select CONTACT.* from CONTACT"
' ********** BaseCmd = New OleDbCommand(BaseSql)
BaseDta = New OleDbDataAdapter(BaseSql, BaseCnx)
'BaseCmd.Connection() = BaseCnx
 
BaseDta.Fill(BaseDtt)
BaseDtt.TableName = "CONTACT"  ' superflu car avec Access, le nom de la table sera récupéré par de BaseDta. Mais pss interdit.
BaseDts.Tables.Add(BaseDtt)
' ... ... ...
 
ComboBox1.DataSource = BaseDts.Tables("CONTACT")
ComboBox1.DisplayMember = "NOM"    '  A conditon que ce soit bien le nom du champ dans la DB
' ...
TextBox1.DataBindings.Add("Text", BaseDts.Tables("CONTACT"), "NOM")   ' écrire ici le nom du champ à montrer dans cette TextBox
TextBox2.DataBindings.Add("Text", BaseDts.Tables("CONTACT"), "PRENOM")  ' idem 
 
' ... ... ...

Ne pas mettre ce code dans la procédure ComboBox1_SelectedIndexChanged ....
Eventuellement dans le Form_Load ou dans la procédure événementielle du click d'un bouton "Charger données", par exemple.

Si ça ne va pas, envoie le projet avec la DB (un jeu d'enregistrement de test).

... :D

18/01/2021, 07h48
Ares-60

Merci pour ta réponse, toutefois :

Le code ne marche pas dans mon programme.
Je souhaite absolument garder cette action, sur le ComboBox1_SelectedIndexChanged ....

Enfin dans ton code la donnée est réutilisé de suite pour être mise dans une textbox, alors que moi je souhaiterais pouvoir les récupéré ces données dans des variables.
18/01/2021, 09h09
Phil Rob

Bonjour,

Citation:

Enfin dans ton code la donnée est réutilisé de suite pour être mise dans une textbox, alors que moi je souhaiterais pouvoir les récupéré ces données dans des variables.

Cela, c'est du détail.

Citation:

Je souhaite absolument garder cette action, sur le ComboBox1_SelectedIndexChanged ....

Il est absolument inapproprié de rechercher dans la DB, une info qui a déjà été lue, chaque fois qu'on "tripote" la ComboBox.

Si tu précise mieux ton objectif et que tu envoies ton projet avec un jeu d'enregistrement pour les tests, j'arriverai peut-être à faire mieux.

Mais, c'est comme tu veux ... :)
26/01/2021, 09h38
Ares-60

1 pièce(s) jointe(s)

Pour l'instant je fait juste des script d'essai pour apprendre a commander la base access a partir de VB.NET.

Je te joint mon code et la BD, pour la fonction concerner je vaut choisir un nom dans la combobox et afficher le donne dans des textbox
26/01/2021, 10h44
Phil Rob

2 pièce(s) jointe(s)

Bonjour,

J'ai chargé ton projet mais je n'aurai sans doute pas de temps pour l'examiner avant demain soir.

En fait, je ne suis pas sûr de bien comprendre ce que tu entends par "Piloter" la DB. S'il s'agit de gérer les données stockées en DB, l'exemple suivant te servira peut-être : Pièce jointe 589346.
Excuse-moi, il est écrit en espagnol (pas le VB ... :D), mais c'est plutôt facile à traduire vu le contexte et puis, en cas de besoin, je peux expliquer ...

Pour l'exécuter, il faut changer la chaine de connexion, elle sera forcément différente sur ton PC :
Pièce jointe 589347

Bonne journée ...
27/01/2021, 08h26
Phil Rob

Bonjour,

J’ai eu un peu de temps ce matin … :D

Si tu le permets, je vais oser une petite critique sur la DB. Le champ « nom complet » ne doit pas exister puisque ses valeurs peuvent être à tout moment reconstituées par les champs « nom » et « prénom » : NomComplet = Nom & « » & Prenom. Il faut toujours éviter les répétitions superflues, les redondances.

Rapport à ton programme, le projet exemple que je t’ai envoyé te montre suffisamment (je crois) comment gérer les données stockées en DB.
Tu auras pu voir que je ne lis qu’une seule fois la DB (un seul SELECT) pour dispatcher ensuite les différentes infos dans les zones qui leur sont destinées. Il est donc hors de question de relire la DB à chaque changement de sélection dans le ComBox.
En lisant ton code, je vois que tu as intégré ma proposition de code de l’autre jour (dans la procédure ComboBox1_SelectedIndexChanged … :() mais cela ne donne pas le résultat que tu attends.
Mon problème ici est de comprendre en quoi consiste ce résultat que tu attends.

Il me semble que pour une gestion de contacts, si on en choisit un sur base de son nom (par exemple) présenté dans un ComboBox, les autres zones d’affichage doivent présenter les autres infos de ce contact. Inutile de re-présenter son nom puisqu’il est déjà affiché dans le ComBoBox.
Dans le cas précis de tes contacts, qui ne sont constitués jusqu’à présent que de 2 champs significatifs, le nom et le prénom, si on présente les noms dans le ComboBox, un seul TextBox doit suffire pour montrer le prénom du contact sélectionné dans ce ComboBox.
Il est normal que le ComboBox ait une sélection dès son remplissage, mais cette sélection pourrait être annulée. Nous serions alors dans cette situation où le ComboBox présente un nom (le premier de tous) dans sa zone de texte et où le TextBox du prénom serait vide. Il faudrait absolument sélectionner ce contact déjà présenté pour voir apparaître son prénom. A quoi bon ? Mias il s’agit là d’aspect d’ergonomie.

Enfin, outre ces aspects d’ergonomie, il faut absolument réorganiser les codes (en t’inspirant du projet que je t’ai envoyé, par exemple).

Très bonne journée ... :D
27/01/2021, 18h00
Phil Rob

2 pièce(s) jointe(s)
Suite ...

Comme il me restait un peu de temps cet après-midi :D, j’ai retravaillé le projet que tu m’as envoyé pour le structurer « dans le bon sens ». Il ne fait rien de plus, rien de moins, il est épuré des variables inutilement répétées et rendu plus lisible. Voici ce projet modifié : Pièce jointe 589490
Ne pas oublier de modifier la chaine de connexion selon ton système (3ème ligne du code).
A propos de lisibilité, je me suis permis de renommer quelques trucs. Pour assurer une lisibilité confortable des codes, il convient de nommer les composants et les variables avec des mots représentatifs. L’utilisation des majuscules et minuscule rend ces noms faciles à lire, par exemple : NomTableContacts.
Outre les variables, j’ai renommé :
- Form1 ==> FGestContacts
- ComboBox1 ==> CBContacts
- TextBox1 ==> TBNom
- TextBox2 ==> TBPrenom
- Button1 ==> BCharger
Et j’ai supprimé Button2.

J’espère que ceci te permettra d’avancer …

Pièce jointe 589491