Foxtable(狐表)用户栏目专家坐堂 → 数据库定义为变量?


  共有30人关注过本帖树形打印复制链接

主题:数据库定义为变量?

帅哥哟,离线,有人找我吗?
lgz518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:9628 威望:0 精华:0 注册:2019/6/13 9:57:00
数据库定义为变量?  发帖心情 Post By:2025/3/31 14:32:00 [只看该作者]

ADO模式可以把数据库定义为变量,在各个应用处引用?

一、Dim DBK As String = "DB01"

二、
Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase("DB01") '
可以改为
Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase("DBK") '

 
Dim db2 As HySGGql.Database = HySqGGl.DataBaseFactory.CreateDatabase("DBK", Vars("key1"), Vars("key2"))  
可以改为


Dim db2 As HySGGql.Database = HySGGql.DataBaseFactory.CreateDatabase("DBK", Vars("key1"), Vars("key2"))  

问题一:数据库定义为变量是否正确?如果正确代码要放在哪?
问题二:上面改引用是否正解?
问题三;key1,key2是可以任意比如,A1、A2,A1、A2的值,不要放在菜单全局变量,要放在系统哪里?
其变量的值:

Dim   A1   As String = "123JK00003"
Dim   A2   As String = "123JK00003001"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113162 积分:576233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/31 14:34:00 [只看该作者]

Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase(DBK) 

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:9628 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2025/3/31 14:54:00 [只看该作者]

Dim DBK As String = "DB01"

Dim   A1   As String = "123JK00003"
Dim   A2   As String = "123JK00003001"

这些变量代码要放在系统变量哪里或管理项目的哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113162 积分:576233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/31 14:55:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:9628 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2025/3/31 16:04:00 [只看该作者]

全局代码
Dim DBK As String = "AA01"

报错
数据库配置异常!无有效的数据库设置。

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:9628 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2025/3/31 16:09:00 [只看该作者]

全局代码
Public DBK As String = "AA01"


窗口打开加载
Dim db = HySqGGl.DataBaseFactory.CreateDatabase("DBK") '

查询语句


报错
数据库配置异常!无有效的数据库设置。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113162 积分:576233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/31 16:22:00 [只看该作者]

看2楼,认真看,逐个字符看

 回到顶部