CONVERTENDO ARQUIVO .TXT EM .MDB

GRAEFF 03/10/2009 17:55:17
#324317
Boa tarde, tenho um banco em .txt formatado da seguinte forma: Pergunta (tab) resposta ou seja o que separa a pergunta da resposta é um tab somente na mesma linha.

gostaria de converter esse arquivo .txt em um banco em access(mdb) no formato onde a coluna pergunta seja memorando e a coluna resposta tambem memorando.

Alguem sabe como converter?
Att.
TECLA 03/10/2009 18:33:38
#324319 Resposta escolhida
Você não informou se utiliza DAO ou ADO, mas a idéia é a seguinte:

1. Criar o BD (com ADOX)
Public Function CreateDatabase(Caminho As String) As Boolean
 On Error Resume Next
 Dim oCatalog As New ADOX.Catalog
 oCatalog.Create [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Caminho
 CreateDatabase = Err.Number = 0
End Function


2. Criar as tabelas
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

[ô]Abre o CATÁLOGO
cat.ActiveConnection = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=C:
wind.mdb;[Ô]

[ô]Cria uma nova tabela
With tbl
  .Name = [Ô]Contatos[Ô]  
  [ô] Cria os campos e os anexa a nova tabela
  [ô] é preciso fazer isto antes de anexar o objeto Table
  [ô] a coleção Tables collection do  Catalog
  .Columns.Append [Ô]Nome[Ô], adVarWChar
  .Columns.Append [Ô]Endereco[Ô], adVarWChar
  .Columns.Append [Ô]Telefone[Ô], adVarWChar
  .Columns.Append [Ô]Notas[Ô], adLongVarWChar
  .Columns([Ô]Notas[Ô]).Attributes = adColNullable
End With
[ô]Inclui a nova tabela ao banco de dados
cat.Tables.Append tbl
Set cat = Nothing
End Sub


3. Percorrer o arquivo TXT e fazer um INSERT no novo banco

Fonte: http://www.macoratti.net/cria_sql.htm
GRAEFF 03/10/2009 19:13:44
#324321
Mas como ficaria no modo DAO. eu uso DAO 3.6?
TECLA 03/10/2009 19:17:35
#324322
Citação:

GRAEFF escreveu:
Mas como ficaria no modo DAO. eu uso DAO 3.6?


Pelo jeito, você não acessou o link que postei.
A resposta está nele.
GRAEFF 03/10/2009 19:20:29
#324323
Pois eh agora que vi o link e acessei.. brigadão pela ajuda cara!
TECLA 03/10/2009 19:27:41
#324325
Não esqueça de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar