PUBLIC errval
PUBLIC errmsg
PUBLIC handle
errval=0
errmsg=' '

*Sql Server 连接参数
sourcename= 'test'
user= 'sa'
passwd=''

******** 连接
* 为连接打开错误显示
=SQLSetProp(0,"DispWarning",.t.)
handle=SQLConnect(sourcename,user,passwd)
IF handle > 0
WAIT WINDOW '连接成功' NOWAIT
ENDIF

******** 设置一些默认值
=SQLSetProp(handle,'Asynchronous',.f.)
=SQLSetProp(handle,'BatchMode',.t.)
=SQLSetProp(handle,'ConnectTimeOut',0)
=SQLSetProp(handle,'Transactions',1)

err=SQLExec(handle,'use pubs')
DO errhand WITH err,'USE PUBS'

********** 该程序演示如何实现 SQL 的 SQLExec() 函数
sqlcomm= "execute showsales '7066'"
err=SQLExec(handle,sqlcomm)
DO errhand WITH err,"SQLExec(handle,"+sqlcomm+")"
IF err > 0
BROWSE
ENDIF

********** 断开
err=SQLDisconnect(handle)
DO errhand WITH err,"SQLDisconnect()"
CLOSE ALL

********** 错误处理程序
PROCEDURE errhand
PARAMETERS err,command
IF err > 0
  WAIT WINDOW ALLTRIM(UPPER(command))+"完全成功" NOWAIT
ELSE
  WAIT WINDOW UPPER(command)+"没有完全成功"
ENDIF
RETURN 
注意程序返回两个 stor_id 为 7066 的记录.

最新文章

1. ajex请求的数据 什么时候需用Json.parse()
2. Android -- 初探MVP模式
3. c# monitor锁
4. （1）定义一个接口Compute含有一个方法int computer(int n,int m); （2）设计四个类分别实现此接口，完成+-*/运算 （3）设计一个类UseCompute，含有方法： public void useCom(Compute com, int one, int two) （4）设计一个测试类
5. java中synchronized的用法详解
6. NOI2013矩阵游戏
7. poj 2229 Sumsets DP
8. Linux的用户和用户组
9. Android开发之ExpandableListView扩展（BaseExpandableListAdapter的使用）（完整版）
10. iframe的一些简单记录
11. vs2010中iostream.h出错
12. SpringMvc处理post请求乱码的filter
13. js架构设计模式——MVVM模式下，ViewModel和View，Model有什么区别
14. netty常用使用方式
15. php_类的定义
16. Unity日常记录 - QualitySettings 性能设置
17. dynamic详解
18. 20165220 Java第三周学习总结
19. day16_python_1124
20. Tutorial: Implementation of Siamese Network on Caffe, Torch, Tensorflow

热门文章

1. DP-直线分割递推
2. Java入门 - 语言基础 - 15.StringBuffer
3. maven版本对应的jdk
4. python super()函数：调用父类的构造方法
5. [ PyQt入门教程 ] PyQt5中多线程模块QThread使用方法
6. 龙芯 Fedora 28 设置 VNC
7. Eclipse CDT 插件修改自动补全
8. CSS-08-边框属性设置
9. 深浅拷贝 集合（定义，方法） 函数（定义，参数，return，作用域） 初识
10. C#系列之基础知识点（一）