Discussion :

[greg360]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[greg360]

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 :

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
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

[greg360]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Jean-Philippe André]

Bonjour,
bienvenue sur DVP
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
http://access.developpez.com/faq
et des cours
http://access.developpez.com/cours

Bon courage

[greg360]

Merci beaucoup pour ton aide, ça va sans doutes m'aider !

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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