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")
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
Nota: solo los miembros de este blog pueden publicar comentarios.