En VBS, peut-on ouvrir une base access
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
18 déc. 2005 à 10:43
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 18 déc. 2005 à 14:50
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 18 déc. 2005 à 14:50
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
18 déc. 2005 à 14:50
18 déc. 2005 à 14:50
Bonjour à tous....
j'ai trouvé le code ci-dessous:
MaBaseLog = "E:\Oxauser\LC7_DPS7.MDB"
MaTable = "_jour"
Dim WshShell, obj, Command, Result, Temp, FileName, File, fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set Db = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBaseLog
Rs.Open "SELECT * FROM _jour",Db
msgbox "test lecture " '& Rs.Fields(0)
Do While Not Rs.EOF
MsgBox Rs.Fields(0)
Rs.MoveNext
Loop
Rs.Close
Db.Close
Set Rs = Nothing
Set Db = Nothing
Set fso = Nothing
Set WshShell = Nothing
Le code arrive jusqu'à la msgbox "lecture.." mais ne m'affiche pas la msgbox "Rs.Fields(0)".
Comment puis-je m'assurer que la base et la table choisies soient bien ouvertes.
Et donc comment lire mes recordsets.
Mon but est d'écrire le contenu d'un champ d'une table dans un fic .txt pour
chercher, tjrs en vbs, certaines informations. Cette partie de recherche ne devrait
pas trop me poser de problème(s).
Merci.
jean-marc
j'ai trouvé le code ci-dessous:
MaBaseLog = "E:\Oxauser\LC7_DPS7.MDB"
MaTable = "_jour"
Dim WshShell, obj, Command, Result, Temp, FileName, File, fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set Db = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBaseLog
Rs.Open "SELECT * FROM _jour",Db
msgbox "test lecture " '& Rs.Fields(0)
Do While Not Rs.EOF
MsgBox Rs.Fields(0)
Rs.MoveNext
Loop
Rs.Close
Db.Close
Set Rs = Nothing
Set Db = Nothing
Set fso = Nothing
Set WshShell = Nothing
Le code arrive jusqu'à la msgbox "lecture.." mais ne m'affiche pas la msgbox "Rs.Fields(0)".
Comment puis-je m'assurer que la base et la table choisies soient bien ouvertes.
Et donc comment lire mes recordsets.
Mon but est d'écrire le contenu d'un champ d'une table dans un fic .txt pour
chercher, tjrs en vbs, certaines informations. Cette partie de recherche ne devrait
pas trop me poser de problème(s).
Merci.
jean-marc
