INNO SETUP数据库的连接与创建

本文涉及的产品
云数据库 RDS SQL Server,独享型 2核4GB
简介: 原文: INNO SETUP数据库的连接与创建  说明一下:这块程序的前半部分在INNO SETUP的实例里面就有,而后面如果对数据库进行备份和还原在实例里面没有,在网上也不好找,是本人费了好大劲一句一句试出来的,请大家转摘时注明,以表示对个人劳动的尊重。
原文: INNO SETUP数据库的连接与创建

 说明一下:这块程序的前半部分在INNO SETUP的实例里面就有,而后面如果对数据库进行备份和还原在实例里面没有,在网上也不好找,是本人费了好大劲一句一句试出来的,请大家转摘时注明,以表示对个人劳动的尊重。谢谢!


[Code]

{--- SQLDMO ---}    //关于SQLDMO的相关知识大家可以去网上搜

const
//SQL服务器名称,这个名称在安装SQL时会要求有个服务器名称的输入,所有每台机器上打开SQL服务器时看到的名称都不一样,如我如下图,但这里我们可以用一个通用的名称,就是(local),表示这个服务器是本地的。这样就可以了。


SQLServerName = '(LOCAL)';     
SQLDMOGrowth_MB = 0;     

//这是创建一个按钮按下的事件,这个按钮就是在安装向导中页面中建立的一个“配置数据库”的按钮
procedure SQLDMOButtonOnClick(Sender: TObject);
var
//用到的一些变量
SQLServer, Database, DBFile, LogFile: Variant;
IDColumn, NameColumn, Table,oBackup,oRestore: Variant;
db_path:string;
//这个变量用来保存读取注册表的键值 
ResultStr: String;
begin
{ Create the main SQLDMO COM Automation object }

//检查是否已安装SQL
try
    SQLServer := CreateOleObject('SQLDMO.SQLServer');
except
    RaiseException('您还没有安装SQL数据库.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
end;

{ Connect to the Microsoft SQL Server }

//连接SQL
SQLServer.LoginSecure := True;
SQLServer.Connect(SQLServerName);

//MsgBox('连接到SQL服务器 ''' + SQLServerName + '''.', mbInformation, mb_Ok);

{ Setup a database }

//创建SQL数据库文件
Database := CreateOleObject('SQLDMO.Database');
Database.Name := 'dbase';    //要创建的数据库名称

DBFile := CreateOleObject('SQLDMO.DBFile');
DBFile.Name := 'ISData1';
//数据库记录
DBFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/dbase_Data.MDF';
DBFile.PrimaryFile := True;
DBFile.FileGrowthType := SQLDMOGrowth_MB;
DBFile.FileGrowth := 1;

Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);

LogFile := CreateOleObject('SQLDMO.LogFile');
LogFile.Name := 'ISLog1';
//数据库日记
LogFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/dbase_Log.LDF';

Database.TransactionLog.LogFiles.Add(LogFile);

{ Add the database }

//添加数据库
SQLServer.Databases.Add(Database);

//MsgBox('Added database ''' + Database.Name + '''.', mbInformation, mb_Ok);


//数据备份
    oBackup := CreateOleObject('SQLDMO.Backup');     //创建一个备份对象
    oBackup.Database := 'louyu';       //要备份的数据库名称
    oBackup.Files := 'f:/louyu3.bak';   //备份到什么地方
    oBackup.BackupSetName := 'louyu3.bak';     //备份的名称
    oBackup.BackupSetDescription := 'bakDescription';
    oBackup.Initialize := true;
    oBackup.SQLBackup(sqlServer);    //执行SQL备份操作
      
//数据还原

重点说明:

