Discussion :

[faressam]

J'ai trouvé un code pour se connecter sur une table d'une base de donnée,
pour mettre à jour les données d'un champ, tous celà sous Access,

je ne sais pas si il y"a une similitude entre VB Script et Access,
mais est ce qu'on pourrait l'adapter afin qu'il fonctionne sous VB Script (compilateur VBS Edit) ?

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
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("REQ",dbOpenTable)
While Not oRst.EOF
  'Passe en mode modification
  oRst.Edit
  'Affecte la nouvelle Valeur
  oRst.Fields("RQ_REQ_AUTHOR").Value="Créée Par"
    'Met à Jour
  oRst.Update
  'Passe au suivant
  oRst.MoveNext
Wend
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst=Nothing
Set oDb=Nothing

Merci d'avance.

[ced600]

Sous Access c'est du VBA. Donc oui forcément il y a une similitude avec le VBS, après tout c'est du VB nan ?

compilateur VBS Edit

Un compilateur en VB ?
VBS est un langage de script il utilise un interpréteur !

Je pense que cette partie est à réadapter.

Code :

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

1
2
3
4
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("REQ",dbOpenTable)

Bonne chance

[faressam]

Non en faite j'ai oublié de mentionner, que on ne connait pas trop
cet environnelent, et que ça va être mission impossible de reprendre ce code access en VBS, vu qu'on sent bien que ce code là fait l'affaire,
mais on voudrait à tous prix le transformer en VBS.

Merci encore une fois pour vôtre aide.

[ced600]

Le problème est là :

Code :

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

Set oDb=CurrentDb

Je ne sais pas si CurrentDb est un objet fournis par Access ou autre chose.
Si c'est le premier cas, en VBS il n'est aps disponible directement, il faut le récupérer à partir d'un objet parent peut être (méthode createobject de VBS).
Sur l'exemple de code ci-dessous les choses sont faite différement, on se connecte à la database à partir du driver :

Code :

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

1
2
3
4
5
6
7
'database
Set dbAccess = CreateObject("ADODB.Connection")
StrAccess = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & PathMDB
dbAccess.Open(StrAccess)
'Recordset
Set Rs = CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM TableClient" , Straccess

Essayer cela voir si cela marche.

Je vous mets tout le code que j'ai trouvé sur l'utilisation d'Access en VBS :

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
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0 , adOpenKeyset = 1, adOpenDynamic = 2, adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1, adLockPessimistic = 2, adLockOptimistic = 3, adLockBatchOptimistic = 4
Const ForReading=1, ForWriting =2
'Main
Call UpdateMDB(WScript.Arguments(0),WScript.Arguments(1)
' exemple d'appel :
' updateMDB.vbs "C:\Temp\MaBase.mdb" "C:\Temp\Donnees\clients.txt"
' End Main ------------------------------------------------------
Sub UpdateMDB(PathMDB,PathFile)
Dim DBAccess, Rs, NameField, DataToAdd
'database
Set dbAccess = CreateObject("ADODB.Connection")
StrAccess = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & PathMDB
dbAccess.Open(StrAccess)
'Recordset
Set Rs = CreateObject("ADODB.Recordset")
Rs.CursorType = adOpenStatic
Rs.LockType = adLockOptimistic
Rs.Open "SELECT * FROM TableClient" , Straccess
Rs.AddNew
'Text file
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileRead = FSO.openTextFile(PathFile ,ForReading, True)
		Do While Not FileRead.AtEndOfStream 	
    		NameField = FileRead.ReadLine ' lecture ligne impaire = nom du champ
    		DataToAdd = FileRead.ReadLine ' lecture ligne paire = donnée correspondante
    	' fill database fields
		Rs.Fields(NameField) = DataToAdd
    	Loop
FileRead.Close
Next 
Rs.Update
Rs.Close
Set Rs = Nothing
dbaccess.Close
Set dbaccess= Nothing
End Sub

Pour ça :

Code :

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

1
2
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database

Cela donne ça en VBS :

Code :

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

1
2
Dim oRst
Dim oDb

Pas de typage des variables.

Après je ne peux pas vous aider plus, moi Access je n'en ai jamais fait