Discussion :

[pio_killer]

Bonjour,

je voudrais renseigner une base ACCESS 2007 à partir d'une application développée sous visual studio 2008.

J'ai trouvé comment me connecter à ma base et lancer une requête mais je n'ai pas trouvé comment ajouter des enregistrements.

Voici mon code :

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
 
Public ADODB_Connect As New ADODB.Connection
Public ADODB_Connect_rst As New ADODB.Recordset
 
    Sub test3()
 
        '-----------------------  Ouverture de la base    -----------------------------
        'Définition du pilote de connexion
        ADODB_Connect.Provider = "Microsoft.ACE.OLEDB.12.0"
 
        'Définition de la chaîne de connexion
        ADODB_Connect.ConnectionString = "C:\test.accdb"
 
        'Ouverture de la base de données
        ADODB_Connect.Open()
        '------------------------------------------------------------------------------
 
        'On supprime tout
        ValSql = "Delete * From Table1"
        ADODB_Connect.Execute(ValSql)
 
        'ici, je voudrais créer une ligne, mais "ADODB_Connect_rst.AddNew()" ne marche pas
        ADODB_Connect_rst.AddNew()
 
 
        'Après je voudrais le lire
        'SELECT lum_extraction.VENDOR_NAME
        'FROM lum_extraction;
        ValSql = "SELECT Table1.mon_champ_01 " _
                & "FROM Table1;"
        ADODB_Connect_rst = ADODB_Connect.Execute(ValSql)
        ADODB_Connect_rst.MoveFirst()
        MsgBox(ADODB_Connect_rst.Fields("mon_champ_01").Value)
 
 
 
        'On ferme la base
        ADODB_Connect_rst.Close()
    End Sub

J'ai cherché mais sans succès.

Si quelqu'un a une idée ...

Merci d'avance.

[pio_killer]

J'ai enfin trouvé en m'inspirant de la méthode de création d'enregistrement dans vba ACCESS.

Si ça peu aider certains, voici le code :

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
 
 
    Public ADODB_Connect As New ADODB.Connection
    Public ADODB_Connect_rst As New ADODB.Recordset
 
    Sub test3()
 
        '-----------------------  Ouverture de la base    -----------------------------
        'Définition du pilote de connexion
        ADODB_Connect.Provider = "Microsoft.ACE.OLEDB.12.0"
 
        'Définition de la chaîne de connexion
        ADODB_Connect.ConnectionString = "C:\test.accdb"
 
        'Ouverture de la base de données
        ADODB_Connect.Open()
        '------------------------------------------------------------------------------
 
        'On supprime tout
        ValSql = "Delete * From Table1"
        ADODB_Connect.Execute(ValSql)
 
        'On ouvre la table
        ADODB_Connect_rst.Open("Table1", ADODB_Connect.ConnectionString, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        'On crée la ligne
        ADODB_Connect_rst.AddNew()
        'On renseigne les valeurs si besoin
        ADODB_Connect_rst.Fields("mon_champ_01").Value = "test"
        'On enregistre
        ADODB_Connect_rst.Update()
 
        'Après je voudrais le lire
        'SELECT lum_extraction.VENDOR_NAME
        'FROM lum_extraction;
        ValSql = "SELECT Table1.mon_champ_01 " _
                & "FROM Table1;"
        ADODB_Connect_rst = ADODB_Connect.Execute(ValSql)
        ADODB_Connect_rst.MoveFirst()
        MsgBox(ADODB_Connect_rst.Fields("mon_champ_01").Value)
 
        'On ferme la base
        ADODB_Connect_rst.Close()
    End Sub