专家坐堂-[求助]CreateSQLTable增加Table时出现错误，Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]CreateSQLTable增加Table时出现错误，  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194703)

--  作者：2900819580
--  发布时间：2025/1/7 9:26:00
--  [求助]CreateSQLTable增加Table时出现错误，

此主题相关图片如下：截屏图片202412200123.jpg

此主题相关图片如下：截屏图片202412200122.jpg

此主题相关图片如下：截屏图片202412200121.jpg

Dim txt As String = e.Form.Controls("Txt产品ID").text
Dim tbn As String = txt & "_" & Format(Functions.Execute("返回服务器日期"), "HHmmss")
MessageBox.Show(tbn & ">>" & "S elect * From {BOM} where [_Identify] Is Null" & ">>" & "ksg")
Dim tbl As WinForm.Table
\' CreateSQLQuery(Name, SqlText , ConnectionName)
tbl = e.Form.CreateSQLTable(tbn , "Sel ect * From {BOM} where [_Identify] Is Null" , "ksg")
tbl.Dock = 5
e.Form.Controls("TabControl1").Tabpages(id).AddControl(tbl)
MessageBox.Show(3)

老师，以上代码，发布项目后，执行就会出现错误，在本机运行就没有问题，错误如图片所示。

[此贴子已经被作者于2025/1/7 9:26:17编辑过]

--  作者：2900819580
--  发布时间：2025/1/7 9:47:00
--
老师，发现凡是用到以下代码的窗体都会出现错误，或不执行。如tb.Fill,填充数据，发布后其它电脑用的都有问题，但开发环境中调试就没有发现有问题。
软件开发用了好几年了，就是最近升级了，修改了其它功能，再发布，就出现这种错误。
tb.Fill("sel ect * from {ViewCaption} where [Bname]  = \'" & bm & "\'" , "Ac_Data", False)

Dim f As New Filler
f.SourceTable = Sqldt \'指定数据来源
f.SourceCols = lm
f.DataTable = dt2 \'指定数据接收表
f.DataCols = lm \'指定数据接收列
f.ExcludeNullValue = True
f.Distinct = False
f.Append = True
f.Fill() \'填充数据

--  作者：有点蓝
--  发布时间：2025/1/7 9:47:00
--
这样测试呢？tbl = e.Form.CreateSQLTable("table1", "Select * From {BOM} " , "ksg")

发布后是连接的同一个数据库吗

--  作者：2900819580
--  发布时间：2025/1/7 12:51:00
--
老师，以下的代码都不行呀，数据库是新增的，会不会跟这个有关系？应该怎么检查。
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``
tbl = e.Form.CreateSQLTable("table1", "Select * From {BOM} " , "ksg")
tbl = e.Form.CreateSQLTable("table1", "Select * From {BOM} where 1 = 2" , "ksg")
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``
tb.Fill("sel ect * from {ViewCaption} where [Bname]  = \'" & bm & "\'" , "Ac_Data", False)
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``
Dim f As New Filler
f.SourceTable = Sqldt \'指定数据来源
f.SourceCols = lm
f.DataTable = dt2 \'指定数据接收表
f.DataCols = lm \'指定数据接收列
f.ExcludeNullValue = True
f.Distinct = False
f.Append = True
f.Fill() \'填充数据

--  作者：有点蓝
--  发布时间：2025/1/7 13:32:00
--
检查一下后台数据库，看看这些表是不是没有设置主键

--  作者：2900819580
--  发布时间：2025/1/7 13:41:00
--

Dim f As New Filler
f.SourceTable = Sqldt \'指定数据来源
f.SourceCols = lm
f.DataTable = dt2 \'指定数据接收表
f.DataCols = lm \'指定数据接收列
f.ExcludeNullValue = True
f.Distinct = False
f.Append = True
f.Fill() \'填充数据

老师，设置了主键，之前两个问题解决了，目前还有以上代码不执行。

老师，发现整个项目中用到填充数据的都不执行，也不报错。

[此贴子已经被作者于2025/1/7 20:41:16编辑过]

--  作者：2900819580
--  发布时间：2025/1/8 14:49:00
--
顶一下

--  作者：有点蓝
--  发布时间：2025/1/8 15:01:00
--
完整代码发上来

--  作者：2900819580
--  发布时间：2025/1/8 17:18:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:1.txt

老师，麻烦帮忙看一下，这是其中一个代码，代码没有修改过，在旧版本的FoxTable是可以正常发布，正常使用的，
但升级到了最新版本，发布后就执行了，但在Foxtable中又可以执行。
整个项目只要用到这种方式去合拼数据的都不执行，

[此贴子已经被作者于2025/1/8 17:18:51编辑过]

--  作者：有点蓝
--  发布时间：2025/1/8 17:37:00
--
原因：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=172446&skin=0
[此贴子已经被作者于2025/1/8 19:38:33编辑过]