USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página