#2
dibei2021-12-06 23:31
|
标准表达式中数据类型不匹配。
/ccgl_2_4.asp,行 81 ,即代码的最后一行
程序代码:
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("student.mdb")
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties='Excel 5.0;hdr=yes;imex=1';Data Source="& Server.MapPath("upload/"&FileName)
sql = "SELECT * FROM [出库明细$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into tmp_ckmx(tmp_warehouse,tmp_code,tmp_describe,tmp_num,tmp_price,tmp_price_t) values ('"& trim(fixsql(rs(2))) &"','"& trim(fixsql(rs(8))) &"','"& trim(fixsql(rs(9))) &"','"& trim(fixsql(rs(11))) &"','"& trim(fixsql(rs(12))) &"','"& trim(fixsql(rs(13))) &"')"
conn.execute(sql)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("student.mdb")
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties='Excel 5.0;hdr=yes;imex=1';Data Source="& Server.MapPath("upload/"&FileName)
sql = "SELECT * FROM [出库明细$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into tmp_ckmx(tmp_warehouse,tmp_code,tmp_describe,tmp_num,tmp_price,tmp_price_t) values ('"& trim(fixsql(rs(2))) &"','"& trim(fixsql(rs(8))) &"','"& trim(fixsql(rs(9))) &"','"& trim(fixsql(rs(11))) &"','"& trim(fixsql(rs(12))) &"','"& trim(fixsql(rs(13))) &"')"
conn.execute(sql)
[此贴子已经被作者于2021-12-6 23:32编辑过]