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