Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou com um problema urgente pessoal, veja se alguem acha a solução:
<%
'Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
Dim registros
caminho = Server.MapPath("banco.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & caminho & ";"
'Selecionamos os Produtos da Tabela
Set rsRegistros = Server.CreateObject("ADODB.Recordset")
strRegistros = "SELECT PT_CODE FROM Produto ORDER BY PT_CODE"
'strRegistros = "SELECT Familia.FA_NOME, Produto.PT_CODE, Aplicacao.AP_MARCA, Aplicacao.AP_CODE, Produto_Aplic.PA_CODEORIG FROM Produto, Familia, Produto_Aplic, Aplicacao WHERE Produto.FA_NOME = Familia.FA_NOME AND Produto.PT_CODE = Produto_Aplic.PT_CODE AND Produto_Aplic.AP_NUMBER = Aplicacao.AP_NUMBER ORDER BY Produto.PT_CODE"
rsRegistros.open strRegistros, conexao, 3, 3<body>
<div id="corpo">
<%
while not rsRegistros.eof
%>
<table width="680" border="0" bordercolor="#FFFFFF" class="tabela_par">
<td width="90" class="texto_tipo_produto"></td>
<td width="70" bgcolor="#006600" class="texto_cod_produto"><p><% Response.Write rsRegistros("PT_CODE") %></p>
</td>
<td width="105" class="texto_tipo_produto"></td>
<td width="293"><span class="texto_desc_produto"></span></td>
<td width="100"></td>
</tr>
</table>
<%
wend
rsRegistros.Close
Conexao.Close
%>o erro tah na linha: rsRegistros.open strRegistros, conexao, 3, 3
Carregando comentários...