Pytanie : I potrzebować tekst kartoteka i ono Dojazdowy Stół

I mieć tekst kartoteka (contactdata.txt) ten spojrzenie jak to:

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 N Główny Street
City = Twój City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212
CellPhone = 123-555-1212
(nie the końcówka the kartoteka, the kartoteka kontynuować)

What I potrzebować być vba pismo który gdy nakazowy guzik klikać the pismo czytać the tekst kartoteka od ono być lokacja (C:\TextFiles\contactdata. txt) i append the dane the właściwy pole w istniejący Dostęp stół wymieniać contacts.

Your kierunek w pomaganie osiągać osiągać być dużo appreciated.
Related Rozwiązanie: How zero-długość smyczkowy wartość i rozmiar pliku question

Odpowiedź : I potrzebować tekst kartoteka i ono Dojazdowy Stół

Cześć tam, ty móc ten pismo, che być VBS kod.  Ty móc the lokacja the DB i the tekst kartoteka z strDBPath i strTextFile.

Uwzględnienie,

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:

Ustalony objConn = CreateObject ("ADODB.Connection")
strDBPath = "C:\Temp\Users.accdb"
strTextFile = "C:\Temp\Users.txt"
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
intForReading = (1)
Jeżeli objFSO.FileExists (strDBPath) = Prawdziwy Wtedy
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Dane Source=" & strDBPath &"; Upierać się Ochrona Info=False; "
	'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Dane Source=" & strDBPath &"; "
	'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Dane Source=" & strDBPath &"; Dżetowy OLEDB: Baza danych Password=password; "
	'objConn.Open "Driver= {Microsoft Dojazdowy Kierowca (*.mdb)}; DBQ=" & strDBPath &"; "
	Ustalony objFile = objFSO.OpenTextFile (strTextFile, intForReading, Fałszywy)
	strFields = ""
	strValues = ""
	Podczas Gdy Nie objFile.AtEndOfStream
		strLine = Podstrzyżenie (objFile.ReadLine)
		Jeżeli strLine <> "" Wtedy
			Jeżeli InStr (strLine, "=") > (0) Wtedy
				strFieldName = Podstrzyżenie (Lewy (strLine, InStr (strLine, "=") - 1))
				strValue = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
				Jeżeli strFields = "" Wtedy
					strFields = "[" & strFieldName & "]"
				Inny
					strFields = strFields & ", [" & strFieldName & "]"
				Kończyć Jeżeli
				Jeżeli strValues = "" Wtedy
					strValues = """ & strValue & "" "
				Inny
					strValues = strValues & ", "" & strValue & "" "
				Kończyć Jeżeli
			Kończyć Jeżeli
		Kończyć Jeżeli
	Wend
	objFile.Close
	strQuery = "WSZYWKA W Kontakt (" & strFields & ") WARTOŚĆ (" & strValues & "); "
	Na Błąd Życiorys Następnie
	objConn.Execute (strQuery)
	Jeżeli Err.Number <> (0) Wtedy
		MsgBox "Błąd dane z zapytanie: " & VbCrLf & strQuery & VbCrLf & "Błąd" & Err.Number & ": " & Err.Description
		Err.Clear
		Na Błąd Rozpoczynający (0)
	Inny
		Na Błąd Rozpoczynający (0)
		MsgBox "Dane wkładać pomyślnie."
	Kończyć Jeżeli
	objConn.close
	Ustawiać objConn = Nic
Inny
	MsgBox "Niezdolny" & strDBPath
Kończyć Jeżeli
Inne rozwiązania  
 
programming4us programming4us