[Resolvido] Consulta

reinaldo polato · Agosto 16, 2011

e ai galera beleza

tenho uma pagina de consulta mais não faz a consulta fica tudo branco

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Consultar Codigo do Vendedor Cadastrado </title>
<form name="frm1" Method="Post" action="consulta_vendedor.asp">
<table align="center" border="1" width="40%">
<td bgcolor="black" width="33%"><font color="black"><select name="ds_name_campo" style="width"=100%">
			 <option value="">Select</option>
			 <option value="CodCliente">CodCliente</option>
		     <option value="RazaoSocial">RazaoSocial</option>
			 <option value="Fantasia">Fantasia</option>
			 <option value="CNPJ">CNPJ</option>
			 <option value="IE">IE</option>
			 <option value="Tipo">Tipo</option>
			 <option value="Potencial">Potencial</option>
			 <option value="Endereco">Endereco</option>
			 <option value="Complemento">Complemento</option>
			 <option value="Bairro">Bairro</option>
			 <option value="Municipio">Municipio</option>
			 <option value="Cep">Cep</option>
			 <option value="Estado">Estado</option>
			 <option value="Telefone">Telefone</option>
			 <option value="Celular">Celular</option>
			 <option value="HomePage">HomePage</option>
			 <option value="Cobranca">Cobranca</option>
			 <option value="Correio">Correio</option>
			 <option value="Anotacoes">Anotacoes</option>
			</option>
			</td>
			<td bgcolor="White" width="33%"><input type="text" name="pesquisar" Size="40"></td>
			<td bgcolor="While" width="33%"><input type="Submit" name="btn_pesquisar" value=" Pesquisar >>"></td>


</form>
</table>
</tr>
</td>							
<P> </P>

</BODY>
</HTML>

<%

if Request.Form("ds_nome_campo") <> "" and Request.Form("Pesquisar") <> "" then

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

dim StrSQL

Set DbConn = Server.CreateObject("ADODB.Connection")
strConexao = "Provider=SQLOLEDB;Database=db_vendedor;Server=Reinldo10;Uid=Sa;Pwd=123456789"
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha"


objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Vendedor",objconexao,1,3,2


objconexao.Open Strconexao 

StrSQL= "Select * " &_

					"From [Vendedor] " &_

									 "WHERE  " & Request.Form("ds_nome_campo") & " Like '%" & Request.Form("Pesquisar") & "&' "


objrecordset.Open StrSQL, objconexao,1,3

do until objrecordset.EOF
Response.Write objrecordset.Fields.item(0).value & "<br>"
Response.Write objrecordset.Fields.item(1).value & "<br>"	
Response.Write objrecordset.Fields.item(2).value & "<br>"	
Response.Write objrecordset.Fields.item(3).value & "<br>"	
Response.Write objrecordset.Fields.item(4).value & "<br>"	
Response.Write objrecordset.Fields.item(5).value & "<br>"	
Response.Write objrecordset.Fields.item(6).value & "<br>"	
Response.Write objrecordset.Fields.item(7).value & "<br>"	
Response.Write objrecordset.Fields.item(8).value & "<br>"	
Response.Write objrecordset.Fields.item(9).value & "<br>"	
Response.Write objrecordset.Fields.item(10).value & "<br>"	
Response.Write objrecordset.Fields.item(11).value & "<br>"	
Response.Write objrecordset.Fields.item(12).value & "<br>"	
Response.Write objrecordset.Fields.item(13).value & "<br>"	
Response.Write objrecordset.Fields.item(14).value & "<br>"	
Response.Write objrecordset.Fields.item(15).value & "<br>"	
Response.Write objrecordset.Fields.item(15).value & "<br>"	
Response.Write objrecordset.Fields.item(16).value & "<br>"	
Response.Write objrecordset.Fields.item(17).value & "<br>"	
Response.Write objrecordset.Fields.item(18).value & "<br>"	
Response.Write objrecordset.Fields.item(19).value & "<br>"	

objrecordset.MoveNext

loop

objconexao.close
set objconexao=nothing
set objrecordset=nothing

end if


%>

xanburzum · Agosto 17, 2011

dá um response.write na sua string SQL para ver oq ue esta sendo passado

dataset · Agosto 17, 2011

você ta concatenando isso &' na tua variável de retorno. Ta certo ?

Segue a dica do xanburzum e posta o resultado.

reinaldo polato · Agosto 17, 2011

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/vendas/cadastrar cliente/consulta_vendedor.asp, linha 53

dim StrSQL Response.Write

eu dei o response.write depois do dim StrSQL é isso

Marrabel · Agosto 17, 2011

ao inves de colocar

Dim StrSQL Response.Write

coloque após a instrução SQL

Response.Write(StrSQL)

reinaldo polato · Agosto 17, 2011

e ai galera beleza

seguinte tem esse arquivo microsoft data access mdac

temque instalar ele mais o meu windows é o windows 7 versão 64 bits eu não achei esse programa pra essa versão

xanburzum · Agosto 18, 2011

Certifique-se de setar apenas as variáveis Dim em ASP, sem o uso de AS. VBScript suporta apenas variantes, por isso não há necessidade de apoiar typecasting explícito.

