Nenhuma avalição
COMENTAR
INDICAR
Banco de Dados Access - Parte IIPostada em: 09/09/2004
Olá. Retomando nosso trabalho com ASP/ Ms Access, aprenderemos nessa parte a gravar dados em nosso banco de dados. Primeiramente teremos que ter o pré-requisito de banco de dados, que é a parte I.
Gravando Dados
Nosso banco de dados se chama banco.mdb. Temos uma tabela nele chamada Cadastro
nome - texto
senha - texto
Para gravarmos dados em nossa tabela primeiramente criaremos uma conexão como banco de dados (Parte I)
Nossa String SQL ficará da seguinte forma. Sintaxe:
nome_da_tabela(campo1 ,campo2, ...campox) ("valor1", "valor2", ....valorx)
Vamos criar 2 variaveis onde estão atribuidos 2 valores, 1 de senha e 1 de nome. Logo criaremos a string SQL, para inserirmos no Banco de Dados os dados, ficará assim:
SQL = "INSERT INTO cadastro(nome, senha) VALUES ('\" & nome & \"', '\" & senha & \"')"
Então nosso código ficará assim:
<% Option Explicit
Dim nome, senha
nome = "Felipe"
senha= "alfa"
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "INSERT INTO cadastro (nome,senha) VALUES('\" & nome & \"', '\" & senha & \"')"
Set Rs = Conn.execute(SQL)
%>
Pronto, podemos colocar um response.write para imprimir na página alguma mensagem como: "Os dados foram gravados!!!"
Na próxima parte aprenderemos a deletar dados de nosso Banco de Dados.
Gravando Dados
Nosso banco de dados se chama banco.mdb. Temos uma tabela nele chamada Cadastro
nome - texto
senha - texto
Para gravarmos dados em nossa tabela primeiramente criaremos uma conexão como banco de dados (Parte I)
Nossa String SQL ficará da seguinte forma. Sintaxe:
nome_da_tabela(campo1 ,campo2, ...campox) ("valor1", "valor2", ....valorx)
Vamos criar 2 variaveis onde estão atribuidos 2 valores, 1 de senha e 1 de nome. Logo criaremos a string SQL, para inserirmos no Banco de Dados os dados, ficará assim:
SQL = "INSERT INTO cadastro(nome, senha) VALUES ('\" & nome & \"', '\" & senha & \"')"
Então nosso código ficará assim:
<% Option Explicit
Dim nome, senha
nome = "Felipe"
senha= "alfa"
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "INSERT INTO cadastro (nome,senha) VALUES('\" & nome & \"', '\" & senha & \"')"
Set Rs = Conn.execute(SQL)
%>
Pronto, podemos colocar um response.write para imprimir na página alguma mensagem como: "Os dados foram gravados!!!"
Na próxima parte aprenderemos a deletar dados de nosso Banco de Dados.
