IMPORTAR SEMPRE 2 CAMPOS DE UM TXT

TECLA 01/06/2010 15:45:22
#343562
Veja se te ajuda...
[txt-color=#007100][ô]Aqui seu código antes da rotina...[/txt-color]
While Not EOF(ArqLivre)
    Line Input #ArqLivre, Registro
    con.Execute [Ô]UPDATE buscar [Ô] & _
                [Ô]SET data=[ô][Ô] & Trim(Mid(Registro, InStr(1, Registro, [Ô] [Ô]), Len(Registro))) & [Ô][ô] WHERE codigo=[Ô] & Trim(Mid(Registro, 1, InStr(1, Registro, [Ô] [Ô])))
Wend
[txt-color=#007100][ô]Aqui seu código depois da rotina...[/txt-color]
MARCELOFAZAN 01/06/2010 16:26:28
#343573
tecla eu utilizo conexao com arquivo udl ?
sera esse o problema

estou com o erro uncori..... database format

ainda nao deu certo
MARCELOFAZAN 02/06/2010 09:53:56
#343644
Tecla o codigo ta assim do tentando exportar mais nao ta funcionando
se poder dar uma mão
to mandando o txt tenta exportar pro mdb e me diz obrigado abraço

Option Explicit
Dim Final As String
Dim Arquivo As String
Dim ArqLivre As String
Dim Registro As String


Private Sub Command1_Click()
ler
End Sub

Private Sub ler()

Final = [Ô][Ô]
Dim dbBanco As Database
Set dbBanco = OpenDatabase(App.Path & [Ô]\busca1.mdb[Ô])
Dim data As String
Dim codigo As String

Arquivo = App.Path & [Ô]\mensalidade.mens_mes.txt[Ô]
On Error Resume Next

ArqLivre = FreeFile
On Error Resume Next
Open Arquivo For Input As #ArqLivre
If Err.Number = 53 Then
On Error GoTo 0
MsgBox [Ô]ARQUIVO NÃO ENCONTRADO[Ô], , [Ô]AVISO[Ô]
Final = [Ô]fim[Ô]
Exit Sub
ElseIf Err.Number <> 0 Then
MsgBox [Ô]Erro: [Ô] & Err.Number
Exit Sub
End If

Line Input #ArqLivre, Registro

[ô]Aqui seu código antes da rotina...
While Not EOF(ArqLivre)
Line Input #ArqLivre, Registro
conexao.Execute [Ô]UPDATE buscar SET data=[ô][Ô] & Trim(Mid(Registro, InStr(1, Registro, [Ô] [Ô]), Len(Registro))) & [Ô][ô] WHERE codigo=[Ô] & Trim(Mid(Registro, 1, InStr(1, Registro, [Ô] [Ô])))

Wend

[ô]While Not EOF(ArqLivre)
[ô] dbBanco.Execute [Ô]UPDATE buscar SET data=[ô][Ô] & Trim(Mid(s, InStr(1, Registro, [Ô] [Ô]), Len(Registro))) & [Ô][ô] WHERE codigo=[Ô] & Trim(Mid(s, 1, InStr(1, s, [Ô] [Ô])))
[ô] Line Input #ArqLivre, Registro
[ô]Wend
Close #ArqLivre

dbBanco.Close
End Sub


Abs
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar