CONSULTA EM TXT E SALVA EM MYSQL
Amigos, bom dia!
tenho um arquivo .txt com os seguintes dados:
02900031.dpv;1
no banco de dados tenho varios arquivos com os seguintes dados:
No. pedido pedido com problema
02900031.dpv 0
01500001.dpv 0
02600192.dpv 0
Preciso de um código para verificar o número do pedido dentro de um .txt e alterar o campo de pedido com problema dentro do banco de dados
passando-o para:
No. pedido pedido com problema
02900031.dpv 1
01500001.dpv 0
02600192.dpv 0
Sabem me informar como fazer este código?
Desde já agradeço,
tenho um arquivo .txt com os seguintes dados:
02900031.dpv;1
no banco de dados tenho varios arquivos com os seguintes dados:
No. pedido pedido com problema
02900031.dpv 0
01500001.dpv 0
02600192.dpv 0
Preciso de um código para verificar o número do pedido dentro de um .txt e alterar o campo de pedido com problema dentro do banco de dados
passando-o para:
No. pedido pedido com problema
02900031.dpv 1
01500001.dpv 0
02600192.dpv 0
Sabem me informar como fazer este código?
Desde já agradeço,
a idéia é percorrer o txt lendo a linha inteira e dando split pelo curinga [Ô];[Ô] e vai pegando as inforações e consultando normal..
Abraços
Abraços
zerocal,
blz! funcionou!!!
segue código:
Private Sub cliente()
Dim f As Long, sLine As String
Dim X As Integer
On Error GoTo trata_erro
Dim RetVal As String
[ô]localiza o caminho da arquivo .txt para importar para a tabela
Me.text1 = [Ô]C:\clientes.txt[Ô]
[ô]inicia a conexão com o banco de dados
mycon.Open [Ô]dsn=asgard_goodwill_salles[Ô]
[ô]verifica os dados dentro da .txt
f = FreeFile
[ô]abre a .txt e inicia um loop para o número de linhas dentro do arquivo
Open text1.Text For Input As f
[ô]inicia o processo de transferencia dos dados
With mycmd
Set .ActiveConnection = mycon
.CommandType = adCmdText
On Error Resume Next
[ô]passa os parametros do loop para adicionar os dados na tabela cliente
Do While Not EOF(f)
Line Input #f, sLine
ParseToArray sLine, Matriz()
[ô] Me.lblprogress = [Ô]Atualizando clientes: [Ô] & Me.txtanalise & [Ô][Ô]
pb.Visible = True
pb.Min = 0
pb.Max = f
pb.Value = 0
For X = pb.Min To pb.Max
pb.Value = X
DoEvents
Next X
[ô]insere os dados do array na tabela clientes
.CommandText = [Ô]update cliente set [Ô] & _
[Ô]nome = [ô][Ô] & Matriz(5) & [Ô][ô][Ô] & _
[Ô]where codigo = [Ô] & Val(Matriz(1)) & [Ô][Ô]
.Execute
[ô]finaliza o loop
Loop
Me.pb.Visible = False
Me.lblprogress = [Ô][Ô]
End With
Set mycmd = Nothing
mycon.Close
Close #f
Exit Sub
trata_erro:
End Sub
Vou fazer testes agora com as informações corretas.
blz! funcionou!!!
segue código:
Private Sub cliente()
Dim f As Long, sLine As String
Dim X As Integer
On Error GoTo trata_erro
Dim RetVal As String
[ô]localiza o caminho da arquivo .txt para importar para a tabela
Me.text1 = [Ô]C:\clientes.txt[Ô]
[ô]inicia a conexão com o banco de dados
mycon.Open [Ô]dsn=asgard_goodwill_salles[Ô]
[ô]verifica os dados dentro da .txt
f = FreeFile
[ô]abre a .txt e inicia um loop para o número de linhas dentro do arquivo
Open text1.Text For Input As f
[ô]inicia o processo de transferencia dos dados
With mycmd
Set .ActiveConnection = mycon
.CommandType = adCmdText
On Error Resume Next
[ô]passa os parametros do loop para adicionar os dados na tabela cliente
Do While Not EOF(f)
Line Input #f, sLine
ParseToArray sLine, Matriz()
[ô] Me.lblprogress = [Ô]Atualizando clientes: [Ô] & Me.txtanalise & [Ô][Ô]
pb.Visible = True
pb.Min = 0
pb.Max = f
pb.Value = 0
For X = pb.Min To pb.Max
pb.Value = X
DoEvents
Next X
[ô]insere os dados do array na tabela clientes
.CommandText = [Ô]update cliente set [Ô] & _
[Ô]nome = [ô][Ô] & Matriz(5) & [Ô][ô][Ô] & _
[Ô]where codigo = [Ô] & Val(Matriz(1)) & [Ô][Ô]
.Execute
[ô]finaliza o loop
Loop
Me.pb.Visible = False
Me.lblprogress = [Ô][Ô]
End With
Set mycmd = Nothing
mycon.Close
Close #f
Exit Sub
trata_erro:
End Sub
Vou fazer testes agora com as informações corretas.
Tópico encerrado , respostas não são mais permitidas