不懂就问，连接msssql的问题

aiaihus874

连不上数据库是哪里不对？大婶指点一下，新手求教！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
连接SQLServer	逻辑型		连接SQL Server数据库，如果连接成功返回真，失败返回假。本命令为初级命令。
参数名	类 型	参考	可空	数组	备 注
服务器名	文本型				服务器IP地址
数据库名	文本型
用户名	文本型
密码	文本型

数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容))
记录集1.置连接 (数据库连接)
. ' 如果真 (记录集1.置连接 (数据库连接) ＝ 假)
' 信息框 (“记录集关联数据库失败”, 0, , )
' ' 数据库连接.连接SQLServer (到文本 (编辑框1.内容), “game”, “sa”, “baoge”)
如果 (数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容)) ＝ 真)
信息框 (“恭喜服务器连接成功”, 0, , )
如果 (数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容)) ＝ 假)
信息框 (“服务器连接失败，请检查”, 0, , )


返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
执行SQL	逻辑型
参数名	类 型	参考	可空	数组	备 注
SQL语句	文本型
超时时间	整数型

' 数据库连接.执行SQL (, )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入正确的服务器IP地址”, 0, , )
返回 ()
如果真 (组合框1.内容 ＝ “”)
信息框 (“请选择或输入正确数据库名”, 0, , )
返回 ()
如果真 (编辑框3.内容 ＝ “”)
信息框 (“请输入数据库密码”, 0, , )
返回 ()
如果真 (编辑框4.内容 ＝ “”)
信息框 (“请输入数据库密码”, 0, , )
返回 ()

启动线程 (&连接SQLServer, , 句柄)

i支持库列表	支持库注释
eDB	数据库操作支持库
EThread	多线程支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 连接SQLServer, 逻辑型, , 连接SQL Server数据库，如果连接成功返回真，失败返回假。本命令为初级命令。<br /> .参数 服务器名, 文本型, , 服务器IP地址<br /> .参数 数据库名, 文本型<br /> .参数 用户名, 文本型<br /> .参数 密码, 文本型<br /> <br /> 数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容))<br /> 记录集1.置连接 (数据库连接)<br /> .' 如果真 (记录集1.置连接 (数据库连接) ＝ 假)<br />     ' 信息框 (“记录集关联数据库失败”, 0, , )<br /> .如果真结束<br /> ' ' 数据库连接.连接SQLServer (到文本 (编辑框1.内容), “game”, “sa”, “baoge”)<br /> .如果 (数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容)) ＝ 真)<br />     信息框 (“恭喜服务器连接成功”, 0, , )<br /> .否则<br />     .如果 (数据库连接.连接SQLServer (到文本 (编辑框1.内容), 到文本 (组合框1.内容), 到文本 (编辑框3.内容), 到文本 (编辑框4.内容)) ＝ 假)<br />         信息框 (“服务器连接失败，请检查”, 0, , )<br />     .否则<br /> <br />     .如果结束<br />     返回 (假)<br /> .如果结束<br /> 返回 (真)<br /> <br /> .子程序 执行SQL, 逻辑型<br /> .参数 SQL语句, 文本型<br /> .参数 超时时间, 整数型<br /> <br /> ' 数据库连接.执行SQL (, )<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (编辑框1.内容 ＝ “”)<br />     信息框 (“请输入正确的服务器IP地址”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (组合框1.内容 ＝ “”)<br />     信息框 (“请选择或输入正确数据库名”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框3.内容 ＝ “”)<br />     信息框 (“请输入数据库密码”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框4.内容 ＝ “”)<br />     信息框 (“请输入数据库密码”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 启动线程 (&连接SQLServer, , 句柄)

aizekui

三个重复的连接？

aiaihus874

一直是服务器连接失败！

aiaihus874

aizekui 发表于 2023-9-17 12:56
三个重复的连接？

中间有那一段是屏蔽了，
如果这里算重复连接了吗？

aizekui

aiaihus874 发表于 2023-9-17 13:41
中间有那一段是屏蔽了，
如果这里算重复连接了吗？

3个数据库连接.连接SQLServer

aiaihus874

aizekui 发表于 2023-9-17 14:05
3个数据库连接.连接SQLServer

后面的我是想判断一下连接状态，确定是否连接成功，应该怎么写呢？