分不多，问题很难搞定，高手或是好心人来看一下

Question

appedn->append
其他不知道

Answer 1

我知道应该是filldate这个值(如2006-10-10)的设置有错:("@filldate",3,1,10,filldate),但是我不知道到哪里去查,如何改郁闷!

Answer 2

比如:
CREATE proc p_t
@a varchar(2),
@b varchar(10) output
as
set nocount on
if @a='0' 
set @b= ltrim(@a)+'a'
else
set @b= ltrim(@a)+'b'
return
GO直接执行存储过程:
declare @c varchar(10)
declare @d varchar(2)
set @c='2'
exec p_t @c,@d output
print @d  --------结果:2b调用：
com.ActiveConnection = con
com.CommandText = "p_t"
com.CommandType = adCmdStoredProcSet pa = com.CreateParameter("a", adBigInt, adParamInput, 2)
pa.Value = "1"
com.Parameters.Append pa
Set pa = com.CreateParameter("@b", adVarChar, adParamOutput, 10)
com.Parameters.Append pa
com.Execute
Debug.Print com("@b")------结果:2b

Answer 3

Set pa = com.CreateParameter("a", adBigInt, adParamInput, 2)中的adBigInt改成adVarchar

Answer 4

Option Explicit
Dim con As New ADODB.Connection
Dim com As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim pa As ADODB.Parameter
Private Sub Command1_Click()
con.ConnectionString = "driver={sql server};server=(Local);database=test;uid=sa;pwd=sunway"
con.Opencom.ActiveConnection = con
com.CommandText = "p_t"
com.CommandType = adCmdStoredProcSet pa = com.CreateParameter("a", adBigInt, adParamInput, 2)
pa.Value = "1"
com.Parameters.Append pa
Set pa = com.CreateParameter("@b", adVarChar, adParamOutput, 10)
com.Parameters.Append pa
com.Execute
Debug.Print com("@b")
End Sub

Answer 5

Microsoft VBScript 编译器错误 错误 '800a0401' 语句未结束 /datafill/xx.asp，行 3 Dim con As New ADODB.Connection
--------^

Answer 6

你肯定不行，这是vb的
你的脚本要
set con=server.createobject("adodb.connection")

Answer 7

我的存储过程:
_________
CREATE   proc p_datafill@filldate  datetimeasdeclare @stamptime  datetime
set @stamptime=getdate()update shenp set  状态说明=@stamptime where ........
if @@ROWCOUNT >0        begin                insert into shenp_b ................
                insert into shenpjg_b ..............
                insert into shenp_v_b ..............
                delete shenpjg where ...............
                delete shenp where .................
                RETURN 0
        end 
else
                RETURN 1
   
GO

Answer 8

最好是把你的存储过程改成返回参数的:
CREATE proc p_datafill@filldate datetime,
@returnV int outputas
set nocount on--------declare @stamptime datetime
set @stamptime=getdate()update shenp set 状态说明=@stamptime where ........
if @@ROWCOUNT >0begininsert into shenp_b ................
insert into shenpjg_b ..............
insert into shenp_v_b ..............
delete shenpjg where ...............
delete shenp where .................
set @returnV=0-------
end 
else
set @returnV=1------
return------GO

Answer 9

这样吧,长话短说,
CmdSP.Parameters.Appedn CmdSP.CreateParameter("@filldate",3,1,10,filldate)
数据是这样的:2006-10-10的形式,要如何改("@filldate",3,1,10,filldate)这里?

Answer 10

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Server.ScriptTimeout = 999999 %>
<% 
DIM CmdSP,MyPara
filldate=trim(request("filldate"))
set CmdSP = Server.CreateObject("ADODB.Command") 
CmdSP.ActiveConnection = "Driver={SQL Server};server=(local);Uid=sa;Pwd=123456;Database=SMS" 
CmdSP.CommandText = "p_datafill" 
CmdSP.CommandType = 4 
CmdSP.Prepared = true 
'声明值
Set Mypara=CmdSP.CreateParameter("filldate",134,1,8,filldate)'注意：日期格式要对
CmdSP.Parameters.Append MyParaSet Mypara = CmdSP.CreateParameter("RETURN",3,2,4)
CmdSP.Parameters.Append MyPara
CmdSP.Execute
'取得返回值
DIM retValue
retValue = CmdSP(0) if retValue=0 then 
response.write "<br>数据处理完毕,请关闭当前页!"
else 
response.write "<br>没有找到需要进行处理的数据!"
end ifSet CmdSP = nothing 
%>

Answer 11

唉,还是不行啊!郁闷!
chuifengde兄改的存储过程无法建立,提示需要声明@returnV变量,并且SET处有错误！

Answer 12

create proc pr
@filldate datetime,
@returnV int outputas
set nocount on--------declare @stamptime datetime
set @stamptime=getdate()if @@ROWCOUNT >0beginset @returnV=0-------
end 
else
set @returnV=1------
return------GO命令已成功完成。

Answer 13

这个放一边儿，到现在也没有一段完全实用的调用的ASP代码！

Answer 14

if request(filldate)="" then 
  filldate="2006-10-10"
end if

Answer 15

你把要做的SQL语句放到查询分析器里执行看看

Answer 16

SQL语句都没有问题了,现在主要是ASP调用存储过程的问题,是调用出了问题,而不是存储过程有问题ASP页中
定义filldate类型 (格式是:2006-10-10)
与存储过程中定义的@filldate datetime有冲突,但是不知道要如何写定义ASP调用页中的filldate的数据类型
不知这样讲能否明白?

Answer 17

数据类型用adVarchar(200)就行了

Answer 18

数据类型用adVarchar (200)之后报的错如下:
_______________________
2006-10-10 
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07' [Microsoft][ODBC SQL Server Driver][SQL Server]将数据类型 varchar 转换为 int 时出错。

Answer 19

楼主可以先把存储过程去繁留简，测试一下，你说的这个问题，我用advarchar是可以通过的

Answer 20

把这句这样改看看
CmdSP.Parameters.Appedn CmdSP.CreateParameter("@filldate",3,1,10,filldate)
改成
CmdSP.Parameters.Appedn CmdSP.CreateParameter("@filldate",3,1,10,Cdate(filldate))

Answer 21

adDate 日期值 (DBTYPE_DATE)。日期按双精度型数值来保存，数字全部表示从 1899 年 12 月 30 开始的日期数。小数部分是一天当中的片段时间。 
adDBDate 日期值 (yyyymmdd) (DBTYPE_DBDATE)。 
adDBTime 时间值 (hhmmss) (DBTYPE_DBTIME)。 
adDBTimeStamp 时间戳（yyyymmddhhmmss 加 10 亿分之一的小数）(DBTYPE_DBTIMESTAMP). Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 1357和133均可一试.