Galera

O código abaixo estã funcionando, eu criei um, textbox para digitar a data, mas é possivel utilizar a data gravada no nome do arquivo ? evitando assim a digitação manual ?

Exemplo: loja2712004.txt

 

Obrigado

 

Private Sub Command1_Click()

Dim F As Long, Linha As String
Dim db As Database, rs As Recordset

On Error GoTo trata_erro

F = FreeFile
Open txttexto.Text For Input As F 'abre o arquivo texto
Set db = DBEngine(0).OpenDatabase(txtbase.Text) 'abre o banco de dados
On Error Resume Next

'db.Execute "DROP TABLE mix2"  'exclui a tabela se ela ja existir

On Error GoTo trata_erro

'db.Execute "CREATE TABLE mix2 (ID LONG, [codigo] TEXT (50), " _
& "[descricao] TEXT (50), [quantidade] TEXT (50), [categoria] TEXT (2), [subcategoria] TEXT (2))"    'cria a tabela com a estrutura desejada

Set rs = db.OpenRecordset("mix2", dbOpenTable) 'abre a tabela para receber os dados

Do While Not EOF(F)
  Line Input #F, Linha
 
  'extrai a informação do arquivo texto
  codigo = Mid(Linha, 1, 6)
  descricao = Mid(Linha, 8, 20)
  quantidade = Mid(Linha, 29, 7)
  categoria = Mid(Linha, 37, 2)
  subcategoria = Mid(Linha, 40, 2)
  data = txtdata.Text
 
  rs.AddNew          'inclui novo registro
  rs(0) = codigo 'primeiro campo - o ID - identificador do pedido
  rs(1) = descricao
  rs(2) = quantidade
  rs(3) = categoria
  rs(4) = subcategoria
  rs(5) = data
  rs.Update            'grava o registro inserido
Loop

MsgBox "Arquivo texto importado com sucesso !! "

rs.Close
db.Close
Set rs = Nothing

Close #F
Exit Sub

trata_erro:
   MsgBox "Ocorreu o seguinte erro ==>  " & UCase(Err.Description)

End Sub

Olá,

 

Não entendi bem o que você quer fazer...você quer carregar a data atual em uma variável ou usar a data no nome do arquivo texto? Se for o primeiro caso, use a função Date, ou Now do VB:

 

Data = Date() ou

Data = Format(Now, "dd/mm/yyyy")

 

Se você quer concatenar a data tual em um nome do arquivo texto, faça o seguinte:

 

NomeArquivo = "loja" & Format(now,"ddmmyyyy") & ".txt"

 

Se não for nada disso que eu disse, desculpe a ignorância, mas se puder detalhar melhor o que você deseja, taçlvez eu possa te ajudar.

 

Um abraço,

Sandro.

 

EU DESEJO EXTRAIR A DATA DO ARQUIVO TEXTO QUE SERA TRANSPORTADA PARA O BANCO DE DADOS.

 

CRISTIAN

Use o componente ListView. Primeiro voce deverá verificar se existe o .txt

Através do componente voce irá pegar o nome o .txt, daí a pegar a parte data é fácil. Lembrese que o nome de arquivo nunca deverá comerçar com números.

Espero ter ajudado.