cambiar unidad de backup
Publicado por sergio (44 intervenciones) el 23/02/2007 18:54:21
hola amigos desde ya gracias por su tiempo, me podrian ayudar a cambiar la unidad en la que se realizara un bakup, que el usuario ingrese por teclado la unidad destino del backup, el codigo funciona para el path c:\ , pero no logro que me acepte otra unidad, soy un programador novato!!.
Aqui esta el codigo original que lo consegui aqui en el foro: funciona muy bien!!!!
string ls_database, ls_ruta_backup
ls_database = "MASTER"
ls_ruta_backup = "C:\"
string ls_sql, ls_nombre_backup
string ls_fecha, ls_hora
ls_fecha = string(today(),"ddmmyyyy")
ls_hora = string(now(),"hhmmss")
ls_nombre_backup = ls_database + '_' + ls_fecha + '_' + ls_hora
this.text = ls_nombre_backup
SQLCA.AutoCommit = TRUE
ls_sql="BACKUP DATABASE " + ls_database + " TO DISK = '" + ls_ruta_backup + ls_nombre_backup + ".BAK" + "' WITH FORMAT"
EXECUTE IMMEDIATE :ls_sql USING SQLCA;
If SQLCA.SQLCode = 0 then
MessageBox("Aviso","La copia ha sido generada corectamente~r " + ls_ruta_backup + ls_nombre_backup + ".BAK")
Else
MessageBox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Aqui el codigo modifidado que no me funciona!!!!
string ls_database, ls_ruta_backup, UND
ls_database = "GASSIES"
UND = STRING(EM_UNIDAD.TEXT)
ls_ruta_backup = "UND:\"
string ls_sql, ls_nombre_backup
string ls_fecha, ls_hora
ls_fecha = string(today(),"ddmmyyyy")
ls_hora = string(now(),"hhmmss")
ls_nombre_backup = ls_database + '_' + ls_fecha + '_' + ls_hora
this.text = ls_nombre_backup
SQLCA.AutoCommit = TRUE
ls_sql="BACKUP DATABASE " + ls_database + " TO DISK = '" + ls_ruta_backup + ls_nombre_backup + ".BAK" + "' WITH FORMAT"
EXECUTE IMMEDIATE :ls_sql USING SQLCA;
If SQLCA.SQLCode = 0 then
MessageBox("Aviso","La copia ha sido generada corectamente~r " + ls_ruta_backup + ls_nombre_backup + ".BAK")
close(w_copia_seguridad)
Else
MessageBox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
Aqui esta el codigo original que lo consegui aqui en el foro: funciona muy bien!!!!
string ls_database, ls_ruta_backup
ls_database = "MASTER"
ls_ruta_backup = "C:\"
string ls_sql, ls_nombre_backup
string ls_fecha, ls_hora
ls_fecha = string(today(),"ddmmyyyy")
ls_hora = string(now(),"hhmmss")
ls_nombre_backup = ls_database + '_' + ls_fecha + '_' + ls_hora
this.text = ls_nombre_backup
SQLCA.AutoCommit = TRUE
ls_sql="BACKUP DATABASE " + ls_database + " TO DISK = '" + ls_ruta_backup + ls_nombre_backup + ".BAK" + "' WITH FORMAT"
EXECUTE IMMEDIATE :ls_sql USING SQLCA;
If SQLCA.SQLCode = 0 then
MessageBox("Aviso","La copia ha sido generada corectamente~r " + ls_ruta_backup + ls_nombre_backup + ".BAK")
Else
MessageBox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Aqui el codigo modifidado que no me funciona!!!!
string ls_database, ls_ruta_backup, UND
ls_database = "GASSIES"
UND = STRING(EM_UNIDAD.TEXT)
ls_ruta_backup = "UND:\"
string ls_sql, ls_nombre_backup
string ls_fecha, ls_hora
ls_fecha = string(today(),"ddmmyyyy")
ls_hora = string(now(),"hhmmss")
ls_nombre_backup = ls_database + '_' + ls_fecha + '_' + ls_hora
this.text = ls_nombre_backup
SQLCA.AutoCommit = TRUE
ls_sql="BACKUP DATABASE " + ls_database + " TO DISK = '" + ls_ruta_backup + ls_nombre_backup + ".BAK" + "' WITH FORMAT"
EXECUTE IMMEDIATE :ls_sql USING SQLCA;
If SQLCA.SQLCode = 0 then
MessageBox("Aviso","La copia ha sido generada corectamente~r " + ls_ruta_backup + ls_nombre_backup + ".BAK")
close(w_copia_seguridad)
Else
MessageBox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
Valora esta pregunta
0