[RESOLU]Modifier table Access en Visual Basic

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU]Modifier table Access en Visual Basic

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 :

Private Sub Form_Current()
Dim strConnect, strsql As String
strConnect = "DSN=MyDSN"
Set objConn = New ADODB.Connection
objConn.Open strConnect
strsql = "INSERT INTO T_TEST(REF, DESIGN) VALUES(´ & F_ARTICLE.AR_REF & ´, ´ & F_ARTICLE.AR_DESIGN & ´ ) ¨
MsgBox ¨Fin¨
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 ?

J'ai aussi une autre methode, celle de creer la table directement dans la fonction :

Code :

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

mais je tombe sur une nouvelle erreur :

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

Si une bonne ame voulait bien m'aider svp :ange:

Message édité par greg360 le 31-08-2010 à 16:24:44

---------------
Greg

Publicité

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 :

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 !

---------------
Greg

Arcbitre

J'aime ben ça moi, c'est bon!

Salut,

Code :

Set dbs = CurrentDb()
If dbs Is Nothing Then
MsgBox "Bd non ouverte"
Exit Sub
End If

Pour voir si la database est bien connectée.

Après, moi j'utilise DAO. C'est bien plus simple.

Code :

Dim dbs As DAO.Database
Dim objRs As DAO.Recordset
Dim objRs As DAO.Recordset
Set dbs = OpenDatabase("chemin\database.mdb" )
If dbs Is Nothing Then
MsgBox "Bd non ouverte"
Exit Sub
End If
Set objReq = dbs.CreateQueryDef("", "Text de ma requete SQL" )
Set objRs = objReq.OpenRecordset

L'objet recordset contient le resultat de la requete (requete SELECT par ex.).

greg360

Merci pour ta réponse,
je ne rentre pas dans la condition de test de dbs, donc elle est bien connectée, mais j'ai un message d'erreur au niveau de la requete sql (erreur 242 objet requis)

---------------
Greg

Arcbitre

J'aime ben ça moi, c'est bon!

Dans la doc MSDN:

Code :

'Définit le nom de la source de données de type fichier
strDSN = "FILEDSN=MyDatabase.dsn"
'Crée l'instance de l'objet Connection et ouvre une connexion à une base de données
Set cn = Server.CreateObject("ADODB.Connection" )
cn.Open strDSN
'Définit l'instruction SQL, SELECT
strSQL = "INSERT INTO Customers (FirstName, LastName) VALUES ('Jose','Lugo')"
'Utilise la méthode Execute pour envoyer une requête SQL à la base de données
cn.Execute(strSQL)

Il doit te manquer l'ouverture de ta connexion.

greg360

Salut, je crois avoir résolu le problème de la connexion, mon maître de stage ne veut pas que je passe par le DSN, dont j'utilise OLEDB..

Le code qui suit est fonctionnel pour l'instant, mais comment je peux le tester pour savoir si la connexion s'est bien effectuée ?

Code :

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

---------------
Greg

Arcbitre

J'aime ben ça moi, c'est bon!

objCom est un objet. Suffit de voir s'il est valide:

If objConn Is Nothing Then
MsgBox "Raté!"
Exit Sub
End If

greg360

Merci !

---------------
Greg

greg360

Donc je teste la valeur de objConn et je ne rentre pas dans la condition, donc c'est bon, mais l'erreur 424 objet requis est toujours présente a cette ligne ci :

Code :

Private Sub From_Current()
Dim strConnect As String
strConnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb"
objConn.Open strConnect
If objConn Is Nothing Then
MsgBox "fail"
End If
strsql = "INSERT INTO T_TEST(REF,DESIGN) VALUES(" & F_ARTICLE.AR_REF & "," & F_ARTICLE.AR_DESIGN & " )"
objConn.Execute (strsql)
MsgBox "fin"
End Sub

---------------
Greg

Arcbitre

J'aime ben ça moi, c'est bon!

Code :

strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (" & F_ARTICLE.AR_REF & "," & F_ARTICLE.AR_DESIGN & " )"

