VFP 愛用者社區

zfgg · 註冊時間: 2004-05-31 文章: 179 來自: 中国 第 1 樓

在一个机器上开发的VFP程序，经过编译后，移到另一台机器上。数据库采用从‘从设备’还原。路径与原机器上一样。ODBC设置也一样。前端程序安装也一样的路径。在查询分析器中也能读出程序。程序运行连接数据库也正常。当程序运行到读出数据时读不了。原因不明。请指教。程序示意如下：
jb=handle=(sqlconnect)
if jb=>-1
*这里可以执行
cx="select * from debt where usename='aaaa'"
ft=sqlexec(handle,cx,'zs')
if ft>-1
*这里不执行！
select zs
else
=wait window 'It is not show!'
endif
endif

garfield · 發表於: 星期四十月 28, 2004 11:59 am 文章主題:

我覺得這一行就有問題了
jb=handle=(sqlconnect)
是否改成用
handle=(sqlconnect)
if handle>0
.....

zfgg · 發表於: 星期四十月 28, 2004 4:25 pm 文章主題:

以上是示意句子，现将原码写如下：
if nkeycode=13
_yhmdm=alltri(thisform.combo1.text)
#INCLUDE SUMAHEAD.H
on error do problem
=SQLSETPROP(0,"DispLogin",3)
handle=sqlconnect(SQLDSN_LOC,SQLUSER_LOC,SQLPWD_LOC)
cx="select usename from PASST where yhmdm =?_yhmdm"
if handle>-1
zj=sqlexec(handle,cx,"zs")
if zj>0
selec zs
this.displayvalue=usename
for icount =1 to thisform.combo1.listcount
if thisform.combo1.selected(icount)
yhm = alltrim(thisform.combo1.list(icount))
exit
endif
endfor
endif
thisform.text2.setfocus
endif
=sqldisconnect(handle)
endif