【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“自动更新存储过程odbc.prg”一文,供大家参考学习
LOCAL cConnString,oCursor AS CursorAdapter,aErrors[1]
cConnString="driver=SQL Server;server=ccb-zhj;database=Northwind;uid=sa;pwd=;trusted_connection=no"
oCursor=CREATEOBJECT("CursorAdapter")
WITH oCursor
.Alias="curTmp"
.DataSourceType="ODBC"
.DataSource=SQLStringConnect(cConnString) &&连接句柄
.SelectCmd="EXECUTE CustOrderHist 'ALFKI'" &&设置存储过程
ENDWITH
IF oCursor.CursorFill()
BROWSE
ELSE
AERROR(aErrors)
=MESSAGEBOX(aErrors[2])
ENDIF