首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
SQL字符串函数
SQL函数详解
SQL数据库远程备份到本地
SQL数据库备份的基础知识
让SQL飞起来
常用SQL语句词典
精妙SQL语句大全
SQL语句大全
SQL语言快速入门之三
SQL语言快速入门之二
SQL语言快速入门之一
数据库设计入门-SQL语言及其优..
数据库设计入门-SQL语言的分类..
数据库设计入门-ODBC与ADO对象
全面接触SQL语法(二)
全面接触SQL语法(一)
用SQL创建数据库
SQL语言的分类及语法
SQL语言及其优点
SQL语法参考手册
高手是怎样炼成的:精妙SQL语句..
检查数据库表是否存在函数
用DateAdd,DateDiff,between实..
sql函数--DATEDIFF
SQL教程(2)
SQL语言教程(1)

技术教程 -> SQL教程 ->  
SQL数据库远程备份到本地
来源:delphibbs.com   人气:5829   录入时间:2006-10-25


    下面是Adang 做的一段把SQL SERVER数据库备份到本地的代码:
   
    //TODO:处理数据备份
    if CheckBoxDBF.Checked then
    begin
    try
    try
    if EditTargeDir.Text<>'' then
    begin
    AdoQueryBackUp:=TAdoQuery.Create(frmDataBakup);
    AdoQueryBackup.Connection:=frmDM.ADOConSQL;//frmDM.ADOConSQL是已经连接到要备份数据库的ADO连接
    frmInputBox.LabelPara.Caption:='请输入本机的Administrator密码:';
    frmInputBox.EditInput.PasswordChar:='*';
    frmInputBox.Caption:='请输入密码';
    if frmInputBox.ShowModal=mrok then
    AdminPW:=frmInputBox.EditInput.Text;
    //备份远程SQL Server到本地
    try
    Winexec(pchar('net share test='+ExtractFileDir(EditTargeDir.Text)),SW_HIDE);//共享本地保存数据的文件夹,这是必要的
    except
    on E:Exception do
    Application.MessageBox(pchar(E.Message),'Net share ERROR');
    end;
   
    try
    Winexec(pchar('net use \\'+PublicElement.LocalIP+'\test '+AdminPW+' /user:domain\Administrator'),SW_HIDE);//连接到刚才的共享,LocalIP是取得当前计算机IP的函数
    except
    on E:Exception do
    Application.MessageBox(pchar(E.Message),'Net Use ERROR');
    end;
   
    try
    AdoQueryBackup.SQL.Clear;
    AdoQueryBackup.SQL.Text:='backup database YYFD to disk='+''''+'\\'+PublicElement.LocalIP+'\test\'+ExtractFileName(EditTargeDir.Text)+'''';//执得备份SQL语句
    AdoQueryBackup.ExecSQL;
    except
    on E:Exception do
    Application.MessageBox(pchar(E.Message),'Backup ERROR');
    end;
   
    //备份结束
    end;
    except
    on E:Exception do
    begin
    Application.MessageBox(pchar(E.Message),'数据库备份出错') ;
    Raise;
    end;
    end;
    finally
    begin
    AdoQueryBackup.Close;
    AdoQueryBackup.Free;
    end;
    end;
    Application.MessageBox('数据库备份已经成功完成!','操作成功');
    end
    else
    if CheckBoxSQL.Checked then
    begin
    //TODO:将数据备份到指定其他SQL服务器中
    Application.MessageBox('程序暂时没有提供备份到其他服务器的功能!','提示');
    end;
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号