Buscar en el Blog

miércoles, 25 de diciembre de 2013

Copia de base de datos Sql Server desde PowerBuilder

Copia de base de datos Sql Server desde PowerBuilder

El codigo es bastante sencillo


string ls_sql
string ls_database
string ls_ruta_backup
string ls_nombre_backup
ls_database = "autos"//nombre de la base de datos
ls_ruta_backup = "C:\"//directrorio
ls_nombre_backup = "autos_" + STRING(TODAY(),"ddmmyy") + "-" + string(now(),"hhmmss")//nombre del 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(string(SQLCA.SQLCode),sqlca.sqlerrtext,stopsign!)
return
end if

MessageBox("Aviso","Copia realizada con éxito")



No hay comentarios:

Publicar un comentario