|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Importar arquivo texto para um Banco de Dados Access
|
 |
|
|
|
Postada em 25/6/2002 por Jonas
Private Sub cmdImportarArquivoTexto_Click()
Dim linha As String, num As Integer, Campo1 as String, Campo2 as String
Open App.Path & "\texto.txt" For Input As #1
num = 0
Do Until EOF(1)
Line Input #1, linha
Campo1 = = Mid(linha, 1, 4) 'Mid(string, coluna inicial, tamanho (quant. caracteres)
Campo2 = Mid(linha, 5, 20)
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Campo1
Data1.Recordset.Fields(1) = Campo2
Data1.Recordset.Update
num = num + 1
Loop
MsgBox "Importação Concluída" & vbCrLf & _
"Foram importados " & num & " Registros.", vbInformation
Close #1
End Sub
|
|
|
|
|
