VBs probleme avec Docmd

Version imprimable

Bonjour a tous, voici jai un probleme pour delete une table et la réimporter.

c'est la commande docmd qui me pose problème. (j'ai mis en gras ou ca bloque)

si quelqu'un"un pourrais me donner des conseils , merci de votre comprehension

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
Dim objConnection
 
Dim strConnODBC
 
Dim strSce, strDest
 
Dim arrTables, i
 
DIM query
 
Set objConnection = CreateObject("ADODB.Connection")
 
set ars = CreateObject("ADODB.Recordset")
 
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\COUTVPF\ImportTablePDM.mdb"
 
set ars = CreateObject("ADODB.Recordset")
 
 
 
' Chaîne de connexion ODBC
 
strConnODBC = "ODBC;DSN=PDMTEST;APP=Microsoft Office 2003;WSID=PC0905-6;DATABASE=PDM;Trusted_Connection=Yes"
 
 
 
' Créer liste des tables à importer
 
arrTables = Array( "Circuit", "Concurrence", "Entrees", "Programmes_Salles", "Films", "Salles", "Resultat_Journalier", "Format")
 
 
 
' Boucler sur les tables et les importer une par une
 
For i = LBound(arrTables) To UBound(arrTables)
 
 
 
    strSce = arrTables(i)
 
    strDest = Replace(strSce, ".", "_")
 
 
 
        If vbYes = MsgBox("Importer la table " & strDest & "?", vbYesNo, "Import de  PDM") Then
 
 
'*******************Problème ICI *************************************
               On Error Resume Next
 
                DoCmd.DeleteObject acTable, strDest
 
                On Error GoTo 0
 
 
 
                On Error Resume Next
 
                DoCmd.TransferDatabase acImport, "Base de données ODBC", strConnODBC, acTable, strSce, strDest
 
                On Error GoTo 0
'******************* fin Problème ICI *************************************
        End If
 
Next

L'erreur que j'ai
Objet requis "docmd"

source= erreur d'executions Microsoft Vbscript

Edit : J'ai essayer plusieurs syntaxes toujours rien ...

10/12/2010, 22h57
SfJ5Rpw8

et ou as tu trouvé cette commande "docmd " ? c'est pas du vbscript ! access peu-être ?
10/12/2010, 23h42
Invité

Citation:

Envoyé par bbil

et ou as tu trouvé cette commande "docmd " ? c'est pas du vbscript ! access peu-être ?

oui sur acees ca fonctionne tres bien , jai juste copier coller le source et fais quelque modif, mais moi j'aimerais qui se lance en vbs pour le lancer en tache automatiser la nuit

et cette commande ne fonctionne pas et je cherche son equivalent sur vbs , mais pas de sql ni de table lié.

ca bloke juste sur cette commande
11/12/2010, 07h57
Invité

Bonjour

Je ne comprends pas ce que tu veux faire.

Dans un premier temps tu fais une connexion sur la base, cela va te permettre de lancer des requêtes par exemple, mais pas d'utiliser les méthodes Access comme DoCmd ou autre.

Pour utiliser ces méthodes il faut créer une instance d'Access, ce que tu ne fais pas ici.

Philippe
11/12/2010, 15h32
Invité

Citation:

Envoyé par Philippe JOCHMANS

Bonjour

Je ne comprends pas ce que tu veux faire.

Dans un premier temps tu fais une connexion sur la base, cela va te permettre de lancer des requêtes par exemple, mais pas d'utiliser les méthodes Access comme DoCmd ou autre.

Pour utiliser ces méthodes il faut créer une instance d'Access, ce que tu ne fais pas ici.

Philippe

Le code que j'ai mis vient d'acces, et marche , je veut juste en faire un script vbs, et quand je le met en vbs, ça bloque sur "doCmd"

je voudrais juste savoir pourquoi ça marche pas et comment résoudre le problème ?
11/12/2010, 15h49
SfJ5Rpw8

bien je crois que l'on te l'as déjà dit .. doCmd est une commande Access ...tu ne peu l'utiliser que si tu as acces sur ton PC.

et dans ce cas comme te la dis plus haut philippe tu doit créer une instance d'access..

ou bien .. tu commence par te demander à quoi servent ces commandes et si c'est possible de faire cela sans acces.
11/12/2010, 18h27
Invité

Citation:

Envoyé par bbil

bien je crois que l'on te l'as déjà dit .. doCmd est une commande Access ...tu ne peu l'utiliser que si tu as acces sur ton PC.

