Modifier table access avec VB

Version imprimable

Bonjour à tous, je suis débutant en Visual Basic et je suis déjà confronté a un problème :
J´ai crée une table dans Access que je souhaite remplir grâce a un code Visual Basic :
Code:

1 2 3 4 5 6 7 8 1. Private Sub Form_Current() 2. Dim strConnect, strsql As String 3. strConnect = "DSN=MyDSN" 4. Set objConn = New ADODB.Connection 5. objConn.Open strConnect 6. strsql = "INSERT INTO T_TEST(REF, DESIGN) VALUES(´ & F_ARTICLE.AR_REF & ´, ´ & F_ARTICLE.AR_DESIGN & ´ ) ¨ 7. MsgBox ¨Fin¨ 8. End Sub
Le problème, c´est qu´à l´exécution, j´ai une erreur d´exécution ´-214721865 (80040e37´ :
[Simba][SimbaEngine ODBC DRIVER][DRM File Library]No such table or object.

Ce qui signifierait que ma table ¨T_TEST¨ n´existe pas ?
Si c´est le cas, comment puis-je corriger le problème svp ?

Merci de vos réponses.

J'ai modifié le code afin de créer en direct dans le code la table T_TEST, mais je tombe sur une nouvelle erreur :

Erreur de compilation:
instruction incorrecte à l'extérieur d'un bloc de type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Current()
 
Dim strConnect, strsql As String
Dim dbs As Database
tbl As TableDef
fld As Field
 
 
strConnect = "DSN=MyDSN"
'strConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb;"
Set objConn = New ADODB.Connection
objConn.Open strConnect
 
tbl = dbs.CreateTableDef("T_TEST")
Set fld = tbl.CreateField("REF", dbText)
Set fld = tbl.CreateField("DESIGN", dbText)
 
strsql = "INSERT INTO T_TEST(REF,DESIGN) VALUES(' & F_ARTICLE.AR_REF & ',' & F_ARTICLE.AR_DESIGN & ')"
objConn.Execute strsql
 
MsgBox "fin"
End Sub

Bon je me suis dit que ca venait sans doutes de la base T_TEST, access va la chercher dans la base de donnee connectee via ADODB et non pas en local.
Alors j'ai modifie mon code pour donner ca :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Form_Current() Dim strConnect, strsql As String Dim dbs As Database strConnect = "DSN=MyDSN" Set objConn = New ADODB.Connection Set dbs = CurrentDb() Set rst = dbs.OpenRecordset("T_TEST") strsql = "INSERT INTO T_TEST(REF, DESIGN) VALUES(" & F_ARTICLE.AR_REF & ", " & F_ARTICLE.DESIGN & ")" objConn.Execute strsql MsgBox "fin" End Sub[
Sauf que je retombe sur une erreur 424, objet requis ...

help svp !

26/08/2010, 14h46
Jean-Philippe André

Bonjour,
bienvenue sur DVP :salut:
ton code suit la bonne direction.

Ta connection n'est pas lancee, vu que ta chaine de DSN n'est pas encore utilisee.

Je peux te recommander la lecture de ce tutoriel :
http://ledzeppii.developpez.com/odbc-access/

Tu y trouveras l'exemple qui te permettra de resoudre ton probleme.

J'en profite pour t'indiquer que de nombreuses ressources sont a ta disposition, notamment une :faq:
http://access.developpez.com/faq
et des cours
http://access.developpez.com/cours

Bon courage :ccool:
26/08/2010, 14h51
greg360

Merci beaucoup pour ton aide, ça va sans doutes m'aider !
27/08/2010, 11h20
greg360
Bonjour, mon maitre de stage vient de me dire que je ne devais PAS utiliser DSN pour me connecter, alors je passe par OLEDB, mais je ne sais pas si la connexion se fait correctement, comment je peux tester rapidement si je suis bien connecte ?
Code:

1 2 3 4 5 6 7 8 9 Private Sub From_Current() Dim strConnect As String strConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb" objConn.Open strConnect MsgBox "fin" End Sub

salut jpcheck et bienvenu greg360,
Code:

1 2 3 4 5 On Error Resume Next Set objConn = New ADODB.Connection strConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb" objConn.Open strConnect If objConn.State = adStateOpen Then MsgBox "connexion établie"
cf <F1>

cela dit faire un "insert into" sur l'événement current??? 8O
;)

