同时连接2个数据库出现的错误
Microsoft OLE DB Provider for SQL Server 错误 '80040e21'
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
/submit.asp,行13
连接文件
<%
Dim SqlDatabaseName,SqlDatabaseName_sp,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "db1"
SqlDatabaseName = "db2"
SqlUsername = "sa"
SqlPassword = ""
SqlLocalName = "(local)"
//连接DB1
set conn = server.createobject("adodb.connection")
ConnStr = "Provider = Sqloledb.1;Data Source="&SqlLocalName&"; Initial Catalog="&SqlDatabaseName&";User ID ="&SqlUsername&";Password ="&SqlPassword&";"
conn.open connstr
//连接DB2
set conn_sp = server.createobject("adodb.connection")
ConnStr_sp = "Provider = Sqloledb.1;Data Source="&SqlLocalName&"; Initial Catalog="&SqlDatabaseName_sp&";User ID ="&SqlUsername&";Password ="&SqlPassword&";"
conn_sp.open connstr_sp
%>
以下是submit.asp
<!--#include file="conn.asp" -->
<%
id=request.form("id")
s_number=request.form("s_number")
m_time=request.form("in_time")
m_number=request.form("m_number")
m_text=request.form("m_text")
set rs=server.createobject("adodb.recordset")
sql="select * from db2_table"
rs.open sql,conn_sp,3,3
rs.addnew
rs("id")=message_id
rs("s_number")=s_number
rs("m_time")=m_time
rs("m_number")=m_number
rs("m_text")=m_text
rs.update
rs.close
set rs=nothing
response.write"数据已经模拟写进SP数据库。"
%>
<!--#include file="conn_close.asp" -->