elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / .NET (C#, VB.NET, ASP) / videos vb-c# con sql server . creacion de instalador. vb 2008 en: 24 Mayo 2014, 18:37 pm



video sql server - vb studio 2008
2  Sistemas Operativos / GNU/Linux / Visual c# en Linux en: 7 Marzo 2012, 16:03 pm
Quien me podria decir como puedo correr una aplicacion hecha en visual studio
2008 (C#) en linux.
se que se puede hacer con monodevelop pero tengo un problema al instalar
este software ya q no tengo experiencia en el manejo de linux (centos)
alguien que podria ser tan amable de pasarme un tutorial de instalacion de
dicho programa en linux .
gracias
3  Programación / .NET (C#, VB.NET, ASP) / Re: Llenar datagrid en c# en: 31 Diciembre 2011, 18:07 pm
Hay una forma mas facil de hacer lo que quieres .

Aki Esta :
supongamos que mi clase se llame alumnos y quiero mostrar los datos
de los alumnos en un datagird entonces yo en mi caso haria esto :

1. ala clase la haria estatica (static)
2. este es mi metodo q me devuelve un datatable

public static datatable listado(){
datatable dt=new datatable();
sqldataadapter da;

// con es mi variable de conexion

//llamamos al metodo abrir conexion o solo abrimos la conexion con sql
abrir();
da=new sqldataadapter("select * from alumno",con)
da.fill(dt);
//ahora cerrarmos la conexion
cerrar();
return dt;

}




//============AHORA EN EL FORMULARIO DONDE STA EL GRID

creamos un void
void llenardatos(){
datagridview1.datasource=akinombredelaclase.nombremetodo.listado();


}


--=========en el evento load del formulario
llenardatos();



//en tu caso llamaria a tu capa.nombredeclase.metodo ,
//debes averle dado referencia
//buenoe so es todo
//ojala te sirva





4  Programación / .NET (C#, VB.NET, ASP) / Re: ¿Como enlazar Sql server con Visual Basic.net 2008? en: 22 Noviembre 2011, 02:03 am
Oe men
si quieres conectar Sql Server con Visual Net usa una cadena de conexion para asi
poder modificar el contenido o registros de las tablas.

 
Codigo de conexion:

--Cabecera
import system.data
import system.data.sqlclient

------

public con as new sqlconnection("Server=.;DataBase=NombreBD;Integrated Security=true");

'el . en la cadena de conexion corresponde a tu servidor con el q entras a SQL
'metodos para abrir conexion

sub abrir
if con.state=0 then
con.open()
end sub

sub cerrar
if con.state=1 then
con.close()
end dub



--ya esta  ahora esos metodos de abrir y cerrar se usan cuando quieres modificar
--las tablas de tu BD ya sea registrando , eliminado,Modificando , etc

AKI UN EJEMPLO UTILIZANDO UNA BD : ejercicio


Código
  1. GO
  2. USE master
  3. GO
  4. IF(DB_ID('ejercicio')IS NOT NULL)
  5. DROP DATABASE ejercicio
  6. GO
  7. CREATE DATABASE ejercicio
  8. GO
  9. USE ejercicio
  10. GO
  11. CREATE TABLE producto (
  12. idp CHAR(3)PRIMARY KEY,
  13. nombre VARCHAR(30)NOT NULL,
  14. procedencia VARCHAR(20)NOT NULL CHECK (procedencia IN('Nacional','Importado')),
  15. precio money,
  16. presentacion VARCHAR(15)NOT NULL CHECK(presentacion IN('Caja','Lata','Bolsa')),
  17. stock INT NOT NULL CHECK(stock >0),
  18. fvencimiento DATE)
  19. GO
  20. CREATE proc registrar(
  21. @idp CHAR(3),
  22. @nombre VARCHAR(30),
  23. @proc VARCHAR(20),
  24. @precio money,
  25. @presen VARCHAR(15),
  26. @stock INT,
  27. @fv DATE,
  28. @msj VARCHAR(60)output)
  29. AS BEGIN
  30. IF(EXISTS(SELECT * FROM producto WHERE idp =@idp ))
  31. SET @msj ='el id '+','+@idp +'Producto ya existe'
  32.   ELSE BEGIN
  33.   INSERT producto VALUES(@idp ,@nombre ,@proc ,@precio ,@presen ,@stock ,@fv )
  34.     SET @msj ='DATOS REGISTRADOS'
  35.   END
  36. END
  37.  
  38.  
  39.  

--ahora el code en visual

Código
  1.  
  2. Imports System.Data
  3. Imports System.Data.SqlClient
  4. Public Class Form1
  5.    Public con As New SqlConnection("Server=.;DataBase=ejercicio;Integrated Security=true")
  6.  
  7.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.        cbxpresentacion.Items.Add("Seleccione") : cbxpresentacion.Items.Add("Caja")
  9.        cbxpresentacion.Items.Add("Lata") : cbxpresentacion.Items.Add("Bolsa")
  10.        rbtnacional.Checked = True
  11.        cbxpresentacion.SelectedIndex = 0
  12.        'para validar meses
  13.        vermes()
  14.  
  15.    End Sub
  16.    Sub abrir()
  17.        If con.State = 0 Then con.Open()
  18.    End Sub
  19.    Sub cerrar()
  20.        If con.State = 1 Then con.Close()
  21.    End Sub
  22.    Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
  23.        If txtcodigo.Text <> "" And txtnombre.Text <> "" And txtprecio.Text <> "" And txtstock.Text <> "" Then
  24.            If cbxpresentacion.SelectedIndex <> 0 Then
  25.                Try
  26.                    Dim cmd As New SqlCommand
  27.                    Dim msje As String = ""
  28.                    abrir()
  29.                    cmd = New SqlCommand("registrar", con)
  30.                    cmd.CommandType = 4
  31.                    With cmd.Parameters
  32.                        .AddWithValue("@idp", txtcodigo.Text)
  33.                        .AddWithValue("@nombre", txtnombre.Text)
  34.                        If rbtnacional.Checked = True Then
  35.                            .AddWithValue("@proc", "Nacional")
  36.                        Else
  37.                            .AddWithValue("@proc", "Importado")
  38.                        End If
  39.                        .AddWithValue("@precio", txtprecio.Text)
  40.                        .AddWithValue("@presen", cbxpresentacion.Text)
  41.                        .AddWithValue("@stock", txtstock.Text)
  42.                        .AddWithValue("@fv", datefv.Value)
  43.                        .Add("@msj", SqlDbType.VarChar, 60).Direction = 2
  44.                        cmd.ExecuteNonQuery()
  45.                        msje = cmd.Parameters("@msj").Value
  46.                        MessageBox.Show(msje)
  47.                        limpiar()
  48.                    End With
  49.                Catch ex As Exception
  50.                End Try
  51.                cerrar()
  52.            Else
  53.                MessageBox.Show("Seleccione Un Indice del Combo")
  54.            End If
  55.        Else
  56.            MessageBox.Show("Llene Cajas")
  57.        End If
  58.    End Sub
  59.    Sub limpiar()
  60.        txtcodigo.Clear() : txtnombre.Clear() : txtprecio.Clear()
  61.        txtstock.Clear()
  62.        rbtnacional.Checked = True
  63.        cbxpresentacion.SelectedIndex = 0
  64.    End Sub
  65.    Sub vermes()
  66.        ',con esto al momento de escoger el valor del datetimepicker
  67.        'el mes se suma 2
  68.        Dim mes As Integer = Now.Month
  69.        datefv.MinDate = New DateTime(Now.Year, mes + 2, Now.Day)
  70.    End Sub
  71.    Private Sub datefv_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datefv.ValueChanged  
  72.        vermes()
  73.    End Sub
  74. End Class
  75.  
  76.  
  77.  

AKI IMAGEN DE FORMULARIO

http://img706.imageshack.us/img706/1684/89998267.jpg


-- dame un me gusta

http://www.facebook.com/pages/Programadores/217326488292716


5  Programación / Programación General / SUBNETEO en: 20 Agosto 2011, 17:09 pm
Alguien por hay no tendra una calculadora para subnetear
osea subnetting
6  Programación / Programación General / chat en visual studio 2005 en: 13 Julio 2011, 18:23 pm
Quisiera que alguien sea tan amable de explicarme como
se puede hacer un chat en visual studio o si tiene ejemplos mucho mejor
gracias de antemano .
7  Programación / PHP / servicio de correo en: 13 Julio 2011, 18:17 pm
Bueno ante todo Hola
quisiera saber si alguien posee ejemplos de como enviar mensajes de correo
desde una pagina hecha en php o jsp.

Ante todo les agradezco mucho
8  Foros Generales / Foro Libre / EXIGENCIAS DE SERVIDORES TIA/EIA , ISO , NFPA en: 5 Abril 2011, 23:12 pm
QUISIERA SABER CUALES SON LAS EXIGENCIAS TIA/EIA , ISO , NFPA
PARA LOGRAR UN DISEÑO CONFIABLE Y FUNCIONAL
DE UN SERVIDOR
SI ALGUIEN TUVIERA TUTOTIALES , O ALGUNA INFORMACION
AVER SI ME LA PUEDE PASAR

ATTE : GRACIAS
9  Programación / Ejercicios / Re: Una idea para nada original.. en: 19 Marzo 2011, 23:49 pm
TU idea esta xevere pero con que lenguajes de programacion quieres
que sean estos ejercicios .
en mi opinion yo prefiero java ya q se aprende mas.
10  Programación / Desarrollo Web / ejercico asp con conexión a sql en: 18 Marzo 2011, 16:44 pm
_Este ejercicio consiste en registrar buscar y modificar datos que se encuentran en una base de datos

_utilizaremos Visual studio 2010
_Sql server 2008
_crearemos un nuevo sitio web
aki la interfaz

http://img13.imageshack.us/i/webfya.jpg/

aki el codigo de sql
Código
  1.  
  2. go
  3. use master
  4. go
  5. if(DB_ID('parcialvidarteDelgad')is not null)
  6. drop database parcialvidarteDelgad
  7. go
  8. create database parcialvidarteDelgad
  9. go
  10. use parcialvidarteDelgad
  11. go
  12. create table tipopelicula(
  13. tipo varchar(14)primary key
  14. )
  15. go
  16. insert tipopelicula values ('DRAMA')
  17. insert tipopelicula values ('Suspenso')
  18. insert tipopelicula values ('Terror')
  19. insert tipopelicula values ('CienciaFiccion')
  20. insert tipopelicula values ('Otros')
  21. go
  22.  
  23. create table pelicula(
  24. id int identity primary key,
  25. nombre varchar(30)unique,
  26. tipo varchar(14)foreign key references tipopelicula,
  27. of date,
  28. stock int
  29. )
  30. go
  31. create proc listartipo(@tipo varchar(30))
  32. as begin
  33. select * from pelicula where tipo =@tipo
  34. end
  35. go
  36. create proc registrar(@n varchar(30),@tipo varchar(14),@añof date,@stock int,@msj varchar(60)output)
  37. as begin
  38. if (exists(select * from pelicula where nombre =@n ))
  39. set @msj ='Ya existe pelicula'
  40. else
  41. begin
  42. insert into pelicula values(@n ,@tipo ,@añof ,@stock )
  43. set @msj ='OK'
  44. end
  45. end
  46. GO
  47. create proc MODIFICAR(@id int,@n varchar(30),@tipo varchar(14),@añof date,@stock int,@msj varchar(60)output)
  48. as begin
  49. if (NOT exists(select * from pelicula where id  =@id  ))
  50. set @msj ='no existe pelicula'
  51. else
  52. begin
  53. update pelicula set nombre =@n ,tipo =@tipo ,añof=@añof ,stock =@stock where id  =@id  
  54. set @msj ='OK'
  55. end
  56. end
  57. go
  58. create proc buscar(@id int)
  59. as begin
  60. select * from pelicula where id =@id
  61. end
  62. go
  63. insert into pelicula values('Odisea','DRAMA','10/10/2010',18)
  64. go
  65.  
  66.  

Ahora el codigo en Vb
nota: activamos en la venta de propiedad ispostback=true en la barra de propiedades del combobox o cbxtipo


Código
  1.  
  2. Imports System.Data
  3. Imports System.Data.SqlClient
  4. Partial Class pagina1
  5.    Inherits System.Web.UI.Page
  6.    Private con As New SqlConnection("Server=.;DataBase=parcialvidarteDelgad;Integrated Security=true")
  7.    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
  8.        Dim cmd As New SqlCommand
  9.        Dim msj As String = ""
  10.        Try
  11.            abrir()
  12.            cmd = New SqlCommand("registrar", con)
  13.            cmd.CommandType = 4
  14.            With cmd.Parameters
  15.                .AddWithValue("@n", txtn.Text)
  16.                .AddWithValue("@tipo", cbxtipo.SelectedValue)
  17.                .AddWithValue("@añof", CDate(txtaño.Text))
  18.                .AddWithValue("@stock", CInt(txtstock.Text))
  19.                .Add("@msj", SqlDbType.VarChar, 60).Direction = 2
  20.            End With
  21.            cmd.ExecuteNonQuery()
  22.            msj = cmd.Parameters("@msj").Value
  23.            MsgBox(msj)
  24.        Catch ex As Exception
  25.            MsgBox(ex.Message)
  26.        End Try
  27.        cerrar()
  28.        limpiar()
  29.    End Sub
  30.    Sub limpiar()
  31.        txtaño.Text = ""
  32.        txtid.Text = ""
  33.        txtn.Text = ""
  34.        txtstock.Text = ""
  35.    End Sub
  36.    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  37.        If Not IsPostBack Then
  38.            listartipos()
  39.        End If
  40.    End Sub
  41.    Sub listartipos()
  42.        Dim dt As New DataTable
  43.        Dim da As SqlDataAdapter
  44.        Try
  45.            abrir()
  46.            da = New SqlDataAdapter("select * from tipopelicula", con)
  47.            da.Fill(dt)
  48.            cbxtipo.DataValueField = "tipo"
  49.            cbxtipo.DataTextField = "tipo"
  50.            cbxtipo.DataSource = dt
  51.            cbxtipo.DataBind()
  52.        Catch ex As Exception
  53.            MsgBox(ex.Message)
  54.        End Try
  55.        cerrar()
  56.    End Sub
  57.    Sub abrir()
  58.        If con.State = 0 Then con.Open()
  59.    End Sub
  60.    Sub cerrar()
  61.        If con.State = 1 Then con.Close()
  62.    End Sub
  63.  
  64.  
  65.  
  66.  
  67.    Protected Sub cbxtipo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxtipo.SelectedIndexChanged
  68.        Dim dt As New DataTable
  69.        Dim da As SqlDataAdapter
  70.        Try
  71.            abrir()
  72.            da = New SqlDataAdapter("listartipo", con)
  73.            da.SelectCommand.CommandType = 4
  74.            da.SelectCommand.Parameters.AddWithValue("@tipo", cbxtipo.SelectedValue)
  75.            da.Fill(dt)
  76.            GridView1.DataSource = dt
  77.            GridView1.DataBind()
  78.        Catch ex As Exception
  79.            MsgBox(ex.Message)
  80.        End Try
  81.        cerrar()
  82.    End Sub
  83.    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
  84.        Dim dt As New DataTable
  85.        Dim da As SqlDataAdapter
  86.        Try
  87.            abrir()
  88.            da = New SqlDataAdapter("buscar", con)
  89.            da.SelectCommand.CommandType = 4
  90.            da.SelectCommand.Parameters.AddWithValue("@id", txtid.Text)
  91.            da.Fill(dt)
  92.            txtid.Text = dt.Rows(0).Item(0).ToString
  93.            txtn.Text = dt.Rows(0).Item(1).ToString
  94.            cbxtipo.Text = dt.Rows(0).Item(2).ToString
  95.            txtaño.Text = dt.Rows(0).Item(3).ToString
  96.            txtstock.Text = dt.Rows(0).Item(4).ToString
  97.        Catch ex As Exception
  98.            MsgBox(ex.Message)
  99.        End Try
  100.        cerrar()
  101.    End Sub
  102.    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  103.        Dim cmd As New SqlCommand
  104.        Dim msj As String = ""
  105.        Try
  106.            abrir()
  107.            cmd = New SqlCommand("MODIFICAR", con)
  108.            cmd.CommandType = 4
  109.            With cmd.Parameters
  110.                .AddWithValue("@id", txtid.Text)
  111.                .AddWithValue("@n", txtn.Text)
  112.                .AddWithValue("@tipo", cbxtipo.SelectedValue)
  113.                .AddWithValue("@añof", CDate(txtaño.Text))
  114.                .AddWithValue("@stock", CInt(txtstock.Text))
  115.                .Add("@msj", SqlDbType.VarChar, 60).Direction = 2
  116.            End With
  117.            cmd.ExecuteNonQuery()
  118.            msj = cmd.Parameters("@msj").Value
  119.            MsgBox(msj)
  120.        Catch ex As Exception
  121.            MsgBox(ex.Message)
  122.        End Try
  123.        cerrar()
  124.        limpiar()
  125.    End Sub
  126.    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
  127.        limpiar()
  128.    End Sub
  129. End Class
  130.  

eso es todo espero que les haya servido
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines