Accueil > > > VBS - ACCESS
VBS - ACCESS
Information sur la source
Description
Pour ajouter des données dans une seule table (TableClient) Access Utilise ADO. Ajoute les données par champs. Le nom du champ et la donnée sont lus depuis un fichier Texte. Ex: Nom Dupont Prenom Jean Adresse 14 rue Victor Hugo Code Postal 99000 etc attention aucun control d'incoherence dans le fichier
Source
- '---- 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
'---- 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
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
A L'AIDEEE!!! CONVERSION VBScript >>> VB ( ~~c vital sioux plééé ~~) [ par pekinio ]
Voila, hello a tlm.bon, en fait, c'est a propos du code "generateur de mots"(dans la categorie VB.NET!!!?), sur ce site.je trouve ce code interressant
vbScript ou plutot .vbs [ par seb ]
Est il possible de rechercher un fichier dans un répertoire d'un part, et d'autre part d'executer un .batobjectif crée un script qui execute des app a
ado access, se connecter a une BD qui a unmot de passe [ par hujikole ]
lorsque l'on veux se connecter par VB sans ODBCil nous marque qu'il y a un utilisateur connecter a la BD en mode exclusifon est 3 a se pencher sur le
problème d'accès à Access en ADO [ par J-F ]
Bonjour,J'ai un gros problème quand je veux me connecter à une base Access en utilisant ADO. J'ai comme message d'erreur :"Impossible de démarrer votr
Connexion ADO de excel VERS ACCESS help !! :'( [ par Metos ]
Sub Connexion() Deconnexion 'Au cas ou ! Objconn.Open "PROVIDER=MSDASQL.1;DSN=" & "TestADO", UserId:="", Password:="" Quel est le Provider
Pb execution requetes avec objets ADO (VBA access) [ par Chico ]
Je voudrais executer une requête qui aurrait, apparament besoin de deux chaines de connection :une pour la table liée dans Access "LDFC" (provient de
ADO et deux connexions BDD [ par nanebac ]
J'ai un petit souci, je souhaite me connecter à une base ACCESS avecADO pour extraire un recordset qui doit être inséré dans une base SQL Pour ce
ADO et requête access avec parameteres [ par wels02 ]
Comment on peut ouvrir une requete access qui porte un parametre avec visual basic en utilisant ADOMerci!
Requete Access et ADO [ par EricH ]
Bonjour,est-il possible d'executer une requete access avec ado ?merci de votre reponse
ADO et Access [ par andrea06 ]
Bonjour,J'ai une question a propos de la connection ado vers une base de donnees access.J'ai remarque qu'il n'est possible de se connecter a une base
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
ACCES ODBCACCES ODBC par yannickcottin
Cliquez pour lire la suite par yannickcottin
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|