Erreur accès à ma base sous Windows 7 en VBS

1 pièce(s) jointe(s)

Bonjour
Mes programmes VBS ne permettent plus d'accéder à ma base Access depuis que je suis passé en Windows 7; alors qu'ils fonctionnaient sous XP & VISTA.
Pour les faire fonctionner, il faut que je les mets en HTA; et là, ça marche, plus d'erreur.:?
Cela vous semble-t-il normal?

Voila l'erreur qui arrive lors d'un accès :
Pièce jointe 171592

Citation:

Envoyé par papyxy

Bonjour
Mes programmes VBS ne permettent plus d'accéder à ma base Access depuis que je suis passé en Windows 7; alors qu'ils fonctionnaient sous XP & VISTA.
Pour les faire fonctionner, il faut que je les mets en HTA; et là, ça marche, plus d'erreur.:?
Cela vous semble-t-il normal?

Voila l'erreur qui arrive lors d'un accès :
Pièce jointe 171592

J'ai trouvé la raison du problème : il manquait une référence dans Visual Basic (Microsoft Access 11.0 Object Library)
J'ai oublié de préciser que je n'ai pas Access dans ma version Office sur ce PC.:D

bonjour
j ai le même type de soucis
pouvez vous mettre l extrait de votre code
cela me permettrais peux être de résoudre mon problème
merci

Bonjour
je réponds avec du retard car je n'avais pas vu une réponse.
Au par-avant il faut rentrer dans Excel, Word ou autre appli d'Office; et aller dans Visual Basic/Références pour cocher l'option ci-dessus.
Voila mon code VBS pour créer une base de données (sans 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
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
66
rem http://access2sqlite.googlecode.com/svn-history/r2/trunk/MDBtoSQLite.vbs
'msgbox vbShortDate (2)          vbShortTime (4)
Const dbInteger = 3
const dblong    = 4
Const dbText    = 10
Const dbdate    = 8
Const dbTime    = 8
Const dbMemo    = 12
const dbAutoIncrField = 17
const nomdb           = "n° téléphoneX.mdb"
const tbl             = "téléphone"
        dim oTable
   Set fso = CreateObject("Scripting.FileSystemObject")
   if  FSO.FileExists(nomdb)  then fso.deletefile nomdb,true
 
Set oDAO36 = CreateObject("DAO.DBEngine.120")
'Set oDAO36 = CreateObject("DAO.DBEngine.36")
Set oBase = oDAO36.CreateDatabase(nomdb, ";LANGID=0x0409;CP=1252;COUNTRY=0", 64)
 
    obase.Execute   _
"CREATE TABLE " & tbl &  "("           & _
"nauto  AUTOINCREMENT PRIMARY KEY, "   & _
"nom     varchar(35), "                & _
"numero  varchar(14), "                & _
"adresse varchar(50) );"
 ' index seconsaire
    obase.Execute  "create unique index nom on "    & tbl &   "(nom);"
    oBase.Close
  msgbox "fin"      :wscript.quit
'_______________________________________________________________________
 
sub  format_z(zon,fmt)
 propname = "Format"
 propvalue= fmt
 set field= oTable.fields(zon)
 on error resume next
     field.properties(propname)=propvalue
if err.number=3270 then
     set oprop=field.createproperty(propname, dbtext, propvalue)
     err.clear
     field.properties.append oprop
     if err.number<>0 then
        wscript.echo "property creation error: " & err.number & "; " & _
                                                   err.description
    end if
end if
on error goto 0
end sub
'_______________________________________________________________________
 
sub  desc_z(zon,propvalue)
 propname = "Description"
' propvalue= "text"
 set field=oTable.fields(zon)
on error resume next
     field.properties(propname)=propvalue
if err.number=3270 then
    set oprop=field.createproperty(propname, dbtext, propvalue)
    err.clear
    field.properties.append oprop
    if err.number<>0 then
        wscript.echo "property creation error: " & err.number & "; " & err.description
    end if
end if
on error goto 0
end sub