Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Luan Rodrigues

[Resolvido] Problema na conexão (é string SQL?)

Recommended Posts

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
	%>

É no SLQ o Problema???

o erro tah na linha: rsRegistros.open strRegistros, conexao, 3, 3

Compartilhar este post


Link para o post
Compartilhar em outros sites

Qual a mensagem de erro?

 

Pelo seu outro tópico que fechei, a mensagem de erro fala que você está tentando acessar um campo que não existe.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal, defato haviam alguns probleminhas que tinha esquecido --', mas resolvidos, não conseguia de forma alguma criar o SELECT,

então aí vai uma dica:

 

Abri meu banco de dados no access, criei uma seleção com assistente da forma que queria, com todas as tabelas e campos que desejava, e etc...

Então gravada a seleção, fui no modo de exibição da Consulta NO ACCESS e abri a aba SQL, pronto, estava lá o SELECT prontinho...

 

Para os iniciantes, acho que será muito útil!

 

abraços e obrigado pela atenção!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.