ERRO EM BACKUP MYSQL
Caros amigos,
Estava com problemas para realização do backup com banco de dados em mysql.
Um amigo aqui do vb, me indicou o seguinte exemplo:
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7887
Esta funcionando perfeitamente na hora de fazer o backup, mas na hora de restaurar esta dando erro.
O erro é pq quando faz o backup, ele salva as data no formato [Ô]DD-MM-YYYY[Ô] e para restaurar preciso de colocar no formato [Ô]YYYY-MM-DD[Ô].
O problema que não localizei no exemplo onde mudo o formato da data.
Desde já agradeço a atenção de todos.
Estava com problemas para realização do backup com banco de dados em mysql.
Um amigo aqui do vb, me indicou o seguinte exemplo:
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7887
Esta funcionando perfeitamente na hora de fazer o backup, mas na hora de restaurar esta dando erro.
O erro é pq quando faz o backup, ele salva as data no formato [Ô]DD-MM-YYYY[Ô] e para restaurar preciso de colocar no formato [Ô]YYYY-MM-DD[Ô].
O problema que não localizei no exemplo onde mudo o formato da data.
Desde já agradeço a atenção de todos.
Prezados,
As linhas que achei referente a data são essas abaixo:
Alguém sabe dizer se os dados do tipo 135 é realmente data?
Segue abaixo parte do código referente ao backup em mysql.
For i = 0 To .Fields.Count - 1
strBuffer = .Fields.Item(i).Value
[ô]Debug.Print .Fields.Item(i).Name
If .Fields.Item(i).Type = 5 Then
strBuffer = Replace(Format(strBuffer, [Ô]0.00[Ô]), [Ô],[Ô], [Ô].[Ô])
End If
If .Fields.Item(i).Type = 131 Then
strBuffer = Replace(Format(strBuffer, [Ô]0.00[Ô]), [Ô],[Ô], [Ô].[Ô])
End If
If .Fields.Item(i).Type = 135 Then
strBuffer = Format(strBuffer, [Ô]yyyy-MM-dd hh:mm:ss[Ô])
End If
strBuffer = Replace(strBuffer, [Ô]\[Ô], [Ô]\\[Ô])
strBuffer = Replace(strBuffer, [Ô][ô][Ô], [Ô]\[ô][Ô])
strBuffer = Replace(strBuffer, Chr(10), [Ô][Ô])
strBuffer = Replace(strBuffer, Chr(13), [Ô]
[Ô])
If strLinha <> [Ô][Ô] Then
strLinha = strLinha & [Ô], [Ô]
End If
strLinha = strLinha & [Ô][ô][Ô] & strBuffer & [Ô][ô][Ô]
Next i
As linhas que achei referente a data são essas abaixo:
Alguém sabe dizer se os dados do tipo 135 é realmente data?
Segue abaixo parte do código referente ao backup em mysql.
For i = 0 To .Fields.Count - 1
strBuffer = .Fields.Item(i).Value
[ô]Debug.Print .Fields.Item(i).Name
If .Fields.Item(i).Type = 5 Then
strBuffer = Replace(Format(strBuffer, [Ô]0.00[Ô]), [Ô],[Ô], [Ô].[Ô])
End If
If .Fields.Item(i).Type = 131 Then
strBuffer = Replace(Format(strBuffer, [Ô]0.00[Ô]), [Ô],[Ô], [Ô].[Ô])
End If
If .Fields.Item(i).Type = 135 Then
strBuffer = Format(strBuffer, [Ô]yyyy-MM-dd hh:mm:ss[Ô])
End If
strBuffer = Replace(strBuffer, [Ô]\[Ô], [Ô]\\[Ô])
strBuffer = Replace(strBuffer, [Ô][ô][Ô], [Ô]\[ô][Ô])
strBuffer = Replace(strBuffer, Chr(10), [Ô][Ô])
strBuffer = Replace(strBuffer, Chr(13), [Ô]
[Ô])
If strLinha <> [Ô][Ô] Then
strLinha = strLinha & [Ô], [Ô]
End If
strLinha = strLinha & [Ô][ô][Ô] & strBuffer & [Ô][ô][Ô]
Next i
Tópico encerrado , respostas não são mais permitidas