27/08/2010, 15h46
greg360

Je rentre dans la condition, donc la connexion est établie. Mais j'ai une erreur 424 objet requis sur la requête sql...
L'insert into sert a remplir les 2 champs de la table T_TEST que j'ai crée dans access (donc présente dans toto.accdb en théorie) avec 2 champs d'une table déjà existante.
27/08/2010, 16h39
Jean-Philippe André

salut,

peux-tu stp nous indiquer le code complet auquel tu es arrive jusqu'a present, et nous preciser les types des champs de la table dans laquelle tu souhaites faire tes insertions ?

Il est probable qu'il y ait des champs texte, dont les valeurs doivent etre encadrees par des '. :ccool:

Voici le code complet :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Form_Current() Dim strConnect As String Dim strsql As String strConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb;" Set objConn = New ADODB.Connection objConn.Open strConnect If objConn.State = adStateOpen Then MsgBox "connexion etablie" strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES ([Liste articles]![AR_REF],[Liste articles]![AR_DESIGN])" objConn.Execute (strsql) MsgBox "fin" End Sub
Il s'agit de la copie de deux champs d'une table qui s'appelle F_ARTICLE dans une table T_TEST. La table F_ARTICLE est dans une base de donnée ajoutée grace au driver ODBC. Mon maitre de stage ne veut pas que j'utilise le system DSN. J'initialise donc la connexion grace a OLEDB. La connexion se passe bien.
La requete sql n'a plus d'erreurs de syntaxe mais j'ai une erreur a son execution : "aucune valeur donnée pour un ou plusieurs des paramètres requis"

Merci pour votre aide les gars.

27/08/2010, 17h50
Jean-Philippe André

ok,
peux-tu nous indiquer a quoi [Liste articles]![AR_REF] fait reference stp ?

Est-ce un formulaire ?

Essaie plutot

Code:

strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (" & [Liste articles]![AR_REF] & "," & [Liste articles]![AR_DESIGN] & ")"

ou les variantes

Code:

strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES ('" & [Liste articles]![AR_REF] & "','" & [Liste articles]![AR_DESIGN] & "')"

selon les types de tes champs
27/08/2010, 17h55
greg360

F_ARTICLE est un formulaire via connexion DSN système et [Liste articles] est une table créée a partir du formulaire F_ARTICLE

[Liste article]![AR_REF] est un champ de type texte qui contient les références des produits.

