VISUAL BASIC

En el siguiente formulario se realiza un pequeño ejemplo de un mantenimiento con procedimientos almacenados realizados en sql server 2008.

 

Luego se realiza el siguiente código:

OBJETO: GENERAL                  EVENTO: DECLARACIONES 

Imports System.Data

Imports System.Data.SqlClient

OBJETO: Form1                 EVENTO: DECLARACIONES 

    Dim da As New SqlDataAdapter("select * from categoria", cn)

CREAR LA FUNCION LIMPIAR:

    Sub limpiar()

        Dim con As Control

        For Each con In Me.Panel1.Controls

            If TypeOf con Is TextBox Then con.Text = ""

        Next

    End Sub

CREAR LA FUNCION HABILITAR:

    Sub habilitar(ByVal dito As Boolean)

        Me.BTNNUEVO.Enabled = dito

        Me.BTNEDITAR.Enabled = dito

        Me.BTNGUARDAR.Enabled = Not dito

        Me.BTNBUSCAR.Enabled = dito

        Me.BTNCANCELAR.Enabled = Not dito

        Me.BTNSALIR.Enabled = dito

        Me.Panel1.Enabled = Not dito

    End Sub

CREAR LA FUNCION LIMPIAR:

    Sub cargardatos()

        Dim cmd As New SqlCommand("UspListarcat", cn)

        cmd.CommandType = CommandType.StoredProcedure

        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)

    End Sub

   

OBJETO: Form1                 EVENTO: LOAD

        habilitar(True)

        cargardatos()

        Me.Width = 382

        Me.TXTCOD.Enabled = False

        DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

OBJETO: BTNNUEVO                EVENTO: CLICK

        TXTCOD.Text = generar("CATEGORIA", "COD_CAT")

        habilitar(False)

        limpiar()

        Me.TXTNOM.Focus()

OBJETO: BTNEDITAR               EVENTO: CLICK

        BTNGUARDAR.Text = "ACTUALIZAR"

        If Me.TXTCOD.Text.Trim = "" Then

            MessageBox.Show("seleccione la categoria a modificar", "SELECCIONE", MessageBoxButtons.OK, _

            MessageBoxIcon.Exclamation)

        Else

            habilitar(False)

        End If

