Através deste código você poderá implementar em seu site um livro de visitas usando com VB.NET e Access.
Essa página foi criada no Visual Studio 2005, por isso o projeto está em anexo.
Caso você também utilize Visual Studio 2005, copie as pasta Project e Websites para a sua pasta do
Visual Studio onde salva os projetos, normalmente na instalaçao é na pasta Meus documentosVisual Studio 2005
Ola Caro amigo desenvolvedor, para fazer um teste nesse script, copie o arquivo livro.mdb para o c:, mas se for colocar no servidor,
na página Default.aspx.vb onde esta o datasource=C:livro.mdb, mude para datasource=livro.mdb.
Baixe o arquivo ZIP para ter a versão completa do código.
ARQUIVO Default.aspx.vb
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbCommand
Imports System.Data.OleDb.OleDbConnection
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strConexao As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:livro.mdb")
End Sub
' sub limpa controle é um procedimento, se mais de uma vez for limpar os controles voce nao precisar ficar digitando toda ora
Sub limpaControles()
txtnome.Text = ""
txtmail.Text = ""
txtorkut.Text = ""
txtmensagem.Text = ""
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' cria a conexao
Dim strConexao As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:livro.mdb")
'confere se tem alguma coisa escrita no nome
If txtnome.Text <> "" Then
'se tiver entao faça isso
Dim strSQL As String = "Insert into livro (nome, email, orkut, mensagem) Values(@nome, @mail, @orkut, @mensagem)" 'seleciona a tabela e os campos
Dim s As String = "selct * from livro (nome) values(@nome)" ' chave/indice
Dim conexao As New OleDbConnection(strConexao)
Dim Cmd As New OleDbCommand(strSQL, conexao)
Cmd.Parameters.Add(New OleDbParameter("@nome", txtnome.Text)) 'nome é igual ao que esta escrito na caixa de txtnome
Cmd.Parameters.Add(New OleDbParameter("@mail", txtmail.Text)) 'email
Cmd.Parameters.Add(New OleDbParameter("@orkut", txtorkut.Text)) 'link do orkut
Cmd.Parameters.Add(New OleDbParameter("@mensagem", txtmensagem.Text)) ' mensagem
conexao.Open()
Cmd.ExecuteNonQuery()
conexao.Close()
Response.Write("Informações gravadas com sucesso !")
limpaControles()
' senao tiver escreva na tela: preencha o campo
Else
Response.Write("Preencha o campo")
End If
End Sub
End Class
