Categorias

Livro de Visitas com Asp.net e Access

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

Arquivos para Download:

livro_de_visitas_em_aspnet.zip