VBs probleme avec Docmd

Invité · 10/12/2010, 10h17

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 :

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

**SfJ5Rpw8** · 10/12/2010, 22h57

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

Invité · 10/12/2010, 23h42

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

Invité · 11/12/2010, 07h57

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

Invité · 11/12/2010, 15h32

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 ?

**SfJ5Rpw8** · 11/12/2010, 15h49

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.

Invité · 11/12/2010, 18h27

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.

Invité · 11/12/2010, 20h00

Re

Comme je l'ai dit et que confirme bbil

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

Invité · 21/12/2010, 17h14

Envoyé par Philippe JOCHMANS

Re

Comme je l'ai dit et que confirme bbil

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 :

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 :

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

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 :

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

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

Invité · 23/12/2010, 18h02

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

Invité · 27/12/2010, 10h55

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

**Overcrash** · 27/12/2010, 15h05

Bonjour,

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

Invité · 27/12/2010, 15h48

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

Invité · 28/12/2010, 15h52

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.

**SfJ5Rpw8** · 28/12/2010, 17h01

inspire toi de ce code :

Code :

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

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"

VBs probleme avec Docmd

VBScript

Discussions similaires

Partager

Partager