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

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
可是如果连接不成功的,并没有退出程序,请问如何才能连接不成功时自动退出程序?
...全文
57 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
发帖
VFP

2576

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2004-10-25 03:56
社区公告
暂无公告