Protected Sub btn_registar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_registar.Click
Dim ligacao, insere_sql, num
Dim table As DataTable
' Dim cont As Integer
' faz a ligação a base de dados
'**************************************************************************************
' verifica se o que foi digitado na caixa de texto é igual a string de pesquiza
' strsql feita a cima para detectar se o utilizador ja existe ou não na bd
' caso exista faz o seu registo
' caso contrario diz que ja existe
table = ds.Tables.Item(0)
Dim cont As Integer = table.Rows.Count
If cont = 0 Then
ligacao = New SqlConnection("data source=(local);initial catalog=CMPStocks;" & _
"integrated security=SSPI;persist security info=True")
' abre a ligação
ligacao.open()
' faz o sql para inserir cada string inserida no campo respectivo
' da bd
insere_sql = "Insert into TabUtilizador (" & _
" login,Password,[E-Mail], Previlegios )" & _
" values (@login, @password,@mail, @prev)"
' comando pare executar a ligação
Dim comando As SqlCommand = New SqlCommand(insere_sql, ligacao)
' cria as variaveis tipo sql parameter associadas aos respectivos tipos
Dim login As SqlParameter = New SqlParameter("@login", SqlDbType.VarChar)
Dim password As SqlParameter = New SqlParameter("@password", SqlDbType.VarChar)
Dim mail As SqlParameter = New SqlParameter("@mail", SqlDbType.VarChar)
Dim prev As SqlParameter = New SqlParameter("@prev", SqlDbType.VarChar)
'atribui o valor inserido no formulario de cada caixa de texto
' a variavel criada a cima
login.Value = Me.Txtbox_user.Text
password.Value = GeraHash(Me.txtbox_pass.Text)
mail.Value = Me.Txt_Mail.Text
prev.Value = Me.ListBox_tipo_util.Text
' adiciona o valor guardado nessa variavel no respectivo campo da bd
comando.Parameters.Add(login)
comando.Parameters.Add(password)
comando.Parameters.Add(mail)
comando.Parameters.Add(prev)
num = comando.ExecuteNonQuery
' se existir ligação guarda os dados , caso contrario da mesnagem de erro
If num = 1 Then
Me.Label_erro.Visible = True
Me.Label_erro.Text = "O Utilizador " & Me.Txtbox_user.Text & "Foi Registado com sucesso"
Me.Txtbox_user.Text = ""
Me.txtbox_pass.Text = ""
Me.Txt_Mail.Text = ""
Else
Me.Label_erro.Visible = True
Me.Label_erro.Text = " Erro na interligação de dados"
End If
ligacao.close()
Else
Me.Label_erro.Visible = True
Me.Label_erro.Text = " Utilizador ja existente "
End If
End Sub