si je fais les modifications de syntaxe de la requete (" & ...) j'ai une erreur au niveau de la requete : 2465 NomDuDSN ne trouve pas le champ "|" auquel il est fait référence dans votre expression

Après avoir bien réfléchi ce week-end, j'ai trouve le problème, et c'est un problème complètement stupide...

La table F_ARTICLE est sur le DSN et je m'y connecte via ADO, mais la table T_TEST est une table que j'ai créé dans Access, donc je dois m'y connecter avec une autre strConnect.

Mais je ne sais pas comment je peux faire pour me connecter a 2 sources différentes .. Et surtout comment faire pour faire un execute(strsql) en utilisant 2 variables de connexion ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 1. Private Sub Form_Current() 2. Dim strConnect, strConnect2, strsql As String 3. Dim dbCPTA As ADODB.Connection 4. 5. strConnect = "DSN=MyDSN" 6. strConnect2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Demo\toto.accdb" 7. 8. Set dbCPTA = New ADODB.Connection 9. dbCPTA.Open = strConnect 10. 11. strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (F_ARTICLE.AR_REF,F_ARTICLE.AR_DESIGN)" 12. dbCPTA.Execute (strsql) 13. 14. dbCPTA.Close 15. Set dbCPTA = Nothing 16. MsgBox "Fin" 17. End Sub
J'ai teste la syntaxe ci dessus dans un SELECT avec 1 seule source et c'est celle ci qui fonctionne. La question que je me pose, c'est, comment je peux faire pour faire un open de strConnect2 ? Refaire un Set dbCPTA = New ADODB.Connection ?

Je pense avoir trouvé un moyen de me connecter au DSN et a ma base access :

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
1.Private Sub Form_Current()
2.
3.Dim strConnect, strConnect2 As String
4.Dim strsql As String
5.Dim dbCPTA As ADODB.Connection
6.Dim dbCPTA2 As ADODB.Connection
7.
8.Dim var_ref As String
9.Dim var_design As String
10.
11.strConnect2 = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb;"
12.strConnect = "DSN=MyDSN"
13.Set dbCPTA = New ADODB.Connection
14.Set dbCPTA2 = New ADODB.Connection
15.
16.dbCPTA.Open strConnect
17.dbCPTA2.Open strConnect2
18.
19.
20.strsql = "SELECT F_ARTICLE.AR_REF AS var_ref, F_ARTICLE.AR_DESIGN AS var_design FROM F_ARTICLE"
21.dbCPTA.Execute (strsql)
22.
23.MsgBox var_ref
24.MsgBox var_design
25.
26.strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (F_ARTICLE.AR_REF,F_ARTICLE.AR_DESIGN)"
27.dbCPTA.Execute (strsql)
28.
29.dbCPTA.Close
30.Set dbCPTA = Nothing
31.dbCPTA2.Close
32.Set dbCPTA2 = Nothing
33.
34.
35.MsgBox "fin"
36.
37.End Sub

Le seul problème pour l'instant, c'est que je ne peux pas voir les valeurs de var_ref et var_design, les msgbox sont vides..
Comment faire pour checker leur valeur ?

31/08/2010, 15h07
greg360

Problème résolu, en parfait noobie, je ne connaissait pas l'existence des recordset ;)

Je ne met pas encore la bannière "[RESOLU]" car j'aurais encore quelques questions plus tard !

Le problème de modification de table via code vb est résolu merci a tous de m'avoir aidé

Edit : Je poste quand meme le code résolu :p

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
1.Private Sub Form_Current()
2.
3.Dim strConnect, strConnect2 As String
4.Dim strsql As String
5.Dim dbCPTA As adodb.Connection
6.Dim dbCPTA2 As adodb.Connection
7.
8.'declaration des recordsets
9.Dim rst As New adodb.Recordset
10.Dim rst2 As New adodb.Recordset
11.
12.'ouverture + connection au DSN "MyDSN"
13.strConnect = "DSN=MyDSN"
14.Set dbCPTA = New adodb.Connection
15.dbCPTA.Open strConnect
16.
17.'ouverture + connection à la BDD
18.Set dbCPTA2 = New adodb.Connection
19.strConnect2 = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb;"
20.dbCPTA2.Open strConnect2
21.
22.'reset de la table T_TEST
23.DoCmd.SetWarnings False
24.DoCmd.RunSQL "DELETE * FROM T_TEST"
25.DoCmd.SetWarnings True
26.
27.'récupération des champs necessaires dans le recordset
28.rst.Open "SELECT F_ARTICLE.AR_REF ,F_ARTICLE.AR_DESIGN  FROM F_ARTICLE", dbCPTA
29.rst.MoveFirst
30.
31.'boucle d'insertion des valeurs du recordset dans la table vide T_TEST
32.While Not (rst.EOF)
33.    strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES ('" & rst(0) & "', '" & rst(1) & "')"
34.    dbCPTA2.Execute (strsql)
35.    rst.MoveNext
36.Wend
37.
38.'récupération des champs de T_TEST dans un autre recordset
39.rst2.Open "SELECT T_TEST.REF,T_TEST.DESIGN FROM T_TEST", dbCPTA2
40.rst2.MoveFirst
41.
42.'boucle d'affichage et de test de la table T_TEST
43.While Not (rst2.EOF)
44.    MsgBox "REF : " & rst2(0) & " DESIGN :" & rst2(1) & "."
45.    rst.MoveNext
46.Wend
47.
48.'fermeture du recordset
49.rst.Close
50.'fermeture de la connexion au DSN
51.dbCPTA.Close
52.'suppression de l'objet dbCPTA
53.Set dbCPTA = Nothing
54.
55.'fermeture du recordset
56.rst2.Close
57.'fermeture de la connexion à la BDD
58.dbCPTA2.Close
59.'suppression de l'objet dbCPTA2
60.Set dbCPTA2 = Nothing
61.
62.
63.MsgBox "fin"
64.
65.End Sub