Essaie avec cette synthaxe ci-dessus.

Sinon, passa ta requête en dur, sans variable, pour être sûr de la synthaxe.

Publicité

greg360

Ça fonctionne avec des valeurs en dur, c'est donc un problème de syntaxe de la requête SQL. F_ARTICLE est une table ODBC attache. Si je remplace "F_ARTICLE" par "[Liste articles]" qui est la table qui est remplie avec F_ARTICLE,j'ai une nouvelle erreur : "2465 NomDuDSN ne trouve pas le champ "|" auquel il est fait référence dans votre expression"
Je suis sur que c'est une erreur complètement nulle, mais en tout est nouveau pour moi (je passe de programmation C# sous emacs a access ...)

---------------
Greg

Arcbitre

J'aime ben ça moi, c'est bon!

Je crois que la synthaxe, c'est [Table!Champ] (point d'exclamation en séparateur, pas un pipe).

FlorentG

Unité de Masse

Voire [Table]![Champ] si je me souviens bien [:petrus dei]

greg360

Oui c’était bien ça le problème, une erreur de syntaxe dans la requête. Mais maintenant j'ai une erreur au moment de l’exécution de cette requête :

"aucune valeur donnée pour un ou plusieurs des paramètres requis"

---------------
Greg

greg360

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 :

Private Sub Form_Current()
Dim strConnect, strConnect2, strsql As String
Dim dbCPTA As ADODB.Connection
strConnect = "DSN=MyDSN"
strConnect2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Demo\toto.accdb"
Set dbCPTA = New ADODB.Connection
dbCPTA.Open = strConnect
strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (F_ARTICLE.AR_REF,F_ARTICLE.AR_DESIGN)"
dbCPTA.Execute (strsql)
dbCPTA.Close
Set dbCPTA = Nothing
MsgBox "Fin"
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 ?

---------------
Greg

greg360

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

Code :

Private Sub Form_Current()
Dim strConnect, strConnect2 As String
Dim strsql As String
Dim dbCPTA As ADODB.Connection
Dim dbCPTA2 As ADODB.Connection
Dim var_ref As String
Dim var_design As String
strConnect2 = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Demo\toto.accdb;"
strConnect = "DSN=MyDSN"
Set dbCPTA = New ADODB.Connection
Set dbCPTA2 = New ADODB.Connection
dbCPTA.Open strConnect
dbCPTA2.Open strConnect2
strsql = "SELECT F_ARTICLE.AR_REF AS var_ref, F_ARTICLE.AR_DESIGN AS var_design FROM F_ARTICLE"
dbCPTA.Execute (strsql)
MsgBox var_ref
MsgBox var_design
strsql = "INSERT INTO T_TEST (REF,DESIGN) VALUES (F_ARTICLE.AR_REF,F_ARTICLE.AR_DESIGN)"
dbCPTA.Execute (strsql)
dbCPTA.Close
Set dbCPTA = Nothing
dbCPTA2.Close
Set dbCPTA2 = Nothing
MsgBox "fin"
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 ?

---------------
Greg

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 qqes questions plus tard !

---------------
Greg

greg360

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

Edit : je joins quand meme le code résolu

Code :

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

Message édité par greg360 le 31-08-2010 à 16:33:49

---------------
Greg

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU]Modifier table Access en Visual Basic

Sujets relatifs
[ACCESS] Rafraichissement tables liés avec requêtes	Modifier un template CSS
Créer une table dans Access à partir d'un tableau	[ACCESS] [RESOLU] Problème de doublon récalcitrant
[BO] Table comparison qui ne renvoie pas les update	Moyen le plus simple de modifier/remplacer ?
Access, impossible d'atteindre nouvel enregistrement	Probleme de compilation visual c++ 2008
[RESOLU] Modifier timeout pour un mysql_query() ???
Plus de sujets relatifs à : [RESOLU]Modifier table Access en Visual Basic

Page générée en 0.076 secondes