OBJETO: BTNGUARDAR                EVENTO: CLICK

        If Me.BTNGUARDAR.Text.Length < 10 Then

            Try

                Dim cmd As New SqlCommand("uspGuardarcat", cn)

                cmd.CommandType = CommandType.StoredProcedure

                cmd.Parameters.Add(New SqlParameter("@cod_CAT", SqlDbType.Char, 10, ParameterDirection.Input)).Value = (TXTCOD.Text).ToUpper

                cmd.Parameters.Add(New SqlParameter("@NOM_CAT", SqlDbType.NVarChar, 50, ParameterDirection.Input)).Value = (TXTNOM.Text).ToUpper

                BTNGUARDAR.Text = "GUARDAR"

                cn.Open()

                cmd.ExecuteNonQuery()

                MessageBox.Show("La Categoria se Guardó con Éxito", "GUARDAR", MessageBoxButtons.OK, _

                MessageBoxIcon.Information)

            Catch ex As Exception

                MessageBox.Show("Error al Guardar la Categoria", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Finally

                cn.Close()

            End Try

        Else

            Try

                Dim cmd As New SqlCommand("USPMODIFICARCAT", cn)

                cmd.CommandType = CommandType.StoredProcedure

                cmd.Parameters.Add("@cod_cat", SqlDbType.Char, 10).Value = Me.TXTCOD.Text.ToUpper

                cmd.Parameters.Add("@Nom_cat", SqlDbType.NVarChar, 50).Value = Me.TXTNOM.Text.ToUpper

                If cn.State = ConnectionState.Open Then cn.Close()

                cn.Open()

                cmd.ExecuteNonQuery()

                MessageBox.Show("La Categoria se Modificó con Éxito", "MODIFICAR", MessageBoxButtons.OK, _

                MessageBoxIcon.Information)

                Me.BTNGUARDAR.Text = "GUARDAR"

            Catch ex As Exception

                MessageBox.Show("Error al Modificar la categoria", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Finally

                If cn.State = ConnectionState.Open Then cn.Close()

            End Try

        End If

        limpiar()

        habilitar(True)

OBJETO: BTNBUSCAR                EVENTO: CLICK

        Me.TXTBUSCAR_TextChanged(sender, e)

        Me.Width = 755

        Me.TXTBUSCAR.Focus()

OBJETO: BTNCANCELAR                EVENTO: CLICK

        habilitar(True)

        limpiar()

        TXTCOD.Text = ""

OBJETO: TXTBUSCAR               EVENTO: TEXTCHANGE

        Dim cmd As New SqlCommand("UspFiltrarprod", cn)

        cmd.CommandType = CommandType.StoredProcedure

        cmd.Parameters.Add("@nom_cat", SqlDbType.VarChar, 50).Value = Me.TXTBUSCAR.Text

        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)

        Me.DataGridView1.DataSource = dt

   

OBJETO: DataGridView1                EVENTO: CLICK

        Dim Pos As Integer

        Pos = DataGridView1.CurrentRow.Index

        DataGridView1.Rows(Pos).Selected = True

        Me.TXTCOD.Text = DataGridView1.Rows(Pos).Cells(0).Value

        Me.TXTNOM.Text = DataGridView1.Rows(Pos).Cells(1).Value

        Me.Width = 382

   

OBJETO: BTNSALIR                EVENTO: CLICK

            Close()

CREAR UN MODULO EN EL CUAL IRA LA CONEXION A LA BASE DE DATOS

Imports System.Data.SqlClient

Imports System.Data

Module Conexion

    Public daproductos As New SqlDataAdapter("select * from CLIENTE", cn)

    Public ds As New DataSet

    Public cn As New SqlConnection("data source=(local);integrated security=true;initial catalog=lavanderia")

Public Function generar(ByVal nombretabla As String, ByVal campogenera As String)

        Dim dagenerar As New SqlDataAdapter

        Dim dsge As New DataSet

        Dim codigogenerado As String = ""

        dagenerar.SelectCommand = New SqlCommand

        With dagenerar.SelectCommand

            .Connection = cn

            .CommandType = CommandType.Text

            .CommandText = "select max(" & campogenera & ") from " & nombretabla.Trim

        End With

        Try

            cn.Open()

            dagenerar.Fill(dsge, "codigo")

            cn.Close()

            codigogenerado = (dsge.Tables("codigo").Rows(0)(0)).ToString

            If codigogenerado <> "" Then

                codigogenerado = dsge.Tables("codigo").Rows(0)(0)

                codigogenerado = Left(codigogenerado, 7 - CStr(Val(Right(codigogenerado, 7) + 1)).Length) & CStr(Val(Right(codigogenerado, 7)) + 1)

            Else

                codigogenerado = CStr(Left(nombretabla, 3).ToUpper) & "0001"

            End If

        Catch EX As Exception

            MsgBox(EX.Message)

        End Try

        Return codigogenerado

    End Function

End Module

DISEÑAR EL SIGUIENTE FORMULARIO:



Este codigo sirve para programar la hora en la que deseas que se apague tu computadora.

OBJETO: BTNSALIR                EVENTO: CLICK

Imports System.Data.SqlClient

Public Class apagarcom

    Inherits System.Windows.Forms.Form

   

OBJETO: BTNSTART               EVENTO: CLICK

        Me.CmdStart.Enabled = False

        Me.CmdParar.Enabled = True

        Me.txtHora.Enabled = False

        Me.txtMinutos.Enabled = False

        Timer1.Enabled = True

        Timer1.Start()

   

OBJETO: BTNSTOP             EVENTO: CLICK

        If CType(Me.txtHora.Text, Int32) = CType(Date.Now.Hour, Int32) Then

            If CType(Me.txtMinutos.Text, Int32) = CType(Date.Now.Minute, Int32) Then

                Shutdown()

            End If

        End If

       

OBJETO: TIMER1                        EVENTO: TICK

        If CType(Me.txtHora.Text, Int32) = CType(Date.Now.Hour, Int32) Then

            If CType(Me.txtMinutos.Text, Int32) = CType(Date.Now.Minute, Int32) Then

                Shutdown()

            End If

        End If

       

OBJETO: FORM 2             EVENTO: LOAD

        Me.txtHora.Text = CStr(Date.Now.Hour.ToString)

        Me.txtMinutos.Text = CStr(Date.Now.Minute.ToString)

Espero que les haya servido en algo estos pequeños codigos