et dans ce cas comme te la dis plus haut philippe tu doit créer une instance d'access..

ou bien .. tu commence par te demander à quoi servent ces commandes et si c'est possible de faire cela sans acces.

le problème c'est que j'ai acces vu ma base est une base .mdb, et oui j'ai tres bien acces, donc voila en vbs, je voudrais remplacer cette commande docmd, en quelque chose en vbs.
11/12/2010, 20h00
Invité

Re

Comme je l'ai dit et que confirme bbil :coucou: tu ne crées pas une instance d'Access, mais une connexion à une base de données pour interroger les données des tables ou autres.

Le code que tu veux est de détruire une table et d'en importé une autre. Comme tu travailles en ADO je te conseille de lire les tutos sur le sujet : ADO, et c'est le modèle ADOX (il y a un tuto) qui pourrait t'aider à faire ce que tu veux.

Philippe

Citation:

Envoyé par Philippe JOCHMANS

Re

Comme je l'ai dit et que confirme bbil :coucou: tu ne crées pas une instance d'Access, mais une connexion à une base de données pour interroger les données des tables ou autres.

Le code que tu veux est de détruire une table et d'en importé une autre. Comme tu travailles en ADO je te conseille de lire les tutos sur le sujet : ADO, et c'est le modèle ADOX (il y a un tuto) qui pourrait t'aider à faire ce que tu veux.

Philippe

Bonjour a tous

ok mais pour exporte une table en adox d'après la faq

Il faut utiliser la commande DoCmd.TransferDatabase pour transférer une table.
Il vous suffit de créer un tableau contenant le nom de toutes les tables, et d'inclure la commande précédente dans une boucle qui lira un à un chaque nom de table.

donc je suppose que dans mon script ca fonctionne normalement , mais pour supprimer

d'après le modèle adox je dois faire ca?

Tout d'abord ajouter les références suivantes dans votre projet :

Citation:

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library

Puis dans un module, écrire le code suivant :
Code:

1 2 3 4 5 6 7 8 9 Function SupprimerTable(NomTable As String) As Boolean On Error GoTo err Dim MCat As New ADOX.Catalog Set MCat.ActiveConnection = CurrentProject.Connection MCat.Tables.Delete (NomTable) SupprimerTable = True err: Set MCat = Nothing End Function
Utilisation :

Code:

MsgBox SupprimerTable("test")

mais est ce que en le mettant dans mon vbs ça va fonctionner, je ne vois pas comment l'implanter dans mon code

j'aurais besoin encore de plus de conseil pour l'instant je lis , mais je comprend pas comment l'implanter dans mon vbs

23/12/2010, 18h02
Invité

Bonjour personne n'a de conseil ? car je suis vraiment perdu
27/12/2010, 10h55
Invité

Citation:

Envoyé par lesquate04

Bonjour personne n'a de conseil ? car je suis vraiment perdu

Bonjour
Un petit up s'il vous plait, j'ai beau faire des effort mais je ne comprend pas comment implanter la suppression de table pour remplacer docmd delete

grace a l'exemple cité avec le modele adox
27/12/2010, 15h05
Overcrash

Bonjour,

Ben au lieu d'utiliser ta méthode tu utilises l'autre je comprends pas ou tu as du mal ?
27/12/2010, 15h48
Invité

Citation:

Envoyé par Overcrash3181

Bonjour,

Ben au lieu d'utiliser ta méthode tu utilises l'autre je comprends pas ou tu as du mal ?

Tout simplement a l'implanter ,j'ai supprimer ma ligne do cmd delete

apres ya pas que du copier coller a faire ? les variables faut que lé déclare?

enfin je veut juste savoir l'implanter merci
28/12/2010, 15h52
Invité

Bonjour et puis je ne comprend pas pourquoi ajouter une référence, j'utilise notpad pour mon vbs,enfin je suis pas sous visual basic,

enfin c'est vraiment important, c'est surement simple de supprimer une table?

comment le mettre dans mon Vbs s'il vous plait et m'expliquer , j'ai beau cherché ca rentre pas .

sur acces mon code source fonctionne tres bien mais pour le faire passer en vbs ca fonctionne pas.

inspire toi de ce code :

Code:

1
2
3
4
5
Option explicit
Dim  conn,rs
Set conn = CreateObject("ADODB.Connection")
conn.Open   "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\Dvp\VBS\ADO\maBase.mdb;Uid=;Pwd=;"
Conn.Execute "Drop TABLE MATABLE"