Respaldo de mysql utilizando Visual Basic 6.0 Primero que nada Hola a Todos..!
Estoy Realizando un sistema en visual basic 6.0 con mysql server 5.1 y conector ODBC 5.1. y necesito hacer un respaldo de la base de datos el código que tengo me da un error se los dejo para ver si alguien me puede ayudar... gracias de ante mano..!
Private Sub Guardar_Click()
Dim result As ADODB.Connection
'On Error GoTo Errores
NombreBD = Text1.Text & ".bak"
d = Dir1.Path & IIf(Mid(Dir1.Path, Len(Dir1.Path), 1) = "\", "", "\")
For I = 0 To File1.ListCount
If File1.List(I) = NombreBD Then
If MsgBox("Ya existe un respaldo. Desea reeplazarlo?", vbYesNo + vbQuestion, "Respaldando") = vbNo Then Exit Sub
Kill (d & NombreBD)
End If
Next I
Me.MousePointer = 11
Set result = New ADODB.Connection
result.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost; PORT=3306; DATABASE=expedientes; USER=root; PASSWORD=;"
result.Open
result.Execute "Backup Database expedientes to Disk ='" & (d & NombreBD) & "'"
result.Close
MsgBox "La Base de Datos fue Respaldada Satisfactoriamente", vbInformation, "Respaldo..."
Unload Me
Menu.Show
Exit Sub
'Errores:
Me.MousePointer = 0
If Err.Number = 68 Then
MsgBox "Unidad de almacenamiento vacia o no adecuada", 16
Else
If Err.Number = 70 Then
MsgBox "Unidad de almacenamiento protegida contra escritura", 16
Else
If Err.Number = 3356 Then
MsgBox "La Base de Datos esta Activa, No se puede realizar el Respaldo", 16
Else
MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number
End If
End If
End If
End Sub
este es el error que me da:
error'-2147217900(80040e14)' en tiermpo de ejecucion:
[mysql][odbc 5.1 driver][mysqld-5.1.36-community-log]you have an error im your sql syntax; check the manual that corresponds to your mysql server version for the rigth syntax to use near 'database expedientes to disk='C:\zxz.bak" at line 1
NECESITO AYUDA CON ESO URGENTE.. XFAVOR
