读书人

代码:怎么返回多个字段

发布时间: 2012-02-16 21:30:36 作者: rapoo

代码:如何返回多个字段?
Lparameters kID
nhandle=SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=E:\vfplx\vfp3\ybbdy.mdb;pwd=")
csql="Select * From kq where kq.kd=?kid"
nResult = SQLExec(nHandle, cSQL, "lsb")
SQLDisconnect(nHandle)
Return lsb.name&&----->这里如何返回多个字段?比如:lsb.性别 lsb.工资 lsb.职务

[解决办法]
写COM更得这么写了,OO的,再贴个例子吧:
obj=get_record()
?obj.f1
?obj.f2
?obj.f3
FUNCTION get_record
CREATE CURSOR tmp (f1 c(10),f2 c(10),f3 m)
INSERT INTO tmp values("aaa","bbb",'mmm')
SELECT tmp
SCATTER MEMO NAME thisrecord
USE IN tmp
RETURN thisrecord
ENDFUNC

[解决办法]

探讨
写COM更得这么写了,OO的,再贴个例子吧:
obj=get_record()
?obj.f1
?obj.f2
?obj.f3
FUNCTION get_record
CREATE CURSOR tmp (f1 c(10),f2 c(10),f3 m)
INSERT INTO tmp values("aaa","bbb",'mmm')
SELECT tmp
SCATTER……

读书人网 >VFP

热点推荐