Questione : Devo leggere una lima di testo e tracciarlo ad una Tabella di accesso

Ho una lima di testo (contactdata.txt) quella assomigliare a questo: il

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

What che di 123-555-1212
CellPhone/> (non l'estremità della lima, la lima continua) devo compire è di generare uno scritto di vba che quando un pulsante di comando è scattato lo scritto gli leggerà la lima di testo è posizione (C:\TextFiles\contactdata. il txt) ed aggiunge i dati al campo adeguato in una tabella attuale di accesso chiamata senso di contacts.

Your nell'aiuto me compire questo sarebbe molto appreciated.

 class= > " libero " del
soluzioni >Related class= di formato di lima " del title= " del href= " /Microsoft/Development/MS_Access/Q_26365441.html di How " del qRelatedChild " " del class= di domanda di valori di stringa di zero-lunghezza e permetta i valori di stringa di zero-lunghezza e formato di lima question

Risposta : Devo leggere una lima di testo e tracciarlo ad una Tabella di accesso

Ciao là, potete provare questo scritto, che è codice di VBS.  Potete cambiare la posizione del DB e della lima di testo con strDBPath e strTextFile.

Riguardi,

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:

Regolare il objConn = CreateObject (“ADODB.Connection„)
strDBPath = “C:\Temp\Users.accdb„
strTextFile = “C:\Temp\Users.txt„
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
intForReading = 1
Se objFSO.FileExists (strDBPath) = allora allineano
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open “Provider=Microsoft.ACE.OLEDB.12.0; Dati Source=„ & strDBPath &„; Persiste la sicurezza Info=False; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Dati Source=„ & strDBPath &„; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Dati Source=„ & strDBPath &„; Getto OLEDB: Base di dati Password=password; “
	'objConn.Open “Driver= {driver di Microsoft Access (*.mdb)}; DBQ=„ & strDBPath &„; “
	objFile stabilito = objFSO.OpenTextFile (strTextFile, intForReading, falso)
	strFields = ""
	strValues = ""
	Mentre non objFile.AtEndOfStream
		strLine = disposizione (objFile.ReadLine)
		Se "" <> di strLine allora
			Se InStr (strLine, “=") > 0 allora
				strFieldName = disposizione (di sinistra (strLine, InStr (strLine, “=") - 1))
				strValue = disposizione (metà di (strLine, InStr (strLine, “=") + 1))
				Se strFields = "" allora
					strFields = “[„ & strFieldName & “]„
				Altrimenti
					strFields = strFields & “, [„ & strFieldName & “]„
				Concluder se
				Se strValues = "" allora
					strValues = ““„ & strValue & “„ “
				Altrimenti
					strValues = strValues & “, “„ & strValue & “„ “
				Concluder se
			Concluder se
		Concluder se
	Wend
	objFile.Close
	strQuery = “INSERTO NEI VALORI strFields &„ (dei contatti & ") (" & negli strValues & "); „
	Sul riassunto di errore dopo
	objConn.Execute (strQuery)
	Se Err.Number <> 0 allora
		Errore di MsgBox “che inserisce i dati con la domanda: „ & VbCrLf & strQuery & VbCrLf & “errore„ & Err.Number & “: „ & Err.Description
		Err.Clear
		Sull'errore 0 di avanzamento
	Altrimenti
		Sull'errore 0 di avanzamento
		MsgBox “dati inseriti con successo.„
	Concluder se
	objConn.close
	Regolare il objConn = niente
Altrimenti
	MsgBox “incapace di trovare„ & strDBPath
Concluder se
Altre soluzioni  
 
programming4us programming4us