我非常沮丧,我觉得好像我犯了一个非常基本的错误。我已经多次检查并重新检查了代码,用Google搜索了这次崩溃,但找不到任何内容。
我正在尝试从Access数据库在ASP中创建详细信息提取页面,但只要我的提取查询包含,我的屏幕就会崩溃 a 替换功能。
旁注:查询在Access中完美运行 - 只有当我尝试在ASP代码中运行它时才会发生崩溃
The dabase can be downloaded in this link
这是代码:
strSQL = "SELECT * FROM myQueryReplace"
Set objAdoCon = Server.CreateObject("ADODB.Connection")
objAdoCon.Open strDatabaseConnectionExtract
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, objAdoCon
'Check If the RecordSet object returned any records'
If (NOT (objRec.EOF)) AND (NOT (objRec.BOF)) Then
%><table><%
For Each subVarColumn in objRec.Fields%>
<th align='center' bgcolor='#b0c4de' height='50'><%=subVarColumn.name%></th><%
Next
Do Until objRec.EOF%>
<tr class="highlightTableBody"><%
For Each subVarColumn in objRec.Fields%>
<td style="text-align: center;"><%=subVarColumn.value%></td><%
Next%>
</tr><%
objRec.MoveNext
Loop
%></table><%
End If
Set objRec = Nothing
Set objAdoCon = Nothing
我想要的是能够打印具有“替换”的查询
答案 0 :(得分:-1)
我刚刚检查过你说的方式。并下载了数据库并设置了您提供的asp页面和代码,并且它以您想要的方式完美地工作
见下面的截图.. http://prntscr.com/h8boyj
连接字符串我用过..
Provider = Microsoft.ACE.OLEDB.12.0; Data Source = [database path]; Persist Security Info = False;