Question : Je dois lire un dossier des textes et le tracer à un Tableau d'accès

J'ai un dossier des textes (contactdata.txt) ce des ressembler à ceci : le

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 N Street
City = votre City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212

What de/>CellPhone = de 123-555-1212
(pas l'extrémité du dossier, le dossier continue) que je dois accomplir est de créer un manuscrit de vba qui quand un bouton de commande est cliqué le manuscrit lira le dossier des textes de lui est endroit (C:\TextFiles\contactdata. le txt) et apposent les données au champ approprié dans une table existante d'accès appelée direction de contacts.

Your en m'aidant accomplissent ceci serait beaucoup d'appreciated.

class= > " clair " de

solutions >Related class= de taille de fichier de fichier de title= " du href= " /Microsoft/Development/MS_Access/Q_26365441.html de How de " qRelatedChild " de class= de question " de valeurs de corde de zéro-longueur et de permettre les valeurs de corde de zéro-longueur et la taille de fichier de fichier question

Réponse : Je dois lire un dossier des textes et le tracer à un Tableau d'accès

Salut là, vous pouvez essayer ce manuscrit, qui est code de VBS.  Vous pouvez changer l'endroit du DB et du dossier des textes avec le strDBPath et strTextFile.

Respect,

Rob.

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 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 :

Placer l'objConn = le CreateObject (« ADODB.Connection ») strDBPath = « C:\Temp\Users.accdb » strTextFile = « C:\Temp\Users.txt » Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») intForReading = 1 Si objFSO.FileExists (strDBPath) = rectifient alors strMDBPath = objFSO.GetFile (strDBPath) .ShortPath objConn.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; Point d'émission = » et strDBPath et » ; Persistent la sécurité Info=False ; «  'objConn.Open « Provider=Microsoft.Jet.OLEDB.4.0 ; Point d'émission = » et strDBPath et » ; «  'objConn.Open « Provider=Microsoft.Jet.OLEDB.4.0 ; Point d'émission = » et strDBPath et » ; Gicleur OLEDB : Base de données Password=password ; «  'objConn.Open « Driver= {conducteur de Microsoft Access (*.mdb)}; DBQ= » et strDBPath et » ; «  objFile réglé = objFSO.OpenTextFile (strTextFile, intForReading, faux) strFields = "" strValues = "" Tandis que pas objFile.AtEndOfStream strLine = équilibre (objFile.ReadLine) Si "" <> de strLine alors S'InStr (strLine, « =") > 0 puis strFieldName = équilibre (gauche (strLine, InStr (strLine, « =") - 1)) strValue = équilibre (mi (strLine, InStr (strLine, « =") + 1)) Si strFields = puis "" strFields = « [ » et strFieldName et « ] » Autrement strFields = strFields et « , [ » et strFieldName et « ] » Finir si Si strValues = puis "" strValues = « «  » et strValue et «  » «  Autrement strValues = strValues et « , «  » et strValue et «  » «  Finir si Finir si Finir si Wend objFile.Close strQuery = « INSERTION DANS DES VALEURS de contacts ( » et strFields et ") (" et des strValues et ") ;  » Sur le résumé d'erreur après objConn.Execute (strQuery) Si Err.Number <> 0 puis Erreur de MsgBox « insérant des données avec la question :  » Et VbCrLf et strQuery et VbCrLf et « erreur » et Err.Number et « :  » Et Err.Description Err.Clear Sur l'erreur 0 GoTo Autrement Sur l'erreur 0 GoTo MsgBox « données insérées avec succès. » Finir si objConn.close Placer l'objConn = rien Autrement MsgBox « incapable de trouver » et strDBPath Finir si