Power Builder - cambiar unidad de backup

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cambiar unidad de backup

Publicado por Jorge E (110 intervenciones) el 23/02/2007 21:54:57
Hola sergio.
ese codigo lo reconozco, jejejejej.
es cierto, en el script la ruta backup está por defecto el disco C:\ verdad ?.

supongo que tienes un window y dentro de esta tienes un botón en el que se encuentra el script. cierto ?
en tu ventana puedes agregar un sle_1

cambia la linea
ls_ruta_backup = "C:\"
por
ls_ruta_backup = sle_1.text

con esto, antes de crear el backup tu puedes escribir la ruta donde se almacenará el archivo bak.
de esta manera solucionas tu inconveniente. pero poniendose en lugar del usuario, crees tú que el usuario tenga la paciencia de escribir toda una ruta, si y no. y si la ruta que escribió no fue correcta ?. te ofrezco esta solución.
al lado del sle_1 coloca un boton y pega el siguiente escript l nuevo botton.

integer li_result
string ls_path
li_result = GetFolder( "Seleccione el directorio para el Backup", ls_path )
If li_result = 1 then
if right(ls_path,1) <> "\" then
ls_path += "\"
End if
sle_1.text = ls_path
End if

con este script das al usuario la facilidad de seleccionar el directorio que suele ser mas práctivo y efectivo al momento de seleccionar una ruta.

pero esto no queda ahi.
supongamos que todos los dias creas un backup . y todos los dias tienes que seleccionar el directorio donde quieres almacenar tu backup. y si ya tienes un directorio donde almacenas todos tus backups tendrías que buscar ese directorio.
sería recomendable que una vez establecido la ruta , esta se establecsca por defecto y cada vez que quieres hacer un backup te muestre la ruta establecida.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

QUIERO UN BACKUP EN POWER BUILDER 10

Publicado por juan (3 intervenciones) el 24/12/2009 00:01:15
HOLA QUE TAL ME PUEDE AYUDAR EXPERTO QUIERO UN BACKUP EN POWER BUILDER 10

EL BACKUP QUE ME DIO LA WEBDELPROGRAMADOR E DESCARGADO NO FUNCIONA

ME GUSTARIA QUE ME DEN OTRO BACKUP POR FAVOR A MI CORREO..

SI [email protected] por favor ayudame nesecito su ayuda siii

me gustaria aprender ese backup...........................................siii

bueno si tambien tienes de visual.net backup CON TODO SUS CODIGO
por favor. enviame siiiiiiiiiii

que DIOS LO BENDIGA AMIGOS EXPERTO SIGAN ADELANTE...

GRACIAS............................MUCHA GRACIAS DE CORAZONNN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias por tu ayuda Jorge!!!

Publicado por sergio (44 intervenciones) el 23/02/2007 22:36:30
Muchas gracias por tu tiempo, funciona muy bien!!!
Saludos desde Asuncion!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar