ALTA DE USUARIO
Protected Sub btn_alta_Click(sender As Object, e As EventArgs) Handles btn_alta.Click
Dim cmd As New SqlClient.SqlCommand
Dim con As New SqlClient.SqlConnection("Data Source=PC_CA;Initial
Catalog=Clientes;Integrated Security=True")
con.Open()
cmd
= New SqlCommand("altaCLIENTE", con)
cmd.CommandType
= CommandType.StoredProcedure
cmd.Parameters.Add("@nom", SqlDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@ape", SqlDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@dni", SqlDbType.Int).Value = TextBox3.Text
cmd.ExecuteNonQuery()
con.Close()
End Sub
LISTAR USUARIO
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dt As New DataTable
Dim da As New Data.SqlClient.SqlDataAdapter
Dim n As Integer = 0
da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = New SqlClient.SqlConnection(My.Resources.conn)
da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.CommandText = ("usuarios_list_sp")
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
TextBox1.Text = dt.Rows.Count
Dim cnt As Integer = 0
Dim sum As Double = 0
For Each fila As DataRow In dt.Rows
If fila("usr_usuario") = "gvilas" Then
cnt = cnt + 1
End If
sum = sum + fila("cod_usuario")
Next
TextBox2.Text = cnt
TextBox3.Text = sum
End Sub
