marcelo Postado Outubro 16, 2003 Denunciar Share Postado Outubro 16, 2003 Tenho um codico aqui mas ta dando seguinte erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe na cláusula FROM.CODE<%@language = VBScript %><%Option Explicit%><!-- #include virtual ="/adovbs.inc"--> <html><body><div align="center"><br> <% Response.Write("<font face=verdana size=3 color=#0000CC>" & Date() & "</font><BR>") Response.Write("<br>") Dim Conn, strConn, cBanco,RSSet Conn = Server.CreateObject("adodb.connection")cBanco = "C:\Inetpub\wwwroot\empresa.mdb"strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& cBanco &";"Conn.Open(strConn)Set RS = Server.CreateObject("adodb.Recordset")RS.Open "SELECT * FROM Amigos" , Conn, , , adCmdTable%><table border="0" cellpadding="1"0 cellspacing="2"> <tr> <td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Nome</font> </b></div></td> <td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Enderenco </font></b></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Cidade </b></font></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Estado </b></font></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Fone </b></font></div></td></tr><div align="center"> <%Do While Not RS.EOF Response.Write "<tr><td bgcolor='gold' width = '100' align='center'><Font Color='blue' size='1' face='verdana' "&"<b>"_ & RS ("Nome") & "</fonr></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Enderenco") & "</font></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Cidade") & "</font></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Estado") & "</FONT></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Fone") & "</FONT></td></tr>" 'response.Write("<P><HR><P>") RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %></div><p><br><br></p></body></table></html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 shaman_rj Postado Outubro 17, 2003 Denunciar Share Postado Outubro 17, 2003 Cara tem alguma coisa errada na sua tabela, Manda pra o nome databela e as colunas pois isso é erro de ortografia. você tá fazendo referencia a algo que não existe. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
marcelo
Tenho um codico aqui mas ta dando seguinte erro:
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe na cláusula FROM.
CODE
<%@language = VBScript %>
<%Option Explicit%>
<!-- #include virtual ="/adovbs.inc"-->
<html>
<body>
<div align="center"><br>
<%
Response.Write("<font face=verdana size=3 color=#0000CC>" & Date() & "</font><BR>")
Response.Write("<br>")
Dim Conn, strConn, cBanco,RS
Set Conn = Server.CreateObject("adodb.connection")
cBanco = "C:\Inetpub\wwwroot\empresa.mdb"
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& cBanco &";"
Conn.Open(strConn)
Set RS = Server.CreateObject("adodb.Recordset")
RS.Open "SELECT * FROM Amigos" , Conn, , , adCmdTable
%><table border="0" cellpadding="1"0 cellspacing="2">
<tr>
<td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Nome</font>
</b></div></td>
<td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Enderenco
</font></b></div></td>
<td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b>
Cidade </b></font></div></td>
<td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b>
Estado </b></font></div></td>
<td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b>
Fone </b></font></div></td>
</tr>
<div align="center">
<%
Do While Not RS.EOF
Response.Write "<tr><td bgcolor='gold' width = '100' align='center'><Font Color='blue' size='1' face='verdana' "&"<b>"_
& RS ("Nome") & "</fonr></td>"
Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _
& RS ("Enderenco") & "</font></td>"
Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _
& RS ("Cidade") & "</font></td>"
Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _
& RS ("Estado") & "</FONT></td>"
Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _
& RS ("Fone") & "</FONT></td></tr>"
'response.Write("<P><HR><P>")
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
</div>
<p><br>
<br>
</p></body>
</table>
</html>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.