Pergunta : Eu preciso de ler uma lima de texto e de traçá-la a uma tabela do acesso

Eu tenho uma lima de texto (contactdata.txt) essa olhares como isto: o

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

What que de/>CellPhone = de 123-555-1212
(não a extremidade da lima, a lima continua) eu preciso de realizar é criar um certificado do vba que quando uma tecla de comando é estalada o certificado leia a lima de texto dela seja posição (C:\TextFiles\contactdata. o txt) e adiciona os dados ao campo apropriado em uma tabela existente do acesso nomeada sentido de contacts.

Your em ajudar-me realiza isto seria muito appreciated.

 class= > " desobstruído " do
soluções >Related class= do tamanho de lima " do title= " do href= " /Microsoft/Development/MS_Access/Q_26365441.html do How do " qRelatedChild " " do class= da pergunta dos valores de corda do zero-comprimento e permita os valores de corda do zero-comprimento e o tamanho de lima question

Resposta : Eu preciso de ler uma lima de texto e de traçá-la a uma tabela do acesso

Olá! lá, você pode tentar este certificado, que é código de VBS.  Você pode mudar a posição do DB e da lima de texto com strDBPath e strTextFile.

Considerações,

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

Ajustar o objConn = o CreateObject (“ADODB.Connection”)
strDBPath = “C:\Temp\Users.accdb”
strTextFile = “C:\Temp\Users.txt”
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
intForReading = 1
Se objFSO.FileExists (strDBPath) = retificam então
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open “Provider=Microsoft.ACE.OLEDB.12.0; Origem de dados =” & strDBPath &”; Persiste a segurança Info=False; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Origem de dados =” & strDBPath &”; “
	'objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Origem de dados =” & strDBPath &”; Jato OLEDB: Base de dados Password=password; “
	'objConn.Open “Driver= {excitador de Microsoft Access (*.mdb)}; DBQ=” & strDBPath &”; “
	objFile ajustado = objFSO.OpenTextFile (strTextFile, intForReading, falso)
	strFields = ""
	strValues = ""
	Quando não objFile.AtEndOfStream
		strLine = guarnição (objFile.ReadLine)
		Se "" <> do strLine então
			Se InStr (strLine, “=") > 0 então
				strFieldName = guarnição (esquerda (strLine, InStr (strLine, “=") - 1))
				strValue = guarnição (meados de (strLine, InStr (strLine, “=") + 1))
				Se strFields = "" então
					strFields = “[” & strFieldName & “]”
				Mais
					strFields = strFields & “, [” & strFieldName & “]”
				Terminar se
				Se strValues = "" então
					strValues = ““” & strValue & “” “
				Mais
					strValues = strValues & “, “” & strValue & “” “
				Terminar se
			Terminar se
		Terminar se
	Wend
	objFile.Close
	strQuery = “INSERÇÃO EM VALORES dos contatos (” & os strFields & ") (” & strValues & "); ”
	No resumo do erro em seguida
	objConn.Execute (strQuery)
	Se Err.Number <> 0 então
		Erro de MsgBox “que introduz dados com pergunta: ” & VbCrLf & strQuery & VbCrLf & “erro” & Err.Number & “: ” & Err.Description
		Err.Clear
		No erro 0 empreendedores
	Mais
		No erro 0 empreendedores
		MsgBox “dados introduzidos com sucesso.”
	Terminar se
	objConn.close
	Ajustar o objConn = nada
Mais
	MsgBox “incapaz de encontrar” & strDBPath
Terminar se
Outras soluções  
 
programming4us programming4us