易语言操作SQL Server数据库全过程

易语言操作SQL Server数据库全过程

最近看到很多初学者在问在易语言中如何操作SQL Server以外部数据库，也有人提出想要个全面的操作过程，为了让大家能够尽快上手，我给大家简单介绍一下操作SQL的过程，希望能起到抛砖引玉的作用。

由于我本身工作业比较忙，就以我目前做的一个软件的部份容列给大家简单讲讲吧，高手就不要笑话了，只是针对初学者

第一步，首先需要建立一个数据库：

以建立一个员工表为例，各字段如下：

3 员工ID int

4 0

0 登陆 nvarchar 30 1

0 密码 nvarchar 15 1

0 所属部门 nvarchar 30 1

0 nvarchar 10 1

0 性别 nvarchar 2 1

0 年龄 nvarchar 10 1

0 当前职务 nvarchar 10 1

0 级别 nvarchar 10 1

0 出生日期 nvarchar 40 1

0 专业 nvarchar 10 1

0 学历 nvarchar 8 1

0 婚姻状况 nvarchar 4 1

0 号 nvarchar 17 1

0 籍贯 nvarchar 50 1

0 毕业院校 nvarchar 50 1

0 兴趣爱好 nvarchar 600 1

0 nvarchar 11 1

0 家庭成员 nvarchar 20 1

0 工作经历 nvarchar 600 1

0 销售行业经验nvarchar 600 1

0 离职原因 nvarchar 600 1

0 升迁记录 nvarchar 600 1

0 调岗记录 nvarchar 600 1

0 特殊贡献 nvarchar 600 1

0 奖励记录 nvarchar 600 1

0 处罚记录 nvarchar 600 1

0 同事关系 nvarchar 4 1

0 企业忠诚度 nvarchar 4 1

0 入司日期 nvarchar 30 1

0 在职状态 nvarchar 4 1

0 上级评语 nvarchar 600 1

0 最后登陆时间 nvarchar 20 1

0 登陆次数 nvarchar 50 1

0 照片 image 16 1

一般我习惯用nvarchar，因为这是可变长的的非Unicode数据，最大长度为8000个字符，您可以根据您的情况来设定，我这里只是举例说明。

第二步：在易言语中建立数据库连接，用外部数据库控件，可先建立4个全局变量：

1、建立全局变量：

.版本 2

.全局变量服务器, 文本型

.全局变量服务器数据库, 文本型

.全局变量服务器用户名, 文本型

.全局变量服务器密码, 文本型

2、给变量赋值：

.版本 2

服务器＝读配置项 (取运行目录 () ＋“\sys.ini”, “server info”, “server”, “您的服务器地址”)

服务器用户名＝读配置项 (取运行目录 () ＋“\sys.ini”, “server info”, “uid”, “您的服务器用户名”)

服务器密码＝读配置项 (取运行目录 () ＋“\sys.ini”, “server info”, “pwd”, “您的服务器密码”)

服务器数据库＝读配置项 (取运行目录 () ＋“\sys.ini”, “server info”, “database”, “您的数据库名城”)

3、然后建立外部数据库的连接。

.版本 2

.如果真 (外部数据库1.打开(“DRIVER=SQL Server;SERVER=” ＋服务器＋“;UID=” ＋服务器用户名＋“WD=” ＋服务器密码＋“;WSID=” ＋服务器＋

“;DATABASE=” ＋服务器数据库, ) ＝真)

.如果真 (外部数据库1.打开SQL数据库 (服务器, 服务器用户名, 服务器密码, 服务器数据库, , ) ＝假)

信息框(“打开数据库失败”, #警告图标, )

结束 ()

.如果真结束

到此，您已经完成了与SQL数据库的连接，可以开始使用，以下讲讲在数据库中要到的增加、查询、修改、删除命令：

建立全局变量：

.版本 2

.全局变量脚本, 文本型

.全局变量记录集句柄

1、 SQL增加语句的使用：

.版本 2

脚本＝“insert into 员工表 ([],[性别],[年龄],[出生日期],[专业],[学历],[婚姻状况],[号],[籍贯],[毕业院校],[兴趣爱好],[],[家庭成员],[工作经历],[销售行业经

验],[离职原因],[所属部门],[当前职务],[升迁记录],[调岗记录],[特殊贡献],[奖励记录],[处罚记录],[同事关系],[企业忠诚度],[入司日期],[在职状态],[上级评语],[照片]) values ('” ＋编辑框_职员信息_.容＋“','” ＋编辑框_职员信息_性别.取项目文本 (编辑框_职员信息_性别.现行选中项) ＋“','” ＋编辑框_职员信息_年龄.容＋“','” ＋编辑框_职员信息_出生日期.容＋“','” ＋编辑框_职员信息_专业.

容＋“','” ＋组合框_职员信息_学历.取项目文本 (组合框_职员信息_学历.现行选中项) ＋“','” ＋组合框_职员信息_婚姻状况.取项目文本 (组合框_职员信息_婚姻状况.现行选中项) ＋“','” ＋编辑框_职员信息_号.容＋“','” ＋编辑框_职员信息_

籍贯.容＋“','” ＋编辑框_职员信息_毕业院校.容＋“','” ＋编辑框_职员信息_兴趣爱好.容＋“','” ＋编辑框_职员信息_.容＋“','” ＋编辑框_职员信息_家庭成员.容＋“','” ＋编辑框_职员信息_工作经历.容＋“','” ＋编辑框_职员信息_销售行业经验.容＋“','” ＋编辑框_职员信息_离职原因.容＋“','” ＋编辑框_职员信息_所属部门.容＋“','” ＋编辑框_职员信息_当前职务.容＋“','” ＋编辑框_职员信息_升迁记录.容＋“','” ＋编辑框_职员信息_调岗记录.容＋

“','” ＋编辑框_职员信息_特殊贡献.容＋“','” ＋编辑框_职员信息_奖励记录.

容＋“','” ＋处罚记录编辑框.容＋“','” ＋组合框_职员信息_同事关系.取项

目文本 (组合框_职员信息_同事关系.现行选中项) ＋“','” ＋组合框_职员信息_企业忠诚度.取项目文本 (组合框_职员信息_企业忠诚度.现行选中项) ＋“','” ＋编辑框_职员信息_入司日期.容＋“','” ＋组合框_职员信息_在职状态.取项目文本 (组合框_职员信息_在职状态.现行选中项) ＋“','” ＋编辑框_职员信息_上级评语.容＋“',?)”

.如果 (SQL数据库.执行 (脚本, 照片图片框.图片) ＝真)

信息框(“保存员工信息成功!”, 0, )

.否则

信息框(“保存员工信息失败!”, 0, )

.如果结束

SQL数据库.关闭记录集 (记录集句柄)

需要注意的是，在上面红色部分有个？，这是保存图片的字段，在蓝色部分可以看见，(SQL 数据库.执行 (脚本, 照片图片框.图片) 照片图片框.图片是字节集数据，也就是数据库中对应的照片字段，image类型

2、 SQL查询语句的使用：

.版本 2

脚本＝“select 员工ID, from 员工表where ” ＋“= ” ＋“'” ＋编辑框_职员信息_.容＋“'”