Bueno soy nuevo en este foro asi k aki les dejo algo ojala les interese
utilizamos sql server 2008 .creamos una nueva query y escribimos el siguiente codigoGO
USE master
GO
SET LANGUAGE spanish
GO
IF(DB_ID('ejemplo')IS NOT NULL)
DROP DATABASE ejemplo
GO
CREATE DATABASE ejemplo
GO
USE ejemplo
GO
CREATE TABLE individuo
(dni CHAR(8) PRIMARY KEY,
apellidos VARCHAR(30) NOT NULL,
nombre VARCHAR(30) NOT NULL,
sexo CHAR(1) NOT NULL CHECK (sexo IN('M','F')),
fecnac DATE NOT NULL,
edad tinyint NOT NULL,
salario money)
GO
CREATE proc registrar(@dni CHAR(8),
@ape VARCHAR(30),
@n VARCHAR(30),
@s CHAR(1),
@fn DATE,
@e tinyint,
@sueldo money,
@msj VARCHAR(60)output)
AS BEGIN
IF(NOT EXISTS(SELECT * FROM individuo WHERE dni =@dni ))
BEGIN
INSERT INTO individuo VALUES(@dni,@ape,@n,@s,@fn,@e,@sueldo)
SET @msj ='REGISTRADO'
END
ELSE
--NO EXISTE UNA PERSONA CON EL MISMO DNI
SET @msj ='DNI YA EXISTE'
END
GO
CREATE proc modificar(@dni CHAR(8),
@ape VARCHAR(30),
@n VARCHAR(30),
@s CHAR(1),
@fn DATE,
@e tinyint,
@sueldo money,
@msj VARCHAR(60)output)
AS BEGIN
IF(EXISTS(SELECT * FROM individuo WHERE dni =@dni ))
BEGIN
UPDATE individuo SET apellidos =@ape ,nombre =@n ,sexo =@s ,fecnac =@fn ,edad =@e ,salario =@sueldo WHERE dni =@dni
SET @msj ='Datos modificados'
END
ELSE
SET @msj ='DNI no existe'
END
GO
CREATE proc eliminar(@dni CHAR(8),@msj VARCHAR(60)output)
AS BEGIN
IF(EXISTS(SELECT * FROM individuo WHERE dni =@dni ))
BEGIN
DELETE FROM individuo WHERE dni =@dni
SET @msj ='Datos eliminados'
END
ELSE
SET @msj ='DNI no existe'
END
2_despues de haber hecho el code en sql pasamos a visual
2.1_creamos un nuevo proyecto de tipo solucion(otros tipo de proyecto)
http://img143.imageshack.us/i/53607601.jpg/
2.2_siguiendo nos vamos a herramientas (proyectos y soluciones-general-activamos mostrar solucion siempre)
http://img828.imageshack.us/i/21239949.jpg/
2.3_le damos anticlik ala solucion y agregar nuevo proyecto de tipo biblioteca de clases.(le pondremos por nombre biblioteca)por defecto aparecera una clase ya creada(utilizaremos mas adelante)
http://img203.imageshack.us/i/85722103.jpg/
http://img573.imageshack.us/i/95876910.jpg/
2.4_hacemos lo mismo del paso 2.3 pero esta ves creamos una aplicacion de windows forms llamada formularios
http://img713.imageshack.us/i/38902831.jpg/
2.5_le damos anticlik a biblioteca (agregar ->modulo)y aplicamos el siguiente code
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Public con As New SqlConnection("Data Source=.;DataBase=ejemplo;Integrated Security=true")
Public Sub abrir()
If con.State = 0 Then con.Open()
End Sub
Public Sub cerrar()
If con.State = 1 Then con.Close()
End Sub
End Module
2.6_ahora le damos anticlik ala solucion y propiedades escogemos como proyecto de inicio formularios
http://img200.imageshack.us/i/82265367.jpg/
2.7_le agregamos referencia (anticlik a formularios-agregar referencia.proyectos-boblioteca(unika opcion))y aceptar
http://img256.imageshack.us/i/20827082.jpg/
2.8_entramos a clase 1 escribiremos el code para manejar los procedimientos (registrar-modificar-eliminar)de la BD
Imports System.Data
Imports System.Data.SqlClient
Public Class Class1
Private m_dni, m_ape, m_n, m_s As String
Private m_fn As Date
Private m_edad As Integer
Private m_sueldo As Decimal
Public Property dni() As String
Get
Return m_dni
End Get
Set(ByVal value As String)
m_dni = value
End Set
End Property
Public Property ape() As String
Get
Return m_ape
End Get
Set(ByVal value As String)
m_ape = value
End Set
End Property
Public Property n() As String
Get
Return m_n
End Get
Set(ByVal value As String)
m_n = value
End Set
End Property
Public Property s() As String
Get
Return m_s
End Get
Set(ByVal value As String)
m_s = value
End Set
End Property
Public Property fn() As Date
Get
Return m_fn
End Get
Set(ByVal value As Date)
m_fn = value
End Set
End Property
Public Property edad() As Integer
Get
Return m_edad
End Get
Set(ByVal value As Integer)
m_edad = value
End Set
End Property
Public Property sueldo() As Decimal
Get
Return m_sueldo
End Get
Set(ByVal value As Decimal)
m_sueldo = value
End Set
End Property
Public Function listado()
Dim dt As New DataTable
Dim da As SqlDataAdapter
Try
abrir()
da = New SqlDataAdapter("select *from individuo", con)
da.Fill(dt)
Catch ex As Exception : Throw ex
End Try
cerrar()
Return dt
End Function
Public Function registrar() As String
Dim msj As String
Dim cmd As SqlCommand
Try
'@dni,@idt ,@ape,@nom,@sex,@fn,@fi,@fono,@est
abrir()
cmd = New SqlCommand("registrar", con)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
cmd.Parameters.AddWithValue("@dni", dni)
cmd.Parameters.AddWithValue("@ape", ape)
cmd.Parameters.AddWithValue("@n", n)
cmd.Parameters.AddWithValue("@s", s)
cmd.Parameters.AddWithValue("@fn", fn)
cmd.Parameters.AddWithValue("@e", edad)
cmd.Parameters.AddWithValue("@sueldo", sueldo)
cmd.Parameters.Add("@msj", SqlDbType.VarChar, 30).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
msj = cmd.Parameters("@msj").Value
End With
Catch ex As Exception : Throw ex
End Try
cerrar()
Return msj
End Function
Public Function modificar() As String
Dim msj As String
Dim cmd As SqlCommand
Try
'@dni,@idt ,@ape,@nom,@sex,@fn,@fi,@fono,@est
abrir()
cmd = New SqlCommand("modificar", con)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
cmd.Parameters.AddWithValue("@dni", dni)
cmd.Parameters.AddWithValue("@ape", ape)
cmd.Parameters.AddWithValue("@n", n)
cmd.Parameters.AddWithValue("@s", s)
cmd.Parameters.AddWithValue("@fn", fn)
cmd.Parameters.AddWithValue("@e", edad)
cmd.Parameters.AddWithValue("@sueldo", sueldo)
cmd.Parameters.Add("@msj", SqlDbType.VarChar, 30).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
msj = cmd.Parameters("@msj").Value
End With
Catch ex As Exception : Throw ex
End Try
cerrar()
Return msj
End Function
Public Function eliminar() As String
Dim msj As String
Dim cmd As SqlCommand
Try
'@dni,@idt ,@ape,@nom,@sex,@fn,@fi,@fono,@est
abrir()
cmd = New SqlCommand("eliminar", con)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
cmd.Parameters.AddWithValue("@dni", dni)
cmd.Parameters.Add("@msj", SqlDbType.VarChar, 30).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
msj = cmd.Parameters("@msj").Value
End With
Catch ex As Exception : Throw ex
End Try
cerrar()
Return msj
End Function
End Class
2.9 _despues de haber hecho lo anterior nos vamos al formulario(acomodar la interfaz)Y ESCRIBIMOS EL CODE
http://img41.imageshack.us/i/81843289.jpg/
Imports biblioteca
Public Class Form1
Public p As New biblioteca.Class1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listado()
RadioButton1.Checked = True
End Sub
Sub listado()
Try
DataGridView1.DataSource = p.listado()
Catch ex As Exception : MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
p.dni = TextBox1.Text
p.ape = TextBox2.Text
p.n = TextBox3.Text
If RadioButton1.Checked = True Then
p.s = "M"
Else
p.s = "F"
End If
p.fn = DateTimePicker1.Value
p.edad = TextBox4.Text
p.sueldo = TextBox5.Text
MessageBox.Show(p.registrar())
Catch ex As Exception : MessageBox.Show(ex.Message)
End Try
listado()
limpiar()
End Sub
Sub limpiar()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.ReadOnly = False
TextBox5.Clear()
DateTimePicker1.Value = Now
RadioButton1.Checked = True
TextBox1.Focus()
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Dim ed As Integer
ed = Now.Year - DateTimePicker1.Value.Year
TextBox4.Text = ed
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
p.dni = TextBox1.Text
p.ape = TextBox2.Text
p.n = TextBox3.Text
If RadioButton1.Checked = True Then
p.s = "M"
Else
p.s = "F"
End If
p.fn = DateTimePicker1.Value
p.edad = TextBox4.Text
p.sueldo = TextBox5.Text
MessageBox.Show(p.modificar())
Catch ex As Exception : MessageBox.Show(ex.Message)
End Try
listado()
limpiar()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
p.dni = TextBox1.Text
MessageBox.Show(p.eliminar())
Catch ex As Exception : MessageBox.Show(ex.Message)
End Try
listado()
limpiar()
End Sub
Private Sub DataGridView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
Try
Dim fila As Integer = DataGridView1.CurrentRow.Index
With DataGridView1.Rows(fila)
TextBox1.Text = .Cells(0).Value.ToString
TextBox2.Text = .Cells(1).Value.ToString
TextBox3.Text = .Cells(2).Value.ToString
If .Cells(3).Value.ToString = "M" Then
RadioButton1.Checked = True
Else
RadioButton2.Checked = True
End If
DateTimePicker1.Value = .Cells(4).Value.ToString
TextBox4.Text = .Cells(5).Value.ToString
TextBox5.Text = .Cells(6).Value.ToString
End With
TextBox1.ReadOnly = True
Catch ex As Exception : MessageBox.Show("fila sin datos")
End Try
End Sub
End Class
nota: UTILIZAMOS PROCEDIMIENTOS ,Funciones,Parametros de salida(output)
PARA BUSCAR LOS DATOS SOLO DA CLIK EN CUALQUIERA CELDA .
PARA LIMPIAR LAS CAJAS AGREGA UN LINKLABEL (LE AGREGAS EL CODE(limpiar))
saludos : ojala les sirvaNota del Moderador: Por favor, existe la etiqueta Code, la cual puedes usar sin ningún problema.Gracias.
Emm arreglo los codes por lo que vi es con procedimientos almacenados.. seria bueno que arregles mas las imagenes