//数据库的备份文件在打好的包中的某个位置,要还原数据库首先要找到备份的文件,找备份的文件的话在这之前还要知道软件安装到了什么地方,也就是安装路径。在程序安装时我们在注册表中建立了相关信息,其中有软件安装路径的记录,关于注册表请查阅前面写的“INNO SETUP注册表的添加与读取”。
为什么还原数据库时用这种方法呢,好像是绕了个圈子一样,其实我也认为这可能不是一种好方法,但是在这我不知道还有什么别的方法来获得安装包中的数据(文件)或软件要安装的路径。{app}、{pf}等在这都无法直接使用,所以才用了这种笨方法。
如果哪位朋友有好方法,请告知我。


//从注册表中获得程序安装的路径,根据路径找到还原数据库的备份文件。
if RegQueryStringValue(HKLM, 'SOFTWARE/*******', 'Server', ResultStr) then
begin
    ResultStr := RemoveQuotes(ResultStr);
    msgbox(resultstr,mbinformation,mb_ok);
    try
      oRestore := CreateOleObject('SQLDMO.Restore');      //创建还原对象
      oRestore.Database := 'dbase';          //还原的数据库名称
      db_path:=resultstr + '/数据库文件/dbase.bak';          //备份文件的路径
      MsgBox(db_path,mbinformation,mb_ok);            //测试一下看路径对不对
      oRestore.files :=db_path;              //指定备份文件
      oRestore.replacedatabase := true;
      oRestore.sqlrestore(sqlserver);      //执行还原操作
      MsgBox('数据库还原成功!',mbinformation,mb_ok);
    except
      MsgBox('数据库还原失败!,请重试或查阅帮助文档进行手动配置!',mbinformation,mb_ok);
    end;
end;
end;


//数据库的创建与还原事件写完了,但是它不会智能的知道什么时候去执行,所以我们要告诉它什么时候执行。下面是在程序安装完,在结束页面上建立了一个BUTTON按钮,当按下这个按钮时,会执行数据库的事件响应。
{---}
//创建一个button
procedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);
begin
with TButton.Create(WizardForm) do begin //button对象的创建
    Left := ALeft;             //button的位置与宽高
    Top := ATop;
    Width := WizardForm.CancelButton.Width;
    Height := WizardForm.CancelButton.Height;
    Caption := ACaption;                            //button的名称
    OnClick := ANotifyEvent;
//这个是给创建的button指定一个父窗口,也就是说让它在哪个页面上边显示出来
    Parent := WizardForm.finishedPage; //这里指定的是窗体的结束页
end;
end;

//初始化向导窗口
procedure InitializeWizard();
var
Left, Top, TopInc: Integer;
begin
Left := WizardForm.WelcomeLabel2.Left;
TopInc := WizardForm.CancelButton.Height + 8;
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc;
//让上面创建的按钮显示出来,并且给它指定一个响应的事件
CreateButton(Left, Top, '&配置SQL数据库', @SQLDMOButtonOnClick);  
Top := Top + TopInc;
end;

