易语言写mssql数据库连接.docVIP

易语言 读配置项 及 写配置项 详细 2010-08-10 04:50 .版本 2 写配置项 (取运行目录 () ＋ “\test.ini”, “setup”, “test”, “cmd.exe”) 运行 (读配置项 (取运行目录 () ＋ “\” ＋ “test.ini”, “setup”, “test”, ), 真, ) test.ini 内容 [setup]2=cmd.exetest=cmd.exe 易语言学习中.... 易语言写mssql数据库连接 （原创） 2010-08-02 04:17 这个是程序介面。 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 皮肤_加载 ()编辑框_主机.内容 ＝ 删首尾空 (取主机名 ())编辑框_数据库.内容 ＝ “ ”编辑框_用户名.内容 ＝ “sa”编辑框_密码.内容 ＝ “ ” .子程序 _按钮_确定_被单击.局部变量 服务器, 文本型.局部变量 数据库, 文本型.局部变量 用户名, 文本型.局部变量 密码, 文本型 .如果真 (编辑框_主机.内容 ＝ “” 或 编辑框_数据库.内容 ＝ “” 或 编辑框_用户名.内容 ＝ “”)??? 信息框 (“服务器名、数据库名、用户名不能为空。”, 0, “温馨提示”)??? 返回 ().如果真结束 服务器 ＝ 删首尾空 (编辑框_主机.内容)数据库 ＝ 删首尾空 (编辑框_数据库.内容)用户名 ＝ 删首尾空 (编辑框_用户名.内容)密码 ＝ 删首尾空 (编辑框_密码.内容).如果 (_启动窗口.外部数据库1.打开 (“DRIVER=SQL Server;SERVER=” ＋ 服务器 ＋ “;UID=” ＋ 用户名 ＋ “;PWD=” ＋ 密码 ＋ “;WSID=” ＋ 取主机名 () ＋ “;DATABASE=” ＋ 数据库, , ))??? 信息框 (“连接” ＋ 服务器 ＋ “服务器上的” ＋ 数据库 ＋ “数据库成功。”, 0, “成功”).否则 ??? 信息框 (“连接” ＋ 服务器 ＋ “服务器上的” ＋ 数据库 ＋ “数据库失败。”, 0, “失败”).如果结束 子程序_主程序 ()销毁 () .子程序 _按钮_取消_被单击 销毁 ()结束 () .子程序 子程序_主程序 载入 (窗口_主窗口, , 真)