表单上的数据源是一个远程视图，在编写情况下，运行没有问题。可在编译后，出现表不存在。不知道如何处理？


我的主程序：
SET TALK OFF
SET ESCAP OFF
CLOSE ALL   
CLEAR MENUS  
SET SYSMENU SAVE
SET SYSMENU OFF
SET SYSMENU TO
zoom window screen max
release window
SET AUTOSAVE ON
SET CARRY OFF
SET CONFIRM OFF
SET CENTURY OFF
SET DATE ANSI
SET DELETE ON
SET NULL ON
SET NULLDISPLAY TO ""
***

* 设置程序主目录
Public gcMainPath
gcMainPath = Sys(5)+Sys(2003)+"\"
Set Default To &gcMainPath


* 数据目录(本地数据库和表)
Public  ataPath
ataPath =gcMainPath+"Data\"

* 程序目录
Public gcPrgsPath
gcPrgsPath =gcMainPath+"Progs\"

* 图片目录
Public gcPicsPath
gcPicsPath=gcMainPath + "pic\"

* 表单目录
Public gcFormsPath
gcFormsPath = gcMainPath+"forms\"

* 菜单目录
Public gcMenusPath
gcMenusPath = gcMainPath+"menus\"

* 标签目录
Public gcLabelsPath
gcLabelsPath = gcMainPath+"libs\"

* 报表目录
Public gcReportsPath
gcReportsPath =gcMainPath+"Reports\"

*初始化键盘
CapsLock(.F.)
IMEStatus(0)
Insmode(.T.)
Numlock(.T.)
&&禁止主表单重复打开
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
LPWINDOWNAME="卫生室管理小助手"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
   =MESSAGEBOX("程序已经运行了，请点击电脑最下面任务栏的卫生室小助手图标！",16,"警告信息")
   QUIT
ENDIF
_SCREEN.CAPTION=LPWINDOWNAME


&&在表单需要读取数据的时候才连接，读取数据完成后，关闭连接
*PUBLIC nhandle
*nhandle=sqlstringconnect("driver={MySQL ODBC 8.0 Unicode Driver};server=127.0.0.1;uid=root;pwd=123456;database=wssgl;CHARSET=gb2312")
*IF nhandle>0

 *  sqlexec(nhandle,'select * from byhmc','byhmc') &&读取数据到sql_table，这个sql_table是不可以修改的
  * endif
DO FORM d:\wssxzs\forms\kl.scx

*恢复环境
SET SYSMENU TO DEFAULT
With _Screen
    .WindowState=2      &&最大化
    .BackColor=Rgb(255,255,255)
    .Caption="卫生室管理小助手"
    .Icon=''
ENDWITH

read even
retu
clear events

出现问题的那个代码：
LPARAMETERS nKeyCode, nShiftAltCtrl

USE styhmc &&程序开始。就这个有问题，styhmc是一个视图
locate for styhmc.grdm==ALLTRIM(thisform.edit1.Value)
if found()
 thisform.label1.caption=ALLTRIM(styhmc.dwmc)+styhmc.yhxm
 * DO FORM d:\wssxzs\forms\启动界面.scx
 *   THISFORM.RELEASE
 ELSE
 messagebox("对不起，用户代码或密码错误",48,"友好提示！")

continue
ENDIF

[此贴子已经被作者于2019-7-21 10:36编辑过]

请老师赐教，我怎么弄？
加了ADMIN也没有用，需要视图独占！书上说可以把视图当作表来用。我也找不到视图路径？？

让您见笑了，我第一次用MYSQL，也是第一次做C/S
我的数据库是远程服务器上的。
我不会找数据库路径+数据库名。请老师告诉我怎么弄?谢谢
PUBLIC nhandle   &&连接远程数据库
nhandle=sqlstringconnect("driver={MySQL ODBC 8.0 Unicode Driver};server=149.224.177.117;uid=root;pwd=XXXX;database=wssry;CHARSET=gb2312")
sqlexec(nhandle,'select * from byhmc','byhmc') &&读取数据表

[此贴子已经被作者于2019-7-22 08:59编辑过]

按这个步骤已经好了。
就是在表单上 数据环境加入视图（styhmc）
运行表时，提示找不到表（styhmc视图）

如果有可能,请老师加我QQ156177445,帮我看看！

[此贴子已经被作者于2019-7-22 10:43编辑过]

 @wcx_cc老师、xuminxz老师、sdta
1:就是在本地建好数据库(gl)、连接（连接1）、远程视图（styhmc）。
2:建了一个表单，在数据环境中，用远程视图（styhmc）做数据。

没有用CLOSE !!!

表单的 load
PUBLIC nhandle
&&在表单需要读取数据的时候才连接.
nhandle=sqlstringconnect("driver={MySQL ODBC 8.0 Unicode Driver};server=49.224.177.117;uid=root;pwd=123456;database=wssry;PORT=3306;CHARSET=gb2312")

sqlexec(nhandle,'select * from byhmc','byhmc') &&读取远程表数据
open data gl && 打开gl 数据库
REQUERY("styhmc")&& 刷新视图表

**************************************

command1 click  
USE styhmc   &&编译后就在这里出错
SELECT styhmc
locate for ALLTRIM(styhmc.grdm) == ALLTRIM(thisform.edit1.Value)

if found()
 thisform.label1.caption=ALLTRIM(styhmc.dwmc)+styhmc.yhxm
 
 ELSE
 thisform.label1.caption="对不起！查无此人。"

continue
ENDIF

[此贴子已经被作者于2019-7-25 08:03编辑过]