Certifique-se de usar apenas 'Next' em vez de 'Next i' ... VBScript não precisa manter o controle da variável de controle (embora a minha preferência seria para que ela simplesmente ignorar tal declaração, de modo que VB e VBScript seria muito mais sintaticamente consistente).

Certifique-se de não criar uma string como esta:

myString = ""teste"

e baixe a ultima versão do MDAC

reinaldo polato · Agosto 18, 2011

e ai galera beleza está dando esse erro agora

ADODB.Connection erro '800a0e79'

Operação não permitida quando o objeto está aberto.

/vendas/cadastrar cliente/consulta_vendedor.asp, linha 63

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Consultar Codigo do Vendedor Cadastrado </title>
<form name="frm1" Method="Post" action="consulta_vendedor.asp">
<table align="center" border="1" width="40%">
<td bgcolor="black" width="33%"><font color="black"><select name="ds_name_campo" style="width"=100%">
                                <option value="">Select</option>
			                <option value="CodCliente">CodCliente</option>
		                    <option value="RazaoSocial">RazaoSocial</option>
			                <option value="Fantasia">Fantasia</option>
			                <option value="CNPJ">CNPJ</option>
			                <option value="IE">IE</option>
			                <option value="Tipo">Tipo</option>
			                <option value="Potencial">Potencial</option>
			                <option value="Endereco">Endereco</option>
			                <option value="Complemento">Complemento</option>
			                <option value="Bairro">Bairro</option>
			                <option value="Municipio">Municipio</option>
			                <option value="Cep">Cep</option>
			                <option value="Estado">Estado</option>
			                <option value="Telefone">Telefone</option>
			                <option value="Celular">Celular</option>
			                <option value="HomePage">HomePage</option>
			                <option value="Cobranca">Cobranca</option>
			                <option value="Correio">Correio</option>
			                <option value="Anotacoes">Anotacoes</option>
			</option>
			</td>
			<td bgcolor="White" width="33%"><input type="text" name="pesquisar" Size="20"></td>
			<td bgcolor="While" width="33%"><input type="Submit" name="btn_pesquisar" value=" Pesquisar >>"></td>


</form>
</table>
</tr>
</td>							
<P> </P>

</BODY>
</HTML>

<%

if Request.Form("ds_name_campo") <> "" and Request.Form("pesquisar") <> "" then 

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

dim StrSQL

set DbConn =server.CreateObject("ADODB.connection")
strConexao = "Provider=SQLOLEDB;Database=Db_vendedor;Server=Reinaldo10;Uid=Sa;Pwd=123456789"
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha"

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2

objconexao.Open Strconexao 

StrSQL= "Select * " &_

					"From [Consulta] " &_

									 "WHERE  " & Request.Form("ds_nome_campo") & " Like '%" & Request.Form("Pesquisar") & "&' "


objrecordset.Open StrSQL, objconexao,1,2,2

do until objrecordset.EOF
Response.Write objrecordset.Fields.item(0).value & "<br>"
Response.Write objrecordset.Fields.item(1).value & "<br>"	
Response.Write objrecordset.Fields.item(2).value & "<br>"	
Response.Write objrecordset.Fields.item(3).value & "<br>"	
Response.Write objrecordset.Fields.item(4).value & "<br>"	
Response.Write objrecordset.Fields.item(5).value & "<br>"	
Response.Write objrecordset.Fields.item(6).value & "<br>"	
Response.Write objrecordset.Fields.item(7).value & "<br>"	
Response.Write objrecordset.Fields.item(8).value & "<br>"	
Response.Write objrecordset.Fields.item(9).value & "<br>"	
Response.Write objrecordset.Fields.item(10).value & "<br>"	
Response.Write objrecordset.Fields.item(11).value & "<br>"	
Response.Write objrecordset.Fields.item(12).value & "<br>"	
Response.Write objrecordset.Fields.item(13).value & "<br>"	
Response.Write objrecordset.Fields.item(14).value & "<br>"	
Response.Write objrecordset.Fields.item(15).value & "<br>"	
Response.Write objrecordset.Fields.item(15).value & "<br>"	
Response.Write objrecordset.Fields.item(16).value & "<br>"	
Response.Write objrecordset.Fields.item(17).value & "<br>"	
Response.Write objrecordset.Fields.item(18).value & "<br>"	
Response.Write objrecordset.Fields.item(19).value & "<br>"	

objrecordset.MoveNext

loop

objconexao.close
set objconexao=nothing
set objrecordset=nothing

end if


%>

Vinicius Ianni · Agosto 18, 2011

E nesse mar sem fim de codigo, qual é a linha que se refere o erro ?

reinaldo polato · Agosto 18, 2011

a linha 69 é essa

objconexao.Open Strconexao

está dando erro nessa linha

Vinicius Ianni · Agosto 18, 2011

Note que:

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2

objconexao.Open Strconexao

Você abre a conexão duas vezes, por isso ocorre o erro.

reinaldo polato · Agosto 19, 2011

deu certo funcionou valeu pela ajuda ai

Vinicius Ianni · Agosto 19, 2011

Quem bom que deu certo !

Precisando, estamos ai :joia:

Arquivado

[Resolvido] Consulta

Recommended Posts

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante