Baixe VBScript: Manipulação de Bancos de Dados - Registros, Consultas SQL e Cookies e outras Notas de estudo em PDF para Informática, somente na Docsity!
**Adicionando um novo registro ao banco de dados cadastro
<% 'a variavel abaixo - Connstring - guarda o path físico do banco de dados no servidor. poderia armazenar, no lugar do path, o nome da conexão ODBC, caso esta tenha sido criada (como será visto no próximo exemplo) ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open ConnString,"","" RS.Open "cadastro", Conn , adOpenKeyset, adLockOptimistic RS.Addnew RS("nome") = "João" 'a linha acima atribui o valor João ao campo nome, nesse novo registro. RS("email") = "[email protected]" 'a linha acima atribui o valor [email protected] ao campo email do banco de dados. RS.update 'a linha acima confirma a inclusão dos dados. Caso este comando não seja usado, o registro não é inserido. RS.Close Set Conn = nothing Set RS = nothing %>
Pronto. Foi gravado o registro acima.
Adicionando um novo registro ao banco de dados cadastro usando ligação ODBC
<% 'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a necessidade de a ligação ODBC já estar criada). ConnString="odbcteste" Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open ConnString,"","" RS.Open "cadastro", Conn , adOpenKeyset, adLockOptimistic RS.Addnew RS("nome") = "João" 'a linha acima atribui o valor João ao campo nome, nesse novo registro. RS("email") = "[email protected]" 'a linha acima atribui o valor [email protected] ao campo email do banco de dados. RS.update 'a linha acima confirma a inclusão dos dados. Caso este comando não seja**
**usado, o registro não é inserido. RS.Close Set Conn = nothing Set RS = nothing %>
Pronto. Foi gravado o registro acima.
Fazendo uma consulta SQL e mostrando os dados obtidos em uma tabela
<% 'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a necessidade de a ligação ODBC já estar criada). ConnString="odbcteste" 'a variável abaixo guarda a string SQL, usada para fazer a consulta no banco de dados. No caso, pede-se para gerar uma consulta onde apenas os registros onde o campo NOME é igual ao valor JOÃO. SQLstring = "select * from cadastro where nome = 'joão' " Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString,"","" Set rsQuery = Conn.Execute(SQLstring) 'a linha acima gerou uma consulta chamada rsQuery. todos os registros que satisfazem a SQLstring estão armazenados nesta variável. %>
Nomeemail <% While not rsQuery.EOF %> <%=rsQuery("nome").value%><%=rsQuery("email").value%>
<% rsQuery.Movenext Wend %>
<% rsQuery.Close set Conn = nothing Set rsQuery = nothing %>
Fazendo uma alteração via SQL
<% 'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a necessidade de a ligação ODBC já estar criada). ConnString="odbcteste"**
REMOTE_ADDR IP do usuário
REMOTE_HOST
Nome do servidor correspondente ao REMOTE_ADDR (nome do provedor de acesso do usuário)
REQUEST_METHOD Método usado para transmissão das variáveis de uma página para outra (GET ou POST)
SERVER_NAME Nome do servidor de hospedagem, como usado no URL (pode ser o IP ou DNS) URL endereço URL requisitado (sem a query_string)
Veja os exemplos a seguir: **Server Variables
o IP usado pela sua conexão é: <%=request.servervariables("REMOTE_ADDR")%>
**
clique aqui para rodar a rotina acima
Cookies
Cookies são pequenos arquivos no formato txt, gravados nos computadores dos usuários, contendo informações que podem ser recuperadas posteriormente.
sintaxe:
gravação de informações no cookie:
response.cookies("nomedocookie")("nomedoparametro") = "valordoparâmetro" recuperação de informações do cookie: variável = request.cookies("nomedocookie")("nomedoparametro") determinação da data de expiração do cookie: Response.Cookies("nomedocookies").Expires = data no formato mm/dd/aa obs: caso não seja determinada uma data de expiração, o cookie será apagado assim que o browser for fechado. Veja os exemplos a seguir: **<% response.cookies("aspbrasilteste")("data") = now response.cookies("aspbrasilteste")("nome") = "João" 'as linhas acima criaram o cookie aspbrasil e 2 parâmetros, data e nome. response.cookies("aspbrasilteste").expires = "6/25/99" 'a linha acima determina uma data de expiração do cookie %> Criando um cookie
<% response.write "O cookies aspbrasilteste foi criado em: " & request("aspbrasilteste")("data") response.write "Quem criou foi: " & request("aspbrasilteste")("nome")**
clique aqui para rodar o código acima
Objetos Application e Session
O objeto Application foi criado para armazenar propriedades (valores) ligados a um conjunto de usuários. No caso, os visitantes do site, de um modo geral. Como exemplo, podemos citar o número total de visitantes no site a partir de uma determinada data, ou o número de visitantes online no site. O objeto Session foi criado para armazenar propriedades (valores) ligados a cada visitante, individualmente. Como exemplo, podemos citar o carrinho de compras de um site de comércio online. Uma Session é criada quando o visitante entra no site (cada visitante tem uma session e cada session recebe um ID), e é destruída quando o visitante sai do site (seja por logoff explícito ou por TimeOut). Já uma Application é iniciada ao haver o primeiro pedido de acesso ao objeto Application, e é encerrado quando o servidor for desligado. Todo o código que se deseja executar ao criar ou destruir uma session, bem como uma Application devem estar contidos no arquivo global.asa, um arquivo texto no formato abaixo demonstrado, que deve ser colocado no diretório raiz do site. As variáveis do objeto Application e do objeto Session são armazenadas no servidor, mas é necessário que o browser aceite cookies, pois um cookie com o ID da sessão é criado no computador do visitante, para identificá-lo.
Veja o exemplo abaixo:
Listagem do arquivo global.asa
** com um algorítimo. Existem dois tipos de Procedures, as Subs e as Functions. Observe os
exemplos abaixo:
** <% Function soma(valor1,valor2) If valor1 = "" then valor1 = 0 If valor2 = "" then valor2 = 0 soma = valor1 + valor End Function 'acima, a função denominada soma foi apresentada 'abaixo, uma chamada à função foi feita. Então a função executa a rotina e retorna um determinado valor, no caso 5.**
response.write soma(2,3) %> clique aqui para rodar o código acima
Já uma Sub simplesmente executa uma ação, não retornando valor algum.
** <% Sub visualizar_nome(nome) response.write "O nome do site é: " & nome End Sub 'acima, a procedure do tipo Sub foi denominada visualizar_nome**
response.write "Qual é o site sobre ASP que oferece Tutoriais, Newsgroups e Links a seus visitantes?" Call visualizar_nome("ASPBRASIL") response.write "Home" 'acima, o comando Call faz a chamada à Sub visualizar_nome. Como pode-se perceber, uma Sub não retorna nenhum valor, e sim executa uma ação.
**%> **
clique aqui para rodar o código acima
If...Then...Else ; Select Case
Existem 2 comandos capazes de identificar o conteúdo de uma determinada variável, e de acordo com esse valor, executar uma determinada rotina:
If...Then...Else Select Case
If...Then...Else
O comando If...Then...Else possibilita verificar se uma determinada variável está ou não de acordo com um critério de seleção. Observe o exemplo abaixo:
** <% variavel_qualquer = hour(now) If variavel_qualquer < 19 then response.write "Bom Dia" Else response.write "Boa Noite" End if 'o comando IF...then...Else comparou o valor da variavel variavel_qualquer com um determinado valor estipulado (no caso, 19). Se o valor for menor que 19, então escreva na tela "Bom Dia". Caso contrário (Else), "Boa Noite" %>**
, clique aqui para rodar o código acima
Select Case
O comando Select Case permite um maior controle sobre os valores de uma determinada variavel. Observe o Exemplo Abaixo:
** <% variavel_qualquer = hour(now) Select Case variavel_qualquer case 0,1,2,3,4,5,6,7,8,9,10,11, response.write "Bom Dia" case 13,14,15,16,17,18, response.write "Boa Tarde" case 20,21,22,23, response.write "Boa Noite" Case else response.write "Este relógio está maluco" End Select %> observe que o comando Select Case deve ser fechado com o comando End Select.**
clique aqui para rodar o código acima
If...Then...Else ; Select Case
Existem 2 comandos capazes de identificar o conteúdo de uma determinada variável, e de acordo com esse valor, executar uma determinada rotina:
Existem 2 comandos capazes de identificar o conteúdo de uma determinada variável, e de acordo com esse valor, executar uma determinada rotina:
If...Then...Else Select Case
If...Then...Else
O comando If...Then...Else possibilita verificar se uma determinada variável está ou não de acordo com um critério de seleção. Observe o exemplo abaixo:
** <% variavel_qualquer = hour(now) If variavel_qualquer < 19 then response.write "Bom Dia" Else response.write "Boa Noite" End if 'o comando IF...then...Else comparou o valor da variavel variavel_qualquer com um determinado valor estipulado (no caso, 19). Se o valor for menor que 19, então escreva na tela "Bom Dia". Caso contrário (Else), "Boa Noite" %>**
clique aqui para rodar o código acima
Select Case
O comando Select Case permite um maior controle sobre os valores de uma determinada variavel. Observe o Exemplo Abaixo:
** <% variavel_qualquer = hour(now) Select Case variavel_qualquer case is > 0 and qualquer_variavel < 12 response.write "Bom Dia" case os > 12 and qualquer_variavel < 19 response.write "Boa Tarde" case > 19 and qualquer_variavel < 24 response.write "Boa Noite" Case else response.write "Este relógio está maluco" End Select %> observe que o comando Select Case deve ser fechado com o comando End Select.**
clique aqui para rodar o código acima
Rotinas de Loop
Loops são rotinas que devem ser repetidas até que uma determinada condição seja satisfeita. Existem 3 comandos que permitem tal situação:
Do...Loop For...Next While...Wend
Abaixo seguem as características e exemplos de cada comando.
Do...Loop O comando Do...Loop executa uma determinada rotina até que a condição se torne verdadeira. Observe o exemplo abaixo:
** <% x = 0 Do Until x= x = x + 1 Loop response.write x %>**
para interromper o Loop, usa-se o comando Exit Do
clique aqui para rodar o código acima
For...Next
O comando For...Next executa uma determinada rotina até que o contador (uma variável) atinja o valor determinado. Observe o exemplo:
** <% For i=1 to 50 response.write i next %> observe que não é necessário nenhuma rotina de incrementação de valores em i. A cada ciclo, o valor de i é acrescido de uma unidade, automaticamente.** para interromper o Loop, usa-se o comando Exit For
clique aqui para rodar o código acima
While...Wend
response.write i next %> observe que não é necessário nenhuma rotina de incrementação de valores em i. A cada ciclo, o valor de i é acrescido de uma unidade, automaticamente. para interromper o Loop, usa-se o comando Exit For
clique aqui para rodar o código acima
While...Wend
O comando While...Wend executa uma determinada rotina até que a condição imposta seja alcançada. Observe o exemplo dado:
** <% q = "SELECT * FROM cadastro where cidade = 'São Paulo'" connstring = "DBQ=c:\teste.mdb;Driver={Microsoft Access Driver (.mdb)}" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open connstring, "","" Set tabela = Conexao.Execute (q) While not tabela.EOF response.write tabela("nome").value wend %> Rotinas de Loop*
Loops são rotinas que devem ser repetidas até que uma determinada condição seja satisfeita. Existem 3 comandos que permitem tal situação:
Do...Loop For...Next While...Wend
Abaixo seguem as características e exemplos de cada comando.
Do...Loop
O comando Do...Loop executa uma determinada rotina até que a condição se torne verdadeira. Observe o exemplo abaixo:
** <% x = 0 Do Until x= x = x + 1 Loop response.write x %>**
para interromper o Loop, usa-se o comando Exit Do clique aqui para rodar o código acima
For...Next
O comando For...Next executa uma determinada rotina até que o contador (uma variável) atinja o valor determinado. Observe o exemplo:
** <% For i=1 to 50 response.write i next %> observe que não é necessário nenhuma rotina de incrementação de valores em i. A cada ciclo, o valor de i é acrescido de uma unidade, automaticamente.**
para interromper o Loop, usa-se o comando Exit For
clique aqui para rodar o código acima
While...Wend
O comando While...Wend executa uma determinada rotina até que a condição imposta seja alcançada. Observe o exemplo dado:
** <% q = "SELECT * FROM cadastro where cidade = 'São Paulo'" connstring = "DBQ=c:\teste.mdb;Driver={Microsoft Access Driver (.mdb)}" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open connstring, "","" Set tabela = Conexao.Execute (q) While not tabela.EOF response.write tabela("nome").value wend %>*
Tipos de Dados
O VBScript contém apenas um tipo de variável, denominado Variant. O tipo variant pode armazenar qualquer tipo de dado, e de acordo com o tipo de dados que é armazenado, é possível classifica-lo de acordo com os subtipos de dados, abaixo relacionados:
Subtipo Descrição Empty Variável que contém 0 para valores numéricos e "" (string
IsArray - retorna True caso a variável seja um array, caso contrário, retorna False.
sintaxe: IsArray(nomedavariavel)
<% Dim aspbrasil Dim Arraybrasil(5) response.write IsArray(aspbrasil) 'retorna false response.write IsArray(Arraybrasil) 'retorna true %>
IsDate - retorna True caso o valor da variável possa ser convertido em data, caso contrário, retorna False.
sintaxe: IsDate(nomedavariavel)
<% aspbrasil = "23/5/99" aspbrasil2 = "ASPBRASIL" response.write IsDate(aspbrasil) 'retorna true response.write IsDate(aspbrasil2) 'retorna false %>
IsEmpty - retorna True caso a variável contenha o valor 0 ou "", caso contrário, retorna False.
sintaxe: IsEmpty(nomedavariavel)
<% aspbrasil = "" aspbrasil2 = 0 aspbrasil3 = "ASPBRASIL" response.write IsEmpty(aspbrasil) 'retorna true response.write IsEmpty(aspbrasil2) 'retorna true response.write IsEmpty(aspbrasil3) 'retorna false %>
IsNull - retorna True caso a variável não contenha dados válidos.
sintaxe: IsNull(nomedavariavel)
<% aspbrasil = "23/5/99" response.write IsNull(aspbrasil) 'retorna false %>
IsNumeric - retorna True caso o valor da variável possa ser convertido para algum tipo de dados numéricos.
