Usando a caixa de diálogo de Cópia de Arquivos do Explorer

Conectando-se a um arquivo texto usando o DBGrid com DataControl

Para conectar-se a um arquivo texto usando um DBGrid vinculado a um DataControl , fazemos o seguinte:

Inicie um novo projeto no Visual Basic e no formulário padrão inclua os seguintes controles:

Data - Propriedade Name = Data1
DBGrid - Propriedade Name = Grid e Propriedade DataSource = Data1
Frame
Duas caixas de texto
Um botão de comando

A aparência do formulário do seu projeto deverá ser a seguinte:

1-) Insira o seguinte código no formulário do projeto

Private Sub Conectar_texto(Path As String, FileName As String, dat As Data, dbg As DBGrid)
'//fonte do arquivo texto
With dbg.Font
.Name = "Courier new"
.Size = 8
.Bold = False
End With

Set dbg.HeadFont = dbg.Font

'//conecta o dbgrid ao arquivo
With dat
   .Caption = FileName
   .Connect = "Text;"
   .DatabaseName = Path
   .RecordSource = FileName
   .Refresh
End With

End Sub

2-) No botão de comando - Conectar - insira o seguinte código:

Private Sub Command1_Click()
Call Conectar_texto(Text1.Text, Text2.Text, data1, Grid)
End Sub

O resultado do processamento deverá ser o seguinte:

Por hoje é só. Bom proveito...;-)