以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  MYSQL在用户登记找不到用户无法进入开发界面如何处理?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187877)

--  作者:lin98
--  发布时间:2023/8/17 16:01:00
--  MYSQL在用户登记找不到用户无法进入开发界面如何处理?
MYSQL在用户登记找不到用户无法进入开发界面如何处理?按下面操作,还是进不了开发界面

难恢复

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

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

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

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

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

提示:

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


--  作者:有点蓝
--  发布时间:2023/8/17 16:12:00
--  
很简单,首先按住Ctrl键,然后打开出现错误的项目文件,直到项目文件被完全打开,再松开Ctrl键即可。如果打开的过程中出现了登录窗口,先松开Ctrl键,选择以开发者身份登录,输入密码,然后重新按住Ctrl键,单击登录窗口的确定按钮,直到项目文件被完全打开,再松开Ctrl键。
--  作者:lin98
--  发布时间: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上不能直接用,如何改?

--  作者:有点蓝
--  发布时间:2023/8/17 16:22:00
--  
只能使用第三方组件连接
--  作者:lin98
--  发布时间: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
--  发布时间:2023/8/17 16:54:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:改代码.zip


--  作者:lin98
--  发布时间:2023/8/17 16:55:00
--  
老师,附件的代码帮改为MYQL,谢谢
--  作者:有点蓝
--  发布时间: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
--  发布时间:2023/8/17 17:22:00
--  
老师,看微软的帮助,有2个问题,1.全部英文,看不懂,2.没有编程基础,对这个更看不懂,能看基本用编程语
老师,是高手,抽个时间解决,谢谢

--  作者:有点蓝
--  发布时间:2023/8/17 17:26:00
--  
8楼的给帮助都是中文的。再说了,要使用第三方的东西,就得学会看别人的帮助。不然就还是使用SqlServer好了