请问如何可以直接退出程序?

qg1977 2004-10-25 03:56:06
函数如下:
LJSql=SQLSTRINGCONNECT("driver=SQL Server;server=sdqg;database=Northwind")
IF LJSql<=0
MESSAGEBOX("连接SQL Server 失败!!!",16, '错误信息')

clear events
ELSE
MESSAGEBOX("连接SQL Server 成功!!!",64, '信息提示')
RETURN ljsql
ENDIF
可是如果连接不成功的,并没有退出程序,请问如何才能连接不成功时自动退出程序?
...全文
73 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
LAIYANGPJ 2004-10-25
  • 打赏
  • 举报
回复
MESSAGEBOX("连接SQL Server 失败!!!",16, '错误信息')

clear events
**************
MESSAGEBOX("连接SQL Server 失败!!!",16, '错误信息')
=sqldisconncet(ljsql)
return .f.
十豆三 2004-10-25
  • 打赏
  • 举报
回复
在你的
Read Events
之后加
close data all
Quit
hnpyz 2004-10-25
  • 打赏
  • 举报
回复
canc
cdbqss1 2004-10-25
  • 打赏
  • 举报
回复
退出程序用return或quit

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