Transferir texto no Access

Question

Algu&eacute;m teria como me explicar como fa&ccedil;o uma importa&ccedil;&atilde;o de txt para uma tabela Access usando macro? Seria um arquivo sem tabula&ccedil;&atilde;o tipo o arquivo abaixo:

20030316FRANTZ2230

CAMPO 1 A 8 = DATA
CAMPO 9 A 14 = NOME
CAMPO 15 A 19 = HORA

Estou precisando fazer a quebra da linha conforme os campos acima.
Estou tentando usar a macro, mas estou tendo dificuldades no campo no campo NOME DA ESPECIFICA&Ccedil;&Atilde;O. 

Preciso que algu&eacute;m me ajude, pois quero criar um bot&atilde;o e vincular essa macro ao bot&atilde;o.

Answer

Putz cara, foi mal, esqueci de olhar o post...

Seguinte, o arquivo tem uma nova linha depois de cada registro, tipo:

20030316FRANTZ2230
20030317EEEEEE2140
20030418RRRRRR1260
...

ou n&atilde;o usa separador de registros, tipo

20030316FRANTZ223020030317EEEEEE214020030418RRRRRR1260...

 :?: 

Melhor n&atilde;o usar macros, pois elas al&eacute;m de serem lentas tiram um pouco do controle sobre o que acontece. Confirma s&oacute; essa d&uacute;vida acima que eu preparo rapidinho um c&oacute;digo pra fazer isso a&iacute;.

Answer

O arquivo ser&aacute; na seguinte forma:

20030316FRANTZ2230 
20030317EEEEEE2140 
20030418RRRRRR1260

[]'z

Answer

Bem, estou come&ccedil;ando com VB e Access, mas n&atilde;o seria isso:
Private Sub Comando0_Click()
   Dim Arquivo As String
   Texto1.SetFocus
   Arquivo = Texto1.Text
   Dim Texto
   Open Arquivo For Input As #1
   Set db = CurrentDb
   Set Tabela = db.OpenRecordset(TABELA, dbOpenDynaset)
   Do While Not EOF(1)
      Line Input #1, Texto
      With Tabela
         .AddNew
         !Data = DateValue(Mid(Texto, 1, 4) & / & Mid(Texto, 5, 6) & / & Mid(Texto, 7, 8)
         !Nome = (Mid(Texto, 9, 14))
         !Hora = Hour(Mid(Texto, 15, 16) & : & Mid(Texto, 17, 18)
         .Update
      End With
   Loop
   Close #1
End Sub


Se eu estiver errado me corrijam..

Answer

[quote=GBastos]Bem, estou come&ccedil;ando com VB e Access, mas n&atilde;o seria isso:
[code]Private Sub Comando0_Click()
   Dim Arquivo...[/quote]

&Eacute; isso a&iacute; mesmo.

Answer

sml0117  sml0117  sml0117 

Hehehehe, to aprendendo! Agora, c&aacute; entre n&oacute;s estou achando o VB melhor de programar do que o Delphi..

Answer

[quote=GBastos]sml0117  sml0117  sml0117 

Hehehehe, to aprendendo! Agora, c&aacute; entre n&oacute;s estou achando o VB melhor de programar do ...[/quote]

O VB &eacute; mais agrad&aacute;vel, mas no Delphi a produtividade &eacute; maior. Os controles da dados do VB s&atilde;o podres, super-bugados e pesados. Voc&ecirc; acaba tendo que fazer tudo por c&oacute;digo. J&aacute; no Delphi voc&ecirc; pode fazer om formul&aacute;rio de acesso a BD sem problemas usando os controles dele.

Isso no VB 6. T&ocirc; passando batido pelo VB.NET. N&atilde;o vou usar uma linguagem que fa&ccedil;a meus softwares rodarem mais lentos e ainda obrigue meus clientes a fazerem upgrade.

Answer

Os componentes eu n&atilde;o sei pois ainda estou no VB Access, mas s&oacute; o fato de poder montar um programinha r&aacute;pido em qq m&aacute;quina que tenha Access, eu j&aacute; estou achando &oacute;timo!  :D 
E a sintaxe tamb&eacute;m parece ser mais intuitiva do que as outras linguagens de programa&ccedil;&atilde;o..
Al&eacute;m disso tudo, senti mais liberdade do que com C, Pascal, Delphi, etc.

.Net, eu to por fora e pretendo ficar por algum tempo...

Por falar nisso, vou botar um novo t&oacute;pico para ver a opiniao do pessoal.

Abra&ccedil;o

Answer

[quote=romulo]O VB &eacute; mais agrad&aacute;vel, mas no Delphi a produtividade &eacute; maior. Os controles da dados do VB s&atilde;o podres, super-bugados e...[/quote]
 
Est&aacute; na hora de uma boa atualiza&ccedil;&atilde;o pro VB, heim? Talvez na vers&atilde;o 8. 

Mas quanto a POO, Delphi &eacute;  muito melhor que VB, isso &eacute; indicutivel!

Answer

[quote=RipThor]Est&aacute; na hora de uma boa atualiza&ccedil;&atilde;o pro VB, heim? Talvez na vers&atilde;o 8. 

Mas quanto a POO, Delphi &eacute;  muito melhor qu...[/quote]

Pra mim o VB infelizmente morreu, uma pena...  :?

Caras, voc&ecirc;s n&atilde;o sabem a trabalheira que eu tive pra fazer um soft multitier no VB com uma performance aceit&aacute;vel. A sobrecarga na rede dos controles padr&atilde;o do VB &eacute; assustadora, tive que usar matrizes de strings para comunica&ccedil;&atilde;o de dados ao inv&eacute;s de usar os objetos COM do VB. Uma trabalheira dos infernos. No Delphi tudo &eacute; quase autom&aacute;tico...

Ferramentas

Mover Tópico