Projeto final

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (814 palavras )
  • Download(s) : 0
  • Publicado : 15 de novembro de 2011
Ler documento completo
Amostra do texto
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 SQLclientedeverá 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 AsSystem.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 SQLDim 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árioOs 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(NewSqlParameter("@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 AsSystem.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...
tracking img