Busca simples com ASP

[miqueiasrafael 1]

Olá galera estou desenvolvendo alguns aplicativos com ASP clássico e estou com algumas dúvidas:

Uma delas é a organização dos parâmetros do ASP sendo que programava em PHP mas como no ASP clássico isso muda um pouco estão estou com dúvidas do tipo:

 

1 - Como faço para receber e mostrar os registros vindo do banco Sql server?

2 - Como como mostrar os registros por ID dos registros

 

Abaixo segue meu código,

 

E desde já obrigado a todos!

 

<%
Set objCN = Server.CreateObject("ADODB.Connection")
objCN.Open "select * from contrato"

dados ="Select * From contrato Order By Nr_Documento"
set objCN = objCN.Execute(dados)

%>

    <table align="center">
        <tr><th>Nr. Documento</th><th>Empresa</th></tr>

        <% Do While Not RS.Eof %>
        
        <tr><td><%=RS("Nr_Documento")%></td><td><%=RS("Empresa")%></td></tr>
        
        <%
           RS.MoveNext
           Loop

           objCN.Close
        %>
    </table>
 

[xanburzum 169]

CONSULTA GERAL
<%
set conexao = createobject( "AdoDb.connection" )
´ cria-se o objeto que faz a conexão com o banco
conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath( "basededados.mdb" )
´ abre-se a conexão para o banco de dados, onde é informado o nome do banco (access)

set resp = conexao.execute("select * from admin order by nome")
´ aqui a variável resp recebe uma copia dos itens trazidos do banco de dados através do comando
´ select

do while not resp.eof ´ faça enquanto não for fim de arquivo

response.write( "
" & resp("nome") ) ´ exibe uma nova linha com o nome trazido a cada vez que o loop é percorrido

resp.movenext ´ move o ponteiro de registro para um próximo

loop ´ volta para o do while e caso a sentença continue verdadeira continua o laço

%>

e por favor crie apenas um tópico se a dúvida for do mesmo assunto.

[rafaeldupalio 5]

 

Olá galera estou desenvolvendo alguns aplicativos com ASP clássico e estou com algumas dúvidas:

Uma delas é a organização dos parâmetros do ASP sendo que programava em PHP mas como no ASP clássico isso muda um pouco estão estou com dúvidas do tipo:

 

1 - Como faço para receber e mostrar os registros vindo do banco Sql server?

2 - Como como mostrar os registros por ID dos registros

 

Abaixo segue meu código,

 

E desde já obrigado a todos!

<%
Set objCN = Server.CreateObject("ADODB.Connection")
objCN.Open "select * from contrato"

dados ="Select * From contrato Order By Nr_Documento"
set objCN = objCN.Execute(dados)

%>

    <table align="center">
        <tr><th>Nr. Documento</th><th>Empresa</th></tr>

        <% Do While Not RS.Eof %>
        
        <tr><td><%=RS("Nr_Documento")%></td><td><%=RS("Empresa")%></td></tr>
        
        <%
           RS.MoveNext
           Loop

           objCN.Close
        %>
    </table>
 

Miqueiaseu sei o quanto é complicado estar iniciando ate pq sou faixa branca tbm e ao contratio de vc nunca programei em nenhuma linguagem a primeira ta sendo asp classico, mas vamos a sua duvida vou colocar como faço na minha em etapas blz?

 

1ª etapa:

para a conexão no banco eu criei uma pagina asp com o unico objetivo que é se conectar ao banco e chamei de conn.asp

segue ela:

<%

Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/CYDER.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString

%>

o caminho em negrito é do meu servidor que fica dessa maneira a pasta dados e dentro dela meu banco de dados em access, basta vc copiar colar alterar o caminho do seu banco junto ao servidor e salvar com o nome que achar melhor conn, conexao, com, etc...

2ª etapa

no topo de toda a pagina asp que vc mexer no banco(incluir,deletar,pesquisar etc....) vc vai colocar esse include em negrito é o nome que vc salvou da pagina que mostrei na etapa 1

<!-- #include file="conn.asp" -->

3ª etapa

Recolher do formulario(pagina html)os campos a serem pesquisados, como to iniciando sempre uso o Var no inicio para lembrar que é uma variavel no caso var_status recebeu do formulario html o campo status.

 

var_status =request.form("status")

agora chegamos aonde vc deve ter a duvida o select fiz selecionando toda tabela quadro brasfels do meu banco de dados onde na coluna status seja igual ao texto recebido do formulario html e armazenado na variavel var_status, em baixo é o recordset

vSql = "SELECT * FROM TAB_QUADRO_BRASFELS where status='"&VAR_STATUS&"' "

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

4ª indo por parte no basico, vc ja conectou ao banco e fez o select para recolher os dados que vc selecionou e agora precisar armazena los em uma variavel.

var_ct = myRst.fields("ct")

var_descricao = myrst.fields("Descricao")

as variaveis var_ct e var_descricao receberam os valores que estavam guardados no banco de dados.

5ª e o ultimo passo é exibir certo entao vc vai criar um campo na sua pagina html e colocar a varivel var_ct com o seguinte descriçao <%=var_ct%>

um exemplo

<tr>

<td align="center" valign="middle"><%=var_ct%></td>

<td align="center" valign="middle"><%=var_descricao%></td>

</tr>

pronto vc fez tds os passos!

[xanburzum 169]

dá uma olhada num tópico que postei. Sistema Administrativo, onde mostro vários exemplos de SQL e bd com os rs