IMPORTAR .TXT PARA MYSQL
Luiz,
continua o mesmo erro...
Essa matriz é fixa ou está temporariamente bloqueada.
Att
continua o mesmo erro...
Essa matriz é fixa ou está temporariamente bloqueada.
Att
vc consegue postar o projeto?
abraço!
abraço!
luiz,
O projeto é muito grande, infelizmente não da para posta-lo.
Você teria uma outra sugestão
O projeto é muito grande, infelizmente não da para posta-lo.
Você teria uma outra sugestão
Luiz,
Conforme solicitado, segue anexo uma parte do programa para que você possa analisar.
Favor salvar em c:
O banco de dados e em mysql (segue anexo também o backup)
desde já agradeço.
Conforme solicitado, segue anexo uma parte do programa para que você possa analisar.
Favor salvar em c:
O banco de dados e em mysql (segue anexo também o backup)
desde já agradeço.
ok amigo vou analisar e te dou uma resposta
amigo não testei com o banco mas a matriz está funcionando segue o codigo do form frmexport :
---------------------------------------------------------------------------------------------
Option Explicit
Dim MTime As Long
Const XPBlue_ProgressBar = &H2BD228
Public mycon As New ADODB.Connection
Public mycmd As New ADODB.Command
Dim Matriz() As String
Private Sub Command1_Click()
[ô]If frminicial.txtemp = [Ô]170[Ô] Then
cliente
[ô]vendas
[ô]chave_vendas
[ô]chave_cliente
Unload Me
[ô]ElseIf frminicial.txtemp = [Ô]190[Ô] Then
[ô]cliente190
[ô]vendas190
[ô]chave_vendas
[ô]chave_cliente
[ô]Unload Me
[ô]End If
End Sub
Sub ParseToArray(sLine As String, A() As String)
Dim P As Long, LastPos As Long, i As Long
P = InStr(sLine, [Ô];[Ô])
i = 1
Do While P
If i = 1 Then ReDim A(1 To 1) Else ReDim Preserve A(1 To i)
A(i) = Mid$(sLine, LastPos + 1, P - LastPos - 1)
LastPos = P
i = i + 1
P = InStr(LastPos + 1, sLine, [Ô];[Ô], vbBinaryCompare)
Loop
End Sub
Private Sub cliente()
Dim F As Long, sLine As String
Dim X As Integer
[ô]On Error GoTo trata_erro
[ô]localiza o caminho da arquivo .txt para importar para a tabela
Me.text1 = [Ô]C:\ASGARD\export\099\clientes.txt[Ô]
[ô]inicia a conexão com o banco de dados
mycon.Open [Ô]dsn=asgard_salles[Ô]
[ô] mycon.ConnectionString = [Ô]provider=microsoft.jet.oledb.4.0;[Ô] & [Ô] data source=[Ô] & App.Path & [Ô]\db001\bc001.mdb[Ô]
[ô] mycon.Open
[ô]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
[ô]limpa os dados da tabela
[ô] .CommandText = [Ô]drop table cliente[Ô]
[ô] 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[Ô]
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 = [Ô]insert into cliente_asgard [Ô] & [Ô] (codigo, nome, endereco, bairro, cidade, uf, cep, fone) values ([ô][Ô] & Val(Matriz(0)) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(1) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(2) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(3) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(4) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(5) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(6) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(7) & [Ô][ô])[Ô]
.Execute
[ô]finaliza o loop
Loop
Me.pb.Visible = False
Me.lblprogress = [Ô][Ô]
End With
MsgBox [Ô]Arquivo texto importado com sucesso !! [Ô]
Set mycmd = Nothing
mycon.Close
Close #F
[ô]exclui o arquivo .txt da pasta
[ô]Kill [Ô]C:\asgard\export\[Ô] & frminicial.StatusBar1.Panels(2).Text & [Ô]\clientes.txt[Ô]
Exit Sub
trata_erro:
MsgBox [Ô]Ocorreu o erro ==> [Ô] & Err.Description
End Sub
---------------------------------------------------------------------------------------------
Option Explicit
Dim MTime As Long
Const XPBlue_ProgressBar = &H2BD228
Public mycon As New ADODB.Connection
Public mycmd As New ADODB.Command
Dim Matriz() As String
Private Sub Command1_Click()
[ô]If frminicial.txtemp = [Ô]170[Ô] Then
cliente
[ô]vendas
[ô]chave_vendas
[ô]chave_cliente
Unload Me
[ô]ElseIf frminicial.txtemp = [Ô]190[Ô] Then
[ô]cliente190
[ô]vendas190
[ô]chave_vendas
[ô]chave_cliente
[ô]Unload Me
[ô]End If
End Sub
Sub ParseToArray(sLine As String, A() As String)
Dim P As Long, LastPos As Long, i As Long
P = InStr(sLine, [Ô];[Ô])
i = 1
Do While P
If i = 1 Then ReDim A(1 To 1) Else ReDim Preserve A(1 To i)
A(i) = Mid$(sLine, LastPos + 1, P - LastPos - 1)
LastPos = P
i = i + 1
P = InStr(LastPos + 1, sLine, [Ô];[Ô], vbBinaryCompare)
Loop
End Sub
Private Sub cliente()
Dim F As Long, sLine As String
Dim X As Integer
[ô]On Error GoTo trata_erro
[ô]localiza o caminho da arquivo .txt para importar para a tabela
Me.text1 = [Ô]C:\ASGARD\export\099\clientes.txt[Ô]
[ô]inicia a conexão com o banco de dados
mycon.Open [Ô]dsn=asgard_salles[Ô]
[ô] mycon.ConnectionString = [Ô]provider=microsoft.jet.oledb.4.0;[Ô] & [Ô] data source=[Ô] & App.Path & [Ô]\db001\bc001.mdb[Ô]
[ô] mycon.Open
[ô]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
[ô]limpa os dados da tabela
[ô] .CommandText = [Ô]drop table cliente[Ô]
[ô] 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[Ô]
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 = [Ô]insert into cliente_asgard [Ô] & [Ô] (codigo, nome, endereco, bairro, cidade, uf, cep, fone) values ([ô][Ô] & Val(Matriz(0)) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(1) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(2) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(3) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(4) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(5) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(6) & [Ô][ô],[Ô] & [Ô][ô][Ô] & _
Matriz(7) & [Ô][ô])[Ô]
.Execute
[ô]finaliza o loop
Loop
Me.pb.Visible = False
Me.lblprogress = [Ô][Ô]
End With
MsgBox [Ô]Arquivo texto importado com sucesso !! [Ô]
Set mycmd = Nothing
mycon.Close
Close #F
[ô]exclui o arquivo .txt da pasta
[ô]Kill [Ô]C:\asgard\export\[Ô] & frminicial.StatusBar1.Panels(2).Text & [Ô]\clientes.txt[Ô]
Exit Sub
trata_erro:
MsgBox [Ô]Ocorreu o erro ==> [Ô] & Err.Description
End Sub
Luiz, bom dia!
Funcionou perfeitamente!!!
Estou muitissimo agradecido pelo seu empenho em me ajudar.
Estou a sua disposição no que puder lhe ajudar.
Muito obrigado!
Funcionou perfeitamente!!!
Estou muitissimo agradecido pelo seu empenho em me ajudar.
Estou a sua disposição no que puder lhe ajudar.
Muito obrigado!
Tópico encerrado , respostas não são mais permitidas