Update sur une Table Oracle

Version imprimable

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:

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.

17/09/2008, 15h19
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 ? ;)

Citation:

compilateur VBS Edit

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

Je pense que cette partie est à réadapter.
Code:

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 :)
17/09/2008, 16h57
faressam

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

Le problème est là :

Code:

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:

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:

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:

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

Cela donne ça en VBS :

Code:

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 :)