Projeto final

O comando IMPORTS será utilizado para carregar o biblioteca de dados para a aplicação, que será criada. Imports System.Data.SqlClient Será responsável por definir as aplicações do SQLcliente

deverá ser inserido na primeira linha de código da aplicação em VB.

Partial Class _Default Inherits System.Web.UI.Page

Protected Sub Btgravar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btgravar.Click Dim conn As String = pegar a linha de comando no connection string Dim conexao As New SqlConnection(conn) – Cria uma nova conexão SQL Dim sql As String – Defini a variável que será usada para criação do SQL de comunicação sql = "insert into cliente(id,nome,sexo,idade,salario)" sql = sql & "values (@id,@nome,@sexo,@idade,@salario)" A variável abaixo será utilizada para startar o meu SQL comando Dim busca As New SqlCommand(sql, conexao) Definir as variáveis que virão do formulário Os parâmetros serão adicionados pelo @ seguido do nome da variável utilizada no SQL busca.Parameters.Add(New SqlParameter("@id", Val(txid.Text))) busca.Parameters.Add(New SqlParameter("@nome", txnome.Text)) busca.Parameters.Add(New SqlParameter("@sexo", txsexo.Text)) busca.Parameters.Add(New SqlParameter("@idade", Val(Txidade.Text))) busca.Parameters.Add(New SqlParameter("@salario", Cdbl(txsalario.Text))) Após a passagem de parâmetro deverá ser aberta a conexão conexao.Open() busca.ExecuteNonQuery() - ExecuteNonQuery será utilizado para as opções de insert, delete ou uptade conexao.Close() End Sub Botão consultar Protected Sub Btconsultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btconsultar.Click Dim conn As String = Idem ao botão de incluir Dim conexao As New SqlConnection(conn) Dim sql As String Dim busca As New