注册 登录
编程论坛 → ASP技术论坛

关于ADODB.Recordset (0x800A0CC1)的错误，请教

porsun 发布于 2012-04-16 21:29， 745 次点击
ADODB.Recordset (0x800A0CC1)的错误!!

报错行指向：
  temp_number=cdbl(rs("sum_number"))
  temp_money=cdbl(rs("sum_money"))
  temp_youhui=cdbl(rs("sum_youhui"))
  temp_fukuan=cdbl(rs("sum_fukuan"))
  temp_fukuan_no=cdbl(rs("sum_money"))-cdbl(rs("sum_fukuan2"))-cdbl(rs("sum_youhui"))

但是检查了数据库，这些字段是存在的，如数据库：
USE [GoC]
GO
/****** 对象:  Table [dbo].[buy]    脚本日期: 04/16/2012 21:20:50 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[buy](
    [id] [int] IDENTITY(1,1) NOT NULL,
    [bianhao] [nvarchar](20) COLLATE Chinese_PRC_CI_AS NULL,
    [bianhao_type] [nvarchar](20) COLLATE Chinese_PRC_CI_AS NULL,
    [ru_date] [smalldatetime] NULL,
    [ru_datetime] [datetime] NULL,
    [login_id] [int] NULL,
    [login_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [contacts_id] [int] NULL,
    [contacts_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [house_id] [int] NULL,
    [house_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [person_id] [int] NULL,
    [person_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [person2_id] [int] NULL,
    [person2_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [memo] [nvarchar](200) COLLATE Chinese_PRC_CI_AS NULL,
    [memo2] [nvarchar](200) COLLATE Chinese_PRC_CI_AS NULL,
    [sum_number] [decimal](18, 6) NULL,
    [sum_money] [decimal](18, 6) NULL,
    [sum_money_chengben] [decimal](18, 6) NULL,
    [sum_youhui] [decimal](18, 6) NULL,
    [sum_fukuan2] [decimal](18, 6) NULL,
    [bank_id] [int] NULL,
    [bank_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [sum_fukuan] [decimal](18, 6) NULL,
    [isok] [bit] NULL,
    [chong] [bit] NULL,
    [songhuo] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [area_one] [int] NULL,
    [area_two] [int] NULL,
    [area_three] [int] NULL
) ON [PRIMARY]

=======================================





6 回复
#2
porsun2012-04-16 21:43
<!-- #include file="../conn.asp" -->
<!-- #include file="../const.asp" -->
<%
otable=request("otable")
field_table=request("otable")
set rs_temp=conn.execute("select * from config_print where print_table='"&request("otable")&"'")
print_head_text=rs_temp("print_head_text")
print_head_style=rs_temp("print_head_style")
print_head2_style=rs_temp("print_head2_style")
print_foot_text=rs_temp("print_foot_text")
print_foot_style=rs_temp("print_foot_style")
print_maxrecord=rs_temp("print_maxrecord")
print_title_style=rs_temp("print_title_style")
print_body_style=rs_temp("print_body_style")
rs_temp.close()
set rs_temp=nothing

startdate=request("startdate")
enddate=request("enddate")
bianhao_type=request("bianhao_type")
bianhao=request("bianhao")
contacts_id=request("contacts_id")
contacts_name=request("contacts_name")
house_id=request("house_id")
house_name=request("house_name")
login_id=request("login_id")
person_id=request("person_id")
person_name=request("person_name")
person2_id=request("person2_id")
person2_name=request("person2_name")
search_code=request("search_code")
search_name=request("search_name")
memo=request("memo")
memo2=request("memo2")
sort_name=request("sort_name")
sort_align=request("sort_align")
getback=request("getback")

set rs =server.createobject("ADODB.RecordSet")
   
  '采购退货明细
  elseif request("otable")="buy_back_goods" then
  sql="select * from buy_goods where 1=1"
  if bianhao<>"" then
    sql=sql&" and bianhao like '%"&bianhao&"%'"
  end if
  if startdate<>"" then
    sql=sql&" and datediff(d,'"&startdate&"',ru_datetime)>=0"
  else
    sql=sql&" and 1=2"
  end if  
  if enddate<>"" then
    sql=sql&" and datediff(d,'"&enddate&"',ru_datetime)<=0"
  end if
  if contacts_id<>"" then
    sql=sql&" and contacts_id="&contacts_id
  end if
  if house_id<>"" then
    sql=sql&" and house_id="&house_id
  end if
  if login_id<>"" then
    sql=sql&" and login_id="&login_id
  end if
  if person_id<>"" then
    sql=sql&" and person_id="&person_id
  end if
  if person2_id<>"" then
    sql=sql&" and person2_id="&person2_id
  end if
  if search_code<>"" then
    sql=sql&" and goods_code like '%"&search_code&"%'"
  end if
  if search_name<>"" then
    sql=sql&" and goods_name like '%"&search_name&"%'"
  end if
  sql=sql&" and bianhao_type='采购退货' and isok=1 and chong=0"
  
  if const_quanxian5_10="0" and const_user_id<>"1" then
    sql=sql&" and login_id="&const_user_id
  end if
  
  if request("sort_name")<>"" then
    sql=sql&" order by "&request("sort_name")&" "&request("sort_align")
  else
    sql=sql&" order by ru_datetime desc"
  end if
  
  end if
rs.open sql,conn,1,1
%>

<HTML><HEAD><TITLE>打印</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312;">
<SCRIPT language=javascript src="../js/soft.js"></SCRIPT>
<LINK rel="stylesheet" href="../css/main.css" type="text/css">
<LINK rel="stylesheet" href="../css/print.css" type="text/css">
<SCRIPT language=javascript src="../js/print.js"></SCRIPT>

</HEAD>
<BODY style="BACKGROUND: #ffffff" leftMargin=0 topMargin=0>
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0 style="display:none;" class="ipt"></OBJECT>
<FORM name=form_excel class="ipt" action="excel2.asp">
<INPUT type=hidden name=search_code value="<%=search_code%>">
<INPUT type=hidden name=search_name value="<%=search_name%>">
<INPUT type=hidden name=startdate value="<%=startdate%>">
<INPUT type=hidden name=enddate value="<%=enddate%>">
<INPUT type=hidden name=bianhao_type value="<%=bianhao_type%>">
<INPUT type=hidden name=bianhao value="<%=bianhao%>">
<INPUT type=hidden name=contacts_id value="<%=contacts_id%>">
<INPUT type=hidden name=contacts_name value="<%=contacts_name%>">
<INPUT type=hidden name=house_id value="<%=house_id%>">
<INPUT type=hidden name=house_name value="<%=house_name%>">
<INPUT type=hidden name=login_id value="<%=login_id%>">
<INPUT type=hidden name=person_id value="<%=person_id%>">
<INPUT type=hidden name=person_name value="<%=person_name%>">
<INPUT type=hidden name=person2_id value="<%=person2_id%>">
<INPUT type=hidden name=person2_name value="<%=person2_name%>">
<INPUT type=hidden name=memo value="<%=memo%>">
<INPUT type=hidden name=memo2 value="<%=memo2%>">
<INPUT type=hidden name=getback value="<%=getback%>">
<INPUT type=hidden name=otable value="<%=otable%>">
</FORM>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 class="ipt">
  <TBODY>
  <TR height=1>
    <TD bgColor=#aca899></TD></TR>
  <TR height=1>
    <TD bgColor=#ffffff></TD></TR></TBODY></TABLE>
                      <%
                      if otable="into_out_goods_des" then
                        field_table="buy_goods"
                      end if
                        set rs_field=server.createobject("ADODB.RecordSet")
                      sql="select * from field where field_print=1"
                      sql=sql&" and field_table='"&field_table&"'"
                      sql=sql&" order by field_order"
                      rs_field.open sql,conn,1,1
                      field_width_print_sum=0
                      do while rs_field.eof=false
                        field_width_print_sum=field_width_print_sum+rs_field("field_width_print")
                        rs_field.movenext
                      loop
                      %>
<%
temp_total_number=0
temp_total_money=0
temp_total_youhui=0
temp_total_fukuan=0
temp_total_fukuan_no=0
temp_total_money_chengben=0
temp_total_money_account=0
x=0
page=FIX(rs.recordcount/print_maxrecord)+Sgn(rs.recordcount/print_maxrecord-FIX(rs.recordcount/print_maxrecord))
for y=1 to page
%>
<TABLE class=dataprint_table cellSpacing=0 cellPadding=0 width="<%=field_width_print_sum+40%>" align=center
border=0>
  <TR>
    <TD colspan="<%=rs_field.recordcount+1%>">
      <TABLE class=dataprint_table cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
        <tr>
          <td style="<%=print_head_style%>"><%=replace(replace(print_head_text&""," ","&nbsp;"),chr(13),"<br>")%></td>
        </tr>
      </TABLE>
    </TD>
  </TR>
  <TR>
    <TD colspan="<%=rs_field.recordcount+1%>" align="right">【日期：<%=startdate%> 至 <%=enddate%>】</TD>
  </TR>
  <TR>
    <TD class=dataprint_title style="<%=print_title_style%>;text-align:center" align=center width=40>&nbsp;</TD>
                              <%
                              if rs_field.recordcount<>0 then
                        rs_field.movefirst
                      end if
                              do while rs_field.eof=false
                              %>
    <TD class=dataprint_title style="<%=print_title_style%>" align=center width="<%=rs_field("field_width_print")%>"><%=rs_field("field_name")%></TD>
                              <%
                              rs_field.movenext
                              loop
                              %>
  </TR>
<%
xx=0
do while rs.eof=false
x=x+1
xx=xx+1

if request("otable")="sell_goods" then
if getback="ok" then
  temp_number=cdbl(rs("goods_number"))-cdbl(rs("goods_number_back"))
else
  temp_number=cdbl(rs("goods_number"))
end if
temp_price=cdbl(rs("goods_price"))
'temp_money=cdbl(rs("goods_money"))
temp_money=temp_number*temp_price
temp_unit=rs("goods_unit1")
if rs("goods_unit_show")="2" then
  temp_number=temp_number/cdbl(rs("goods_num"))
  temp_price=cdbl(rs("goods_price"))*cdbl(rs("goods_num"))
  temp_unit=rs("goods_unit2")
end if
elseif request("otable")="sell_goods_account" then
if getback="ok" then
  temp_number=cdbl(rs("goods_number"))-cdbl(rs("goods_number_back"))
else
  temp_number=cdbl(rs("goods_number"))
end if
temp_price=cdbl(rs("goods_price"))
temp_price_chengben=cdbl(rs("goods_price_chengben"))
'temp_money=cdbl(rs("goods_money"))
'temp_money_chengben=cdbl(rs("goods_money_chengben"))
temp_money=temp_number*temp_price
temp_money_chengben=temp_number*temp_price_chengben
temp_unit=rs("goods_unit1")
if rs("goods_unit_show")="2" then
  temp_number=temp_number/cdbl(rs("goods_num"))
  temp_price=cdbl(rs("goods_price"))*cdbl(rs("goods_num"))
  temp_price_chengben=cdbl(rs("goods_price_chengben"))*cdbl(rs("goods_num"))
  temp_unit=rs("goods_unit2")
end if
temp_money_account=temp_money-temp_money_chengben
if temp_money<>0 then
  temp_lilv=temp_money_account/temp_money
else
  temp_lilv=0
end if
elseif request("otable")="sell_account" then
temp_number=cdbl(rs("sum_number"))
temp_money=cdbl(rs("sum_money"))
temp_youhui=cdbl(rs("sum_youhui"))
temp_money_chengben=cdbl(rs("sum_money_chengben"))
temp_money_account=temp_money-temp_money_chengben-temp_youhui
if temp_money<>0 then
  temp_lilv=temp_money_account/temp_money
else
  temp_lilv=0
end if
elseif request("otable")="buy_goods" or request("otable")="sell_back_goods" then
temp_number=cdbl(rs("goods_number"))
temp_price=cdbl(rs("goods_price"))
temp_money=cdbl(rs("goods_money"))
temp_unit=rs("goods_unit1")
if rs("goods_unit_show")="2" then
  temp_number=cdbl(rs("goods_number"))/cdbl(rs("goods_num"))
  temp_price=cdbl(rs("goods_price"))*cdbl(rs("goods_num"))
  temp_unit=rs("goods_unit2")
end if
elseif request("otable")="into_out_goods_des" then
if rs("bianhao_type")="采购退货" or rs("bianhao_type")="销售" then
  temp_number=cdbl(rs("goods_number"))
  temp_money=cdbl(rs("goods_money"))
elseif rs("bianhao_type")="采购" or rs("bianhao_type")="销售退货" then
  temp_number=-cdbl(rs("goods_number"))
  temp_money=-cdbl(rs("goods_money"))
end if
  temp_price=cdbl(rs("goods_price"))

temp_unit=rs("goods_unit1")
if rs("goods_unit_show")="2" then
  temp_number=temp_number/cdbl(rs("goods_num"))
  temp_price=cdbl(rs("goods_price"))*cdbl(rs("goods_num"))
  temp_unit=rs("goods_unit2")
end if
else
   
  temp_number=cdbl(rs("sum_number"))
  temp_money=cdbl(rs("sum_money"))
  temp_youhui=cdbl(rs("sum_youhui"))
  temp_fukuan=cdbl(rs("sum_fukuan"))
  temp_fukuan_no=cdbl(rs("sum_money"))-cdbl(rs("sum_fukuan2"))-cdbl(rs("sum_youhui"))
end if

temp_total_number=temp_total_number+temp_number
temp_total_money=temp_total_money+temp_money
temp_total_youhui=temp_total_youhui+temp_youhui
temp_total_fukuan=temp_total_fukuan+temp_fukuan
temp_total_fukuan_no=temp_total_fukuan_no+temp_fukuan_no
temp_total_money_chengben=temp_total_money_chengben+temp_money_chengben
temp_total_money_account=temp_total_money_account+temp_money_account
if temp_total_money<>0 then
  temp_total_lilv=temp_total_money_account/temp_total_money
else
  temp_total_lilv=0
end if
%>
  <TR>
    <TD class=dataprint_line style="<%=print_body_style%>;text-align:center" align=center width=40><%=x%></TD>

////////省

</BODY></HTML>
#3
porsun2012-04-17 11:01
愿知道病因的指点一二啦，谢谢哦
#4
porsun2012-04-19 13:48
有人会麽，帮忙看看啦，谢谢哦
#5
ysf01812012-04-19 13:53
换台电脑调试下，看下。
#6
porsun2012-04-20 22:25
在一些服务器上则没有报错，但在本机就报错，为何呢？
#7
porsun2012-04-25 18:57
问题还没解决呢？谁帮我结贴啦？
1
©2025, BC-CN.NET
电脑版