bonsoir,

pour écrire dans une base de donnée voici ma procédure module:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 
Imports System.Data
 
Imports System.Data.OleDb
 
 
Module ACCES_BASE_ACCESS
 
    '  Déclaration Objet Connexion
 
    Public ObjetConnection As OleDbConnection
 
    ' Déclaration Objet Commande
 
    Public ObjetCommand As OleDbCommand
    Public ObjetCommand1 As OleDbCommand
    Public ObjetCommand2 As OleDbCommand
    Public ObjetCommand3 As OleDbCommand
    Public ObjetCommand4 As OleDbCommand
 
 
    '  Déclaration Objet DataAdapter
 
 
    Public ObjetDataAdapter As OleDbDataAdapter
 
    ' Déclaration Objet DataSet
 
    Public ObjetDataSet As New DataSet() 'Attention au New
 
    'String contenant la 'Requête SQL'
 
    Public strSql As String
 
    ' Déclaration Objet DataTable
 
    Public ObjetDataTable As DataTable
 
    ' Déclaration Objet DataRow (ligne)
 
    Public ObjetDataRow As DataRow
 
    'Numéro de la ligne en cours
 
    Public RowNumber As Integer    'Numéro de l'enregistrement courant
 
    'Paramêtres de connexion à la DB
 
    Public strConn As String
 
    'Pour recompiler les données modifiées avant de les remettre dans le
 
    '"DataAdapter"
 
    Public ObjetCommandBuilder As OleDbCommandBuilder
 
End Module
et le code du click:

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
 
 
Imports System.Data.OleDb
 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
               strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\test\test.mdb;"
 
        ObjetConnection = New OleDbConnection
 
        'Donner à la propriété ConnectionString les paramètres de connexion
 
        ObjetConnection.ConnectionString = strConn
 
        'Ouvrir la connexion
 
        ObjetConnection.Open()
 
        'Instancier un objet Commande
 
        ObjetCommand = New OleDbCommand 'Lier Commande et Connexion
        ObjetCommand.Connection = ObjetConnection 'Indiquer le type de commande
        ObjetCommand.CommandType = CommandType.Text 'Donner le texte de la commande SQL
        ObjetCommand.CommandText = "UPDATE appli SET application= 'c:\test' WHERE application='C:\test\test.exe'"
        'CInt() si ID est entier.
        'on exécute la commande
        ObjetCommand.ExecuteNonQuery()
 
        'Fermer la connexion
 
        ObjetConnection.Close()
 
    End Sub
voici ma question : j'utilise "UPDATE" pour mettre a jour une ligne "d'application" selon "WHERE"

J'aimerais maintenant faire le contraire récupérer la valeur "d'application" selon la condition "WHERE" et la copier dans une variable... que j'ai créé " DIM Recup AS STRING"

si quelqu'un a une astuce pour m'aider, merci