为什么在运行SQL数据源远程视图的表单时经常出现“不能访问选定表”的出错提示？

[ZJM84862915]

我以SQL数据源远程视图，用VFP8.0开发了一个商品进销存软件，在运行该软件时，同时打开了较多SQL数据源远程视图，在运行表单命令时，对不同远程视图经营使用到“SET FILTER TO 筛选条件”与“SELECT - SQL 命令”，但在运行软件过程中经常出现“不能访问选定表”的出错提示，可明明该远程视图表处在数据工作期的某一区内，但却出现“不能访问选定表”的出错提示，分析不出原因。敬向电脑专家请教，是何原因，如何解决?不胜感激！

[十豆三]

不用 Locate For 取消。 还是那句话：请将 筛选条件 和 位置条件 中的变量改为全局变量或表单属性.

[ZJM84862915]

十豆三老师： 十分感谢您的指导！ 我就是对商品库存表设计了“locate for 商品库存表.商品序号=商品购进表.商品序号”与“商品库存表.商品序号=商品销售表.商品序号”一类的命令，其他在筛选条件和位置条件语句中没有设置什么变量。 请问：在数据工作期存在某表的情况下，为什么还会发生“不能访问选定表”的出错情况？在什么情况下会出现这种提示？ 我以前用dbf表开发的商品进销存软件在运行中从未发生过“不能访问选定表”的出错情况，但现在以SQL数据源远程视图为基础用VFP8.0开发的商品进销存软件，所用到的远程视图表均设置为表缓冲，修改数据后保存进原数据源，但在运行中却经营发生“不能访问选定表”的出错情况，而且一旦发生，就会造成数据丢失、远程视图表不能刷新、死机、退出系统等严重情况，十分着急，反复检查程序，都查不出原因。敬向您请教，在数据工作期存在某表的情况下，为什么还会发生“不能访问选定表”的出错情况？在什么情况下会出现这种提示？如何才能从根本上解决？

[十豆三]

“locate for 商品库存表.商品序号=商品购进表.商品序号”与“商品库存表.商品序号=商品销售表.商品序号” 这也没有变量呀，用的是字段名，不像是这个问题。 不过你也可以这样试试，将 商品购进表.商品序号 和 商品销售表.商品序号 改为全局变量试试。 如果好用了，说明 商品销售表、商品购进表 被关闭了。

[十豆三]

我以前碰到过这个错，原因是 ComboBox 控件的数据源表被关闭了。
以下转自 VFP9.0 汉化后的帮助文件：

不能访问被选定的表 (错误 1152) 
 
试图在 32K 工作区范围之外选择一个表或试图引用没打开表中的文件变量。该错误可能在下列条件之下发生：

ComboBox 或 ListBox 控件 RowSource 属性指定的表或临时表被关闭。
如果想要关闭一个 ComboBox 或 ListBox 控件 RowSource 属性指定的表或临时表，在关闭该表或临时表之前完成任一下列动作：

设置 RowSource 属性为一个空值 ("")。

-或者-

释放该表单所包含的 ComboBox 或 ListBox 控件。

执行了一个重建 RowSource 属性指定的表或临时表的 SQL SELECT 指令，当该 SQL SELECT 指令运行时，Visual FoxPro 先关闭然后再打开该表。
为避免该错误，设置 RowSource 属性为一个空值("")，执行 SQL SELECT 指令，再重新设置 RowSource 属性为它早先的值。

[十豆三]

应该就是你用到的某个表被关闭了，你耐心一个表一个表找原因。 还是你能把报错规律找出来，就好找哪个表被关闭了。

[十豆三]

我的意思你是不是用了 ComboBox 控件，这个控件的数据源被关闭了或发生了改变。 另外，你注意一下 “SET FILTER TO 筛选条件”或“locate for 位置条件” 请将 筛选条件 和 位置条件 中的变量改为全局变量或表单属性.

[ZJM84862915]

十豆三老师： 十分感谢您的指导！ 我以SQL数据源远程视图，用VFP8.0开发了一个商品进销存软件，在运行该软件时，同时打开了较多SQL数据源远程视图表（有20多个），软件可同时打开“商品购进”、“商品销售”、“商品库存查阅”多个表单窗口（运行某一窗口时，其他窗口最小化），但往往做完商品购进后，再做商品销售后就出现“不能访问选定表”的出错提示。或长时间将“商品销售”窗口最小化后复原后在输入数据时出现“不能访问选定表”的出错提示。 敬请您帮助分析，是何原因，如何解决？不胜感激！

[ZJM84862915]

