Foxtable(狐表)用户栏目专家坐堂 → MYSQL在用户登记找不到用户无法进入开发界面如何处理?


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

主题:MYSQL在用户登记找不到用户无法进入开发界面如何处理?

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
MYSQL在用户登记找不到用户无法进入开发界面如何处理?  发帖心情 Post By:2023/8/17 16:01:00 [只看该作者]

MYSQL在用户登记找不到用户无法进入开发界面如何处理?按下面操作,还是进不了开发界面

难恢复

再好的程序员,也不能保证自己的代码和设置100%正确,肯定要反复调试,才能最终达到目标。
一些错误可能直到运行的时候才被发现,普通的错误没关系,重新修改代码和设置即可;不过有的错误可能非常严重,以致每次打开项目文件时,Foxtable就会崩溃退出,或者无法正常进入操作界面;怎样才能回到正常的操作界面,给开发者提供更改错误的机会呢?

很简单,首先按住Ctrl键,然后打开出现错误的项目文件,直到项目文件被完全打开,再松开Ctrl键即可。
如果打开的过程中出现了登录窗口,先松开Ctrl键,选择以开发者身份登录,输入密码,然后重新按住Ctrl键,单击登录窗口的确定按钮,直到项目文件被完全打开,再松开Ctrl键。

以这种方式打开的项目文件:

1、不会执行用户代码。
2、外部表不会加载数据,只加载结构。
3、系统菜单将代替用户菜单。
4、表达式列不会生效。

在修改错误代码和设置后,重新打开项目文件。

提示:

如果你确认你的代码没有问题,但是还是出现莫名其妙的错误,可以尝试先删除项目目录下的子目录Bin,然后重新打开项目。


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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/17 16:12:00 [只看该作者]

很简单,首先按住Ctrl键,然后打开出现错误的项目文件,直到项目文件被完全打开,再松开Ctrl键即可。如果打开的过程中出现了登录窗口,先松开Ctrl键,选择以开发者身份登录,输入密码,然后重新按住Ctrl键,单击登录窗口的确定按钮,直到项目文件被完全打开,再松开Ctrl键。

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/17 16:14:00 [只看该作者]

Dim cmd As New SQ--LCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C 
cmd.CommandText = "SELEC--T DISTINCT Name  From {User}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
   cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0


上面代码,在MYSQL上不能直接用,如何改?

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


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

只能使用第三方组件连接

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/17 16:49:00 [只看该作者]

这个MYSQ-L
Dim db = HyS-ql.DataBaseFactory.CreateDatabase("Users") '
Dim Sql T= "SE-LEC--T DI-STINCT Name  From Users;" '
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
dt.TableName = "Users"



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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/17 16:54:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:改代码.zip


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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/17 16:55:00 [只看该作者]

老师,附件的代码帮改为MYQL,谢谢

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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/17 17:02:00 [只看该作者]

……
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sql).Tables(0)
dt.TableName = "Users"
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
For Each dr As system.data.DataRow In dt.rows
   cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0


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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/17 17:22:00 [只看该作者]

老师,看微软的帮助,有2个问题,1.全部英文,看不懂,2.没有编程基础,对这个更看不懂,能看基本用编程语
老师,是高手,抽个时间解决,谢谢

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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/17 17:26:00 [只看该作者]

8楼的给帮助都是中文的。再说了,要使用第三方的东西,就得学会看别人的帮助。不然就还是使用SqlServer好了

 回到顶部