En este grupo En todos

Foro de Access



Copia de Seguridad DB Mysql desde Access 2007

CARLOS
Guatemala, Guatemala
Escrito por Carlos Santa Maria
el 29/08/2010

Saludos Juan Cots!


Necesito hacer una copia de seguridad de mi base de datos que tengo en el servidor, tablas mysql, he encontrado un ejemplo:


Public Function Backup_Mysql()
Dim val, fic
As String
fic = Format(Now(),
"yyyymmddhhm" )
val = Shell(
"cmd /c <a href=" file://\\Directorio\ " target="">\\Directorio\mysqldump</A> -v --host = Ordenador - -User = usuario - -Password = contraseña-R nombreBBDD > <a href=" file://\\Directorio\ " target="">\\Directorio\NombreFichero</A>" & fic & ". Sql" , 1)
DoCmd. Quit
End
Function

Despues de tantos intentos.... Sin poderlo hacer, lo he dejado así:

'==================================
Dim MiBase As String
MiBase = "-hsanfranciscogt. Org -usanfranc_carlos -p123456 sanfranc_jo151"

Dim bkBase As String
bkBase = "C:\Users\Cross\Documents\PRUEBA. Sql"

Dim MysqlDumpstr As String
MysqlDumpstr = CurrentProject. Path & "\mysqldump. Exe"

Shell (MysqlDumpstr & " " & MiBase & " > " & bkBase), vbNormalFocus

'==================================

Los datos son reales y puedes probarlos.

en teoría debería ser tan sencillo como:
mysqldump --opt mibase > copia_seguridad. Sql

pero no me funciona, adjunto una imagen con el error.
https://www.carlossantamariagt.com/crossaccess/crossejemplos/error%20copia%20de%20seguridad. Jpg

encontré un vínculo acerca del comando mysqldump:
https://www.super-web-hosting.com/manuales/backup-mysql-con-mysqldump. Html

Cualquier comentario me ayudará mucho.

Carlos Santa Maria
Guatemala, Guatemala
Escrito por Carlos Santa Maria
el 30/08/2010

Saludos Juan Cots!

Según este link ya fue resuelto desde vb6
Https://www.vbforums.com/showthread. Php? T=416565

  1. Dim strBackup As String
  2. Dim strAppPath As String
  3. strAppPath = App. Path & IIf ( Right ( App. Path , 1 ) = "" , "" , "" )
  4. strBackup = strAppPath & "mysqldump --host=host_ip --port=port_num -u UserName --password=password --all-databases --opt -c > c:\Path\To\Backup\Folder\BACKUP_FILE. SQL"
  5. ShellExecute 0 , vbNullString , strBackup, vbNullString , vbNullString , vbNormalFocus
  6. MsgBox "Completed Backup!"


pero no lo he podido adaptar.

espero tus comentarios.