remplir une table grace à un fichier text c'est possible?

**avantoux** · 16/12/2005, 13h26

voila je suis en stage dans une entreprise qui me demande de centraliser les journaux d'evenements sur une machine.
L'idée c'est de récuperer les journaux grace à dumpel, qui les stockent dans 3 fichiers (application, system et securité).
Puis je voudrais importer ses fichiers dans une bdd.

Est il dont possible de remplir une table grace a ces fichiers?

la table sera ainsi: id evenement date heure etc...

et dans le fichier c'est la meme chose en etant séparé par des tabulations, virgule ou espace au choix.

Je veux donc que les données dans la colone ID aille dans le champ id de la table, date dans le champ date, etc.. etc...
La base de donnée serait mise à jour de cette façon chaque nuit.

Acces peut il faire ca?

voila merci en esperant que vous m'avez compris.

**Celia1303** · 16/12/2005, 13h32

pour importer les données de fichier texte dans Access :
dans le menu fichier
Données externes
Importer

Ca devrait le faire !

**avantoux** · 16/12/2005, 13h43

c'est tout?
et ca importe tout dans les bons champs?

merci

**random** · 16/12/2005, 13h45

en fait cela va crèer les champs en fonctions des spécifications d'import la première fois et ajoute à la table ensuite
mais tu peux aussi te servir des fichiers textes comme de tables access
voir tables lièes dans l'aide ou la faq

**avantoux** · 16/12/2005, 13h58

ok c'est parfait merci

edit mais les données dans mes fichierrs sont séparés par des tabulations ou des virgules au choix. ca ne pose pas de probleme?

**SfJ5Rpw8** · 16/12/2005, 14h10

tu peu aussi éviter le passage par un fichier texte ... voir la note :

http://www.microsoft.com/technet/scr.../lgevvb03.mspx

en plus, si tu as les droits adminstrateurs sur les divers PC, et s'il ne posséde pas de pare-feu... tu pourra récuéper à distance tous les journaux...

pour tester, n'ayant pas de base à remplir ... j'ai mis en commentaire les accés vers base de données...

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
Sub Importe()
 
 
'Set objConn = CreateObject("ADODB.Connection")
'Set objRS = CreateObject("ADODB.Recordset")
 
'objConn.Open "DSN=EventLogs;"
'objRS.CursorLocation = 3
'objRS.Open "SELECT * FROM EventTable", objConn, 3, 3
StrComputer = "."
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
 
Set colRetrievedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent")
 
For Each objEvent In colRetrievedEvents
'    objRS.AddNew
 '   objRS("Category") = objEvent.Category
  '  objRS("ComputerName") = objEvent.ComputerName
   ' objRS("EventCode") = objEvent.EventCode
    'objRS("Message") = objEvent.Message
    'objRS("RecordNumber") = objEvent.RecordNumber
     'bjRS("SourceName") = objEvent.SourceName
    'objRS("TimeWritten") = objEvent.TimeWritten
    'objRS("Type") = objEvent.Type
    'objRS("User") = objEvent.User
    'objRS.Update
    Debug.Print objEvent.Category & "  | " & objEvent.ComputerName & " | " & objEvent.Message & " | " & objEvent.TimeWritten
Next
 
'objRS.Close
'objConn.Close
 
End Sub

**avantoux** · 16/12/2005, 15h01

oh bien joué pas mal

merci a tous

edit: je suppose qu'il doit y'avoir un moyen de filtrer avec ce script uniquement les serveurs? parce que si je choppe aussi les workstations ca va faire plus de 2000

**SfJ5Rpw8** · 16/12/2005, 15h14

attends ... ce script ne parcours pas tous les postes du réseau ..
il faut renseigner la variabe
StrComputer = "."
avec le nom de l'ordinateur à tester ....

pour créer la liste des ordinateur à tester tu devrai pouvoir utiliser cette fonction dans la FAQ :
http://vb.developpez.com/faq/?page=Reseau#domaine