十豆三老师： 还有一点，向您请教。在做商品销售与商品购进时，我都对商品库存表设计了“locate for 商品库存表.商品序号=商品购进表.商品序号”与“商品库存表.商品序号=商品销售表.商品序号”命令,将光标移到所在商品行进行加减。在执行完命令后,是否每次都要使用不带FOR的“LOCATE”的命令将“locate for”命令取消、把光标移至首行？这会不会与交替做商品购进与商品销售时出现“不能访问选定表”有关？敬请您帮助分析。不胜感激！

[caohongyi]

你这样编程，主要是你自己打开工作区时，不知道是第几工作区。建议你使用绝对工作区打开远程视图；在编程时用个本子记住，那个工作区打开那个视图；用时，SELE xx 问题就解决了。我以前经常遇到此问题。

[十豆三]

1、改成这样试试：
* 略去删除所有数据代码
Select 远程视图表
llUpdated=Tableupdate(.T.,.F.)
If !llUpdated
	Messagebox("删除失败！操作将还原。",48,"信息提示")
	Tablerevert(.T.)
Endif
Requery("远程视图表")
If llUpdated And Reccount("远程视图表")>0
	Messagebox("请将数据存入系统后，再退出",0)
	Return
Endif
Thisform.Release

2、不像你说的代码出的问题，你找一找是不是其他地方报的错（其他地方有更改，未及时更新或回滚）。 3、解决问题2，并在主程序开头加以下代码： SQLSetprop(0,"DisconnectRollback",.T.) && 连接断开时未决的事务回滚(Rollback) (手动事务时手效)

[ZJM84862915]

十豆三老师： 十分感谢您的多次指导！ 再向您问一个问题：在对以表缓冲方式打开的SQL数据源远程视图表进行修改后，如果使用Tableupdate(.T.,.T.)语句强制写入数据源，是否一定成攻（返回值肯定为.T.）? 如果肯定成功，那以后在单机版（非局域网运行，不存在其他用户修订数据）模式下，就干脆使用Tableupdate(.T.,.T.)语句强制写入数据源，避免产生“表缓冲区含有不能予以实现的修改”的出错提示。这种思路对不对，敬请您指导，不胜感激！

[十豆三]

那也不一定成功，如： 连接断开了 要更新的数据不符合数据库的约束等。 原因很多，所以不管是 Tableupdate(.T.,.F.) 或 Tableupdate(.T.,.T.) 都必须检测更新成功或失败。

[ZJM84862915]

十豆三老师： 十分感谢您的多次指导！ 您发来的“转自 VFP9.0 汉化后的帮助文件”对我的启发很大。我开发的SQL数据源远程视图商品进销存软件发生“不能访问选定表”出错情况，正是发生在使用ListBox 控件上，该控件的数据源是由SELECT - SQL 命令产生的临时表，该临时表的数据由SELECT - SQL 命令不断改变。我现在在每次改变前都加上：thisform.list1.RowSource=null ，然后使用SELECT - SQL 命令产生同名的新的临时表后，再使用thisform.list1.RowSource=“临时表名.字段名”。这样来解决“不能访问选定表”出错问题。（不过这个问题在以前dbf表数据源软件中从未发生过。） 我以前用dbf表数据源开发的“商品进销存”软件运行一直很正常，就是经常因发生突然停电、死机等异情况坏表，需要不断修复已坏的表，给用户带来麻烦。因此决定改为SQL数据源远程视图，但使用同样的表单开发的软件，却出现了许多异想不到的问题，除了以上“不能访问选定表”出错问题外，还发生了以下不能理解的问题： 1、SQL数据源远程视图表删除所有数据清空并刷新后，使用reccount("远程视图表名")函数显示值却不为0 。 我设计的一个表单“退出”命令规定该表单中的一个表数据必须存入相关表并清空后方可退出。所使用的命令为： select 远程视图表 tableupdate(.t.,.f.," 远程视图表") requery("远程视图表") if reccount("远程视图表")>0 messagebox("请将数据存入系统后，再退出",0) return endif thisform.release 在执行该“退出”命令前，已经对该表使用了delete all命令语句，保存并刷新了表，该表应没有数据了，对SQL数据源检查该表也确实没有数据，但在执行“退出”命令时，却总是显示“请将数据存入系统后，再退出”的提示，以至无法退出该表单。 2、出现不可理解的“表缓冲区含有不能予以实现的修改”出错提示。 在以表缓冲方式打开一个远程视图表后，对该表数据进行了增添新行操作与数据修改操作。然后将数据保存进数据源，如检测到不能保存，则放弃修改，并刷新该表，重新取得数据源的数据。使用的命令如下： IF !TABLEUPDATE(.t.,.f.,"远程视图表") TABLEREVERT(.T.,"远程视图表") ENDIF REQUERY("远程视图表") 执行上述命令后，系统总是提示“表缓冲区含有不能予以实现的修改”。在命令中已经明明使用了TABLEREVERT(.T.,"远程视图表")放弃修改，为什么还不能刷新该表？百思不得其解。而且更为严重的是，出现了“表缓冲区含有不能予以实现的修改”出错提示后，软件就无法再运行下去，只得强行关闭。 3、出现了“表缓冲区含有不能予以实现的修改”出错提示强行关闭软件后，系统自动更改电脑桌面任务栏右边的“sql服务管理器”中的箭头颜色，由绿色转为红色，停止了服务器的服务，需要重新启动服务。 以上问题特向您请教，是何原因，如何解决？耽搁您极为宝贵的时间，不胜感激！

