如何把这段代码转换为VFP

[yb___74]

<%

date1 = mid(Trim(Request("date1")),2,len(Trim(Request("date1")))-2)
date2 = mid(Trim(Request("date2")),2,len(Trim(Request("date2")))-2)
if date1=date2 then
date1=DateAdd("d", -29, date2)
end if
name = Request("name")

Const CONNECT = "FILEDSN=as_ORA"
%>
<%
set cn = Server.CreateObject( "ADODB.Connection" )
cn.Open CONNECT
SQL = "{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" & name & "','" & date1 & "','" & date2 & "',{resultset 3000, :s})}"
set cmd = server.CreateObject ("ADODB.Command")
with cmd
set .ActiveConnection = cn
.CommandText = SQL
.CommandType = 1 'adCmdText
end with
dim total1(4,300),total2(300,4),total20(4,300),total3(300,4),total5(4,2)
set rs = server.CreateObject ( "ADODB.Recordset" )
set rs = cmd.execute
i=0
Do until rs.EOF

if rs("gzsj")<>"" then
total1(4,i)=rs("gzsj")
else
total1(4,i)=0
end if
i=i+1
rs.MoveNext
loop
%>

[wwwwb]

自己动手做一下吧，有问题再问

[xuzuning]

这是 asp 程序

将
Const、set、Server. 删除
dim 改为 dime

就基本可以了

vfp 操作 oracle 手册中就有示例，还没有这么麻烦

[yb___74]

谢谢！请问vfp 操作 oracle 手册在哪里有下载的，我想系统学习学习，另外
上段代码中SQL = "{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" & name & "','" & date1 & "','" & date2 & "',{resultset 3000, :s})}"
的 '1460130000','" & name & "','" & date1 & "','" & date2 & "',{resultset 3000, :s}
不知是什么意思，在vfp上也要将它加上吗？还是要转换成另外一种形式？

[xuzuning]

昨天说漏了
& 改为 +

[wwwwb]

VBA与VFP的语法有区别
MID->SUBSTR &->+
去掉SET、CONST之类的，
set rs = server.CreateObject ( "ADODB.Recordset" ) ->
rs = CreateObject ( "ADODB.Recordset" )

[十豆三]

vfp 操作 Oracle 请参考：
http://topic.csdn.net/u/20120323/09/9a27b84d-df7e-411a-84d5-e9e03b3e55ee.html
这个帖子是操作 MSSQL，你参考操作方式，需要更改的为：
连接串
SQL 语句

[yb___74]

谢谢！我先在控制面板的ODBC的系统DSN里用MICROSOFT odbc FOR ORACLE驱动设定了oracle连接，名称是aa，然后把上段代码里的&->+，写如下语句：

nhand=SqlStringConnect("Dsn=aa;uid=cyccyweb;pwd=cyccyweb")
IF nhand<=0
=messagebox("连接失败,请查网络问题",16)
return&&返回
else
=messagebox("远程ORACLE连接成功!",16)
ENDIF
name=ALLTRIM("张奇")

date1=DTOC(DATE()-10)
date2=DTOC(DATE()-12)

lnRetVal=SQLExec(nhand,"{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" + name + "','" + date1 + "','" + date2 + "',{resultset 3000,:s})}",'temp')
SELECT temp
BROWSE


结果是：
远程ORACLE连接成功！
找不到别名temp

本来ASP代码是用ADO连接的，这个由于不会，我想用ODBC方法试试，出现这个结果不知是什么原因？

[wwwwb]

lnRetVal的值是多少？用AERROR()捕获错误

[yb___74]

lnRetVal的值是-1
用AERROR（）
后是
13
找不到别名
或者
52
当前工作区没有打开的表

[wwwwb]

lnRetVal的值是-1
没有执行成功

lnRetVal=SQLExec(nhand,"{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" + name + "','" + date1 + "','" + date2 + "',{resultset 3000,:s})}",'temp')
=AERROR(aa)
disp memo

[十豆三]

连接成功了，说明连接代码没有问题了。

lnRetVal 值是-1，说明
{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" + name + "','" + date1 + "','" + date2 + "',{resultset 3000,:s})}
这个有问题，你先简单点调试，如先写 select * from 表名

[yb___74]

N 1526
C “连接错误： ODBC DRIVER FOR ORACLE 无法绑定PL/SQL记录或游标引用

C "s1c00"

[yb___74]

根据wwwwb老师：

lnRetVal=SQLExec(nhand,"{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" + name + "','" + date1 + "','" + date2 + "',{resultset 3000,:s})}",'temp')
=AERROR(aa)
disp memo
执行的结果：
N 1526
C “连接错误： ODBC DRIVER FOR ORACLE 无法绑定PL/SQL记录或游标引用

C "s1c00"
谢谢十豆三老师的指点

[十豆三]

你在 Oracle 中直接运行这个语句，看看报错不？报错，到 Oracle 版帖一下你的 P_GET_KFDTSJ_CYSCSJ_DJ 过程内容，再问一下如何调用

{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','test','2012-03-30','2012-03-30',{resultset 3000,:s})}

[yb___74]

后来设置了ADO模式才可以用SQL = "{call pkg_oil_cycweb.P_GET_KFDTSJ_CYSCSJ_DJ('1460130000','" + name + "','" + date1 + "','" + date2 + "',{resultset 3000, :s})}"

[yb___74]

Oracle 服务器自己无法控制，所以不好试