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 : Sélectionner tout - Visualiser dans une fenêtre à part
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