相关实践学习
使用SQL语句管理索引
本次实验主要介绍如何在RDS-SQLServer数据库中,使用SQL语句管理索引。
SQL Server on Linux入门教程
SQL Server数据库一直只提供Windows下的版本。2016年微软宣布推出可运行在Linux系统下的SQL Server数据库,该版本目前还是早期预览版本。本课程主要介绍SQLServer On Linux的基本知识。 相关的阿里云产品:云数据库RDS SQL Server版 RDS SQL Server不仅拥有高可用架构和任意时间点的数据恢复功能,强力支撑各种企业应用,同时也包含了微软的License费用,减少额外支出。 了解产品详情: https://www.aliyun.com/product/rds/sqlserver
目录
相关文章
|
12天前
|
Oracle 关系型数据库 数据库
已解决:idea 连接 oracle 数据库 避雷
已解决:idea 连接 oracle 数据库 避雷
|
25天前
|
Java 关系型数据库 数据库连接
实时计算 Flink版操作报错之在使用JDBC连接MySQL数据库时遇到报错,识别不到jdbc了,怎么解决
在使用实时计算Flink版过程中,可能会遇到各种错误,了解这些错误的原因及解决方法对于高效排错至关重要。针对具体问题,查看Flink的日志是关键,它们通常会提供更详细的错误信息和堆栈跟踪,有助于定位问题。此外,Flink社区文档和官方论坛也是寻求帮助的好去处。以下是一些常见的操作报错及其可能的原因与解决策略。
|
1天前
|
存储 NoSQL 算法
图数据库:连接数据的新模式
【6月更文挑战第16天】图数据库是处理复杂关系数据的新兴技术,使用节点、边和属性表示数据间关系。它提供强大的关系表达能力、灵活性、实时性和扩展性。新模式包括关系网络可视化、基于路径的查询、内置图算法支持,适用于推荐系统和社交网络分析,助力企业挖掘数据价值并应对大数据时代挑战。随着技术发展,图数据库将在数据连接和分析中扮演关键角色。
|
1天前
|
Oracle 关系型数据库 数据库
实时计算 Flink版产品使用问题之连接到Oracle数据库但无法读取到数据,是什么导致的
实时计算Flink版作为一种强大的流处理和批处理统一的计算框架,广泛应用于各种需要实时数据处理和分析的场景。实时计算Flink版通常结合SQL接口、DataStream API、以及与上下游数据源和存储系统的丰富连接器,提供了一套全面的解决方案,以应对各种实时计算需求。其低延迟、高吞吐、容错性强的特点,使其成为众多企业和组织实时数据处理首选的技术平台。以下是实时计算Flink版的一些典型使用合集。
|
6天前
|
NoSQL 关系型数据库 Serverless
Serverless 应用引擎产品使用合集之连接RDS、Redis等数据库时,是否需要通过安全组来控制访问权限
阿里云Serverless 应用引擎(SAE)提供了完整的微服务应用生命周期管理能力,包括应用部署、服务治理、开发运维、资源管理等功能,并通过扩展功能支持多环境管理、API Gateway、事件驱动等高级应用场景,帮助企业快速构建、部署、运维和扩展微服务架构,实现Serverless化的应用部署与运维模式。以下是对SAE产品使用合集的概述,包括应用管理、服务治理、开发运维、资源管理等方面。
|
6天前
|
SQL 运维 DataWorks
DataWorks操作报错合集之通过公网连接数据库时,报错连接不稳定,如何解决
DataWorks是阿里云提供的一站式大数据开发与治理平台,支持数据集成、数据开发、数据服务、数据质量管理、数据安全管理等全流程数据处理。在使用DataWorks过程中,可能会遇到各种操作报错。以下是一些常见的报错情况及其可能的原因和解决方法。
|
6天前
|
DataWorks 关系型数据库 MySQL
DataWorks操作报错合集之在尝试连接到MySQL数据库时遇到了“Communications link failure”错误,如何解决
DataWorks是阿里云提供的一站式大数据开发与治理平台,支持数据集成、数据开发、数据服务、数据质量管理、数据安全管理等全流程数据处理。在使用DataWorks过程中,可能会遇到各种操作报错。以下是一些常见的报错情况及其可能的原因和解决方法。
|
10天前
|
Java 关系型数据库 MySQL
使用CAS登录模块连接数据库验证用户合法性
使用CAS登录模块连接数据库验证用户合法性
8 0
|
10天前
|
关系型数据库 数据库连接 分布式数据库
PolarDB操作报错合集之数据库访问量低时,可以正常连接数据库,访问量高了所有用户都连接不了数据库,为什么
PolarDB是阿里云推出的一种云原生数据库服务,专为云设计,提供兼容MySQL、PostgreSQL的高性能、低成本、弹性可扩展的数据库解决方案,可以有效地管理和优化PolarDB实例,确保数据库服务的稳定、高效运行。以下是使用PolarDB产品的一些建议和最佳实践合集。
|
10天前
|
SQL 关系型数据库 MySQL
MySQL数据库——多表查询(3)-自连接、联合查询、子查询
MySQL数据库——多表查询(3)-自连接、联合查询、子查询
15 1

热门文章

最新文章