ABM .NET

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