foxpro 做的一个prg程序，运行返回-1无限循环，请问怎么解决啊

显示全部楼层 · 2011-4-2 07:43:02

close all
set safe off
close all

mm=-1
do while mm0
mm=sqlconn(\'yzdb5\',\'yz_gy\',\'yz_gy123\')
??mm
ENDDO

sqlcomm=\"select * from yzzw.opr_org_channel awhere a.region_id=2372 \"
=sqlexec(mm,sqlcomm)
copy to \"h1.dbf\"
CLOSE ALL

quit

千问 · 2011-4-2 07:43:02

<pre class=\"replyask-text\" id=\"content-1649443\">可是我的数据源, 用户, 密码都是对的啊，我用PL/SQL可以登录啊的啊

千问 · 2011-4-2 07:43:02

<pre class=\"replyask-text\" id=\"content-1653483\">数据源是指 ODBC 上注册的名称哦，首先要测试 sqlconn 是否能成功。
你试试单条运行：
? sqlconn(\'yzdb5\',\'yz_gy\',\'yz_gy123\')
是否能成功？（返回值0）

如若能，那试试这样吧：把
mm=-1
do while mm0
mm=sqlconn(\'yzdb5\',\'yz_gy\',\'yz_gy123\')
??mm
ENDDO
这一段改为：

LOCAL mm
do while .T.
mm=sqlconn(\'yzdb5\',\'yz_gy\',\'yz_gy123\')

??mm

IF mm0

EXIT

ENDIF

WAIT \'\' TIMEOUT 2defds123defds123 每隔2秒尝试连接一次
ENDDO
试试