[ZJM84862915]

十豆三老师： 十分感谢您的多次指导！ 再向您问一个问题： 在程序设计中，是不是对以表缓冲方式打开的远程视图表修改后每次使用Tableupdate(.T.,.F.)或Tableupdate(.T.,.T.)命令保存数据时，都必须检测是否更新成功或失败，这样程序设计才严格？

[十豆三]

（不过这个问题在以前dbf表数据源软件中从未发生过。） 你如果也重新生成了 ComboBox 或 ListBox 控件的数据源，应该也会出现。

[十豆三]

引用 18 楼 ZJM84862915 的回复:

十豆三老师： 十分感谢您的多次指导！ 再向您问一个问题： 在程序设计中，是不是对以表缓冲方式打开的远程视图表修改后每次使用Tableupdate(.T.,.F.)或Tableupdate(.T.,.T.)命令保存数据时，都必须检测是否更新成功或失败，这样程序设计才严格？

是的。

[十豆三]

应该是连接中断了，可能是这台电脑的系统设置问题，如：经过多长时间无人操作后，电脑自动休眠，激活后网络连接就断开了，所以出现你的问题。
解决方法：
1、设置系统不休眠或间隔时间延长，这个在 Windows 控制面板 -> 电源管理 中设置。
或
2、
Public gcConnectString,gnHandle
gcConnectString="DRIVER=SQL Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=数据库名"
gnHandle=Sqlstringconnect(gcConnectString)
* 以上是程序启动时连接代码

* 然后每次操作前均检查一下连接是否中断了，可以把这部分写成自定义函数。
Local lnSqlState As Integer
Try
	lnSqlState=SQLExec(gnHandle,'')
Catch
	lnSqlState=-1
Endtry
If lnSqlState<1		&& 如果无效则重新连接
	SQLSetprop(0,"DispLogin" ,3)
	gnHandle=Sqlstringconnect(gcConnectString)
	If gnHandle<0	&& 重新连接失败
		Messagebox('服务器连接错误！'+Space(5),48,'信息提示')
		Return
	Endif
EndIf
* 可以把这部分写成自定义函数
* 连接正常或重新连接成功执行相应的 SQLExec(gnHandle,'相应的语句')

[ZJM84862915]

十豆三老师： 十分感谢您的多次指导！ 再向您问一个急待解决的问题： 我以SQL数据源远程视图开发的“商品进销存软件”，有一个用户在使用过程中经常出现以下出错信息（但其他用户均未发生过）： 连接错误：[Microsoft][ODBC SQL Server Driver]通讯连接失败 出现这个错误后，数据源不能连接，软件处于死机状态，必须强行关机。 我分析可能是由于运行的SQL Server 2000系统有问题，于是重新安装了SQL Server 2000系统，但还是再次发生这样的出错提示。 敬向您请教：出现这种出错提示，是由于数据库存在问题，还是SQL Server 2000运行系统有问题，还是电脑的Windows运行系统存在问题，是否需要重做电脑的Windows XP系统？不胜感激！

[ZJM84862915]

十豆三老师： 十分感谢您的多次指导！ 上面出现的“连接错误：[Microsoft][ODBC SQL Server Driver]通讯连接失败”的出错提示只是在个别用户电脑上经常出现，（同样的软件安装在其他电脑上未出现过。）已将这台电脑设置系统不休眠，但仍出现这个问题。是不是这台电脑的WINDOWS XP运行系统有问题？有没有必要对这台电脑重新安装WINDOWS XP运行系统？敬请您指导，不胜感激！

[十豆三]

如果这台电脑系统不休眠，也排除此台电脑操作员个别操作外，那你从以下方面着手： 1、重装系统。 2、更换网线。 3、更换网卡。 1解决不了，再用2，再不行再用3。