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