红色部分代码去掉,可以显示,一旦加上,就提示Microsoft JET Database Engine (0x80040E10) 至少一个参数没有被指定值。
红色部分代码去掉,可以显示,一旦加上,就提示Microsoft JET Database Engine (0x80040E10) 至少一个参数没有被指定值。
求解
<%set conn=server.CreateObject("adodb.connection")
dbpath=server.mappath("data/#fkj@#$%^$#@125348742FSDF#.mdb")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from bmcy where txtname = 财务部 "
rs.open sql,conn,1,1
do while not rs.bof and not rs.eof
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><table width="400" border="0" align="center" cellpadding="2" cellspacing="1" class="font14" style="margin-top:50px;">
<tr>
<td width="100" align="right">姓 名:</td>
<td><%=rs("txtusername")%></td>
</tr>
<tr>
<td align="right">英文名称:</td>
<td><%=rs("txtename")%></td>
</tr>
<tr>
<td align="right">电 话:</td>
<td><%=rs("tel")%></td>
</tr>
<tr>
<td align="right">手 机:</td>
<td><%=rs("phone")%></td>
</tr>
<tr>
<td align="right">短号:</td>
<td><%=rs("dphone")%></td>
</tr>
<tr>
<td align="right">QQ号:</td>
<td><%=rs("qq")%></td>
</tr>
<tr>
<td align="right">传真FAX:</td>
<td><%=rs("fax")%></td>
</tr>
<tr>
<td align="right">E-Mali:</td>
<td><%=rs("mail")%></td>
</tr>
</table>
<%
rs.movenext
loop
Rs.Close
conn.close
Set Rs=nothing
set conn=nothing
%>