Cuestión : Necesito leer un archivo de texto y trazarlo a una tabla del acceso

Tengo un archivo de texto (contactdata.txt) ese los parecer esto: el

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

What de/>CellPhone = de 123-555-1212
(no el extremo del archivo, el archivo continúa) que necesito lograr es crear una escritura del vba que cuando se chasca un botón de comando la escritura lea el archivo de texto de él sea localización (C:\TextFiles\contactdata. el txt) y añade los datos al campo apropiado en una tabla existente del acceso nombrada dirección de contacts.

Your en la ayuda de mí logra esto sería mucho appreciated.

 class= > " claro " del
soluciones >Related class= del tamaño del archivo del title= " del href= " /Microsoft/Development/MS_Access/Q_26365441.html del How del " qRelatedChild " del class= de la pregunta " de los valores de secuencia de la cero-longitud y permita los valores de secuencia de la cero-longitud y el tamaño del archivo question

Respuesta : Necesito leer un archivo de texto y trazarlo a una tabla del acceso

Hola allí, usted puede intentar esta escritura, que es código de VBS.  Usted puede cambiar la localización del DB y del archivo de texto con el strDBPath y strTextFile.

Respetos,

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

Fijar el objConn = CreateObject (“ADODB.Connection”)
strDBPath = “C:\Temp\Users.accdb”
strTextFile = “C:\Temp\Users.txt”
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
intForReading = 1
Si objFSO.FileExists (strDBPath) = entonces verdad
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open “Provider=Microsoft.ACE.OLEDB.12.0; Datos Source=” y strDBPath y”; Persiste la seguridad Info=False; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Datos Source=” y strDBPath y”; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Datos Source=” y strDBPath y”; Jet OLEDB: Base de datos Password=password; “
	'objConn.Open “Driver= {conductor de Microsoft Access (*.mdb)}; DBQ=” y strDBPath y”; “
	objFile determinado = objFSO.OpenTextFile (strTextFile, el intForReading, falso)
	strFields = ""
	strValues = ""
	Mientras que no objFile.AtEndOfStream
		strLine = ajuste (objFile.ReadLine)
		Si "" <> del strLine entonces
			Si InStr (strLine, “=") > 0 entonces
				strFieldName = ajuste (izquierdo (strLine, InStr (strLine, “=") - 1))
				strValue = ajuste (mediados de (strLine, InStr (strLine, “=") + 1))
				Si strFields = "" después
					strFields = “[” y strFieldName y “]”
				
					strFields = strFields y “, [” y strFieldName y “]”
				Terminar si
				Si strValues = "" después
					strValues = ““” y strValue y “” “
				
					strValues = strValues y “, “” y strValue y “” “
				Terminar si
			Terminar si
		Terminar si
	Wend
	objFile.Close
	strQuery = “PARTE MOVIBLE EN VALORES de los contactos (” y strFields y ") (” y strValues y "); ”
	En curriculum vitae del error después
	objConn.Execute (strQuery)
	Si Err.Number <> 0 entonces
		Error de MsgBox “que inserta datos con pregunta: ” Y VbCrLf y strQuery y VbCrLf y “error” y Err.Number y “: ” Y Err.Description
		Err.Clear
		En el error 0 indicado
	
		En el error 0 indicado
		MsgBox “datos insertados con éxito.”
	Terminar si
	objConn.close
	Fijar el objConn = nada

	MsgBox “incapaz de encontrar” y strDBPath
Terminar si
Otras soluciones  
 
programming4us programming4us