Ir para conteúdo

POWERED BY:

Arquivado

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

Guto_Metal

Iniciante em ASP

Recommended Posts

Gostaria que alguém me desse uma orientação ou me passasse algum exemplo pronto de Banco de Dados em ASP e que me explicasse a sintaxe dos comandos de inclusão, alteração e exclusão de cadastro........obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pra voce ter uma noção sobre banco de dados é só voce baixar um ou dois programinhas asp, e analizar,,,Para voce usar metodos de seleção inclusão e exclusão e update em banco uma forma é o ado add new.Sera NECESSÁRIO o arquivo de inclusão abaixo.<!--#INCLUDE FILE="ADOVBS.INC"-->ensira no topo da pagina aspTIPO: SE VOCÊ DESEJA QUE SE INCLUA NOVOS DADOS EM UMA NOVA LINHA:objRS é a instância do objeto Recordset<%objRS.AddNewobjRS("Nome") = "wallace"objRS("Idade") = 20objRS.Update%>SE VOCÊ DESEJASSE APENAS A ALTERAÇÃO, VOCÊ MOVERIA PARA A LINHA QUE DESEJA ALTERAR E:<%objRS("Nome") = "wallace"objRS("Idade") = 20objRS.Update%>pode ser assim tambem...Vai ter que estudar um tantinho.Executar ="UPDATE TABELA SET letras = "&letra&" WHERE nomes like '%"& LerNome &"%' " db.Execute(Executar)'-------------------------------------------ler="select * from tabela"rs.open ler,db,3,3 db.Execute(Executar)'----------------------------------------------------------DELETAR.......y = "DELETE * from imbox where id like '%"&id&"%' " Set rs = conexao.execute(y)......----------------------------------------------------------------------

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ações em Bancos de dados Nessa coluna, mostrarei as ações em Bancos de dados que são usadas em todas (ou quase todas) aplicações ASP (SELECT, INSERT, UPDATE, DELETE).Antes de tudo, vamos esclarecer que, para quase todas as colunas, eu usarei o Microsoft Access como Banco de dados, mas é bom deixar claro que o ASP suporta inúmeros Bancos de dados.Vamos começar montando o Banco de dados, abra o seu Microsoft Access crie um novo Banco de dados com o nome "teste.mdb" e, no modo estrutura, monte uma tabela simples, com os seguintes campos:. ID - Autonumeração (chave primária);. nome - Texto de 30 caracteres;. idade - Texto de 3 caracteres;. sexo - Texto de 10 caracteres.Salve essa tabela com o nome de "Teste".Feito isso, insira, manualmente, alguns valores à tabela, mas lembre-se, o campo "ID" é autonumeração e o valor inserido automaticamente pelo Access, lembre-se também de inserir valores em todos os campos, assim, os testes funcionaram corretamente.Conexão com o Banco de dadosA conexão com um Banco de dados, em ASP, é uma coisa simples, abaixo vai um exemplo comentado, você logo irá entender como funciona:Dim ConexaoDim StrCon' definindo variáveisSet Conexao = Server.CreateObject("ADODB.CONNECTION")' Objeto de conexãoStrCon ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("teste.mdb")' caminho físico do Banco de dadosConexao.Open StrCon' abrindo o Banco de dadosCaso ainda não tenha entendido o script acima, aqui vai, linha por linha uma explicação mais detalhada:. 1ª e 2ª linhas: Nessas linhas nós definimos a variável "Conexao", que logo após será definida como o objeto de conexão, e a variável "StrCon", que logo após será definida como a String de conexão, ou seja, a linha que indica o caminho físico do Banco de dados;. 3ª linha: Definição da variável "Conexão" como objeto que faz a conexão com o Banco de dados;. 4ª linha: Definição da variável "StrCon" como String de conexão do Banco de dados;. 5ª linha: Abrindo o Banco de dados.Importante: Nunca se esqueça de, no começo da aplicação, abrir a conexão com o Banco de dados e, no final, fechar a conexão, com Conexao.Close.Comando SELECTBem, basicamente, o comando SELECT serve para selecionar um ou todos os campos de uma determinada tabela do Banco de dados, é importante lembrar que, para esse comando funcionar corretamente, você precisa usar um RecordSet. Utilizando o nosso Banco de dados teste.mdb e a tabela Teste irei mostrar quatro exemplos comentados e explicados para você: O primeiro mostra como retornar o primeiro registro de uma tabela, no segundo você irá ver como retornar todos os registros de uma tabela, no terceiro exemplo mostrarei como selecionar os resultados que deseja ver através da cláusula "WHERE", e no quarto e último exemplo, como ordenar os resultados, através da cláusula "ORDER BY".1º exemplo:<%Dim RsDim ComandoSQLComandoSQL = "SELECT id, nome FROM Teste"Set Rs = Conexao.Execute(ComandoSQL)If NOT Rs.EOF Then%><%= Rs("id") %> - <%= Rs("nome") %><% end if %>Nesse exemplo, nós selecionamos os campos ID e nome da tabela Teste, mas apenas o primeiro valor inserido na tabela será retornado ao usuário. Caso queira selecionar todos os campos da tabela, troque a quarta linha do script por: "SELECT * FROM Teste". Você também pode colocar, antes do <% end if %> o <% else %> seguido de uma mensagem de erro do tipo: "Nada foi encontrado", caso queira saber e/ou informar quando nenhum resultado foi retornado na seleção.2º exemplo:<%Dim RsDim ComandoSQLComandoSQL = "SELECT id, nome FROM Teste"Set Rs = Conexao.Execute(ComandoSQL)While NOT Rs.EOF%><%= Rs("id") %> - <%= Rs("nome") %> <br><%Rs.MoveNextWend%>Note o principal desse exemplo: While... Rs.MoveNext... Wend. "Traduzindo" o que isso quer dizer: Enquanto não chegar o fim do arquivo (NOT Rs.EOF) selecione e vá para o próximo (Rs.MoveNext), ao fim disso, imprima os resultados na tela. Esse exemplo exibe todos os valores dos campos "id" e "nome" que foram inseridos na tabela.3º exemplo:<%Dim RsDim ComandoSQLComandoSQL = "SELECT id, nome FROM Teste WHERE nome LIKE 'J%'"Set Rs = Conexao.Execute(ComandoSQL)If NOT Rs.EOF Then%><%= Rs("id") %> - <%= Rs("nome") %><% end if %>Aqui retornaremos o primeiro valor em que "nome" tenha a primeira letra igual a "J", nesse caso você também pode usar o "While" para mostrar todos os valores do campo "nome" que tenham a primeira letra igual a "J". Na clausula where você também pode usar os seguintes sinais: = (igual a) > (maior que) < (menor que) <> (diferente de).4º exemplo:<%Dim RsDim ComandoSQLComandoSQL = "SELECT id, nome FROM Teste ORDER BY id"Set Rs = Conexao.Execute(ComandoSQL)While NOT Rs.EOF%><%= Rs("id") %> - <%= Rs("nome") %> <br><%Rs.MoveNextWend%>A cláusula "ORDER BY" é, geralmente, usada com "While" ao invés de "If", ela serve para ordenar os resultado de uma consulta através de um determinado campo da tabela. No exemplo acima, os resultados iriam aparecer na seguinte ordem:ID 1ID 2ID 3E por aí vai, mas caso queira mostrar os resultados invertidos (do 3 ao 1) troque a quarta linha por ComandoSQL = "SELECT id, nome FROM Teste ORDER BY id DESC". "DESC" inverte a ordem dos resultados.Comando INSERTServe para inserir dados em tabelas do Banco de dados, os dados inseridos podem vir de formulários (maiores esclarecimentos na coluna "Passando informações entre páginas"), de variáveis ou um valor qualquer determinado pelo usuário:<%Dim ComandoSQLComandoSQL = "INSERT INTO Teste(nome, idade, sexo) VALUES(Julio, 15, Masculino)"Conexao.Execute(ComandoSQL)%>Como deve ter notado, o INSERT não retorna valores aos usuários, portanto, não precisa de um Record Set(Rs). No exemplo acima, você irá inserir na tabela "Teste" nos campos "nome, idade, sexo" os valores "Julio, 15, Masculino" nessa ordem.Comando UPDATEEsse comando é muito fácil de utilizar, assim como o "INSERT". Serve para atualizar dados de uma tabela do Banco de dados. Caso queira atualizar todos os dados de um campo da tabela não use a cláusula WHERE, caso queira atualizar apenas um ou alguns, use a cláusula WHERE:<%Dim ComandoSQLComandoSQL = "UPDATE Teste SET nome = Adriano WHERE ID = 1"Conexao.Execute(ComandoSQL)%>No script acima, nós iremos alterar o nome equivalente ao ID 1 (seja ele qual for) para "Adriano", caso quiséssemos alterar todos os campos nome para "Adriano", teríamos que tirar a cláusula WHERE.Comando DELETEEstá claro para que serve esse comando, não? Para apagar valores de tabelas do Banco de dados. Sem maiores explicações, vamos ao exemplo:<%Dim ComandoSQLComandoSQL = "DELETE * FROM Teste WHERE ID = 1"Conexao.Execute(ComandoSQL)%>Acima, apagaremos todos os campos da tabela, aonde o ID = 1. Caso queira apagar todos os itens da tabela, retire a cláusula WHERE.Considerações finaisPara usar valores que venham de outras páginas em quaisquer exemplos acima, você deve separá-las do script, usando '"&...&"', por exemplo:ComandoSQL = "DELETE * FROM Teste WHERE ID = '"& request.form("nome_do_campo) &"'"O mesmo deve ser feito com sessions e com variáveis.Isso é tudo por enquanto. Espero que tenham gostado, até a próxima!Autor: Julio Schneider - (julioschneider@infosquad.net)

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.