Jump to content

slipknot_is_music

Warianos
  • Posts

    8
  • Joined

  • Last visited

Información Personal

  • Pais
    Chile
  • Genero
    Hombre

slipknot_is_music's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Primero saludos y no se si es la sesión correcta en el foro para el post, de no ser así pido disculpas. Tengo un alienware MX17 R4 el cual adquirí este año. Quisiera saber en que valor lo puedo vender ya que necesito el dinero para viajar en las vacaciones. Dejo los datos de la maquina. Procesador Intel® Core? i7-3840QM (8 MB de caché, 3,8 GHz, con Intel® Turbo Boost)Windows 7 64bit, Spanish17.3 inch (439.42 mm) WLED HD+ (1600 x 900) Anti-Glare Display16 GBDDR3L a 1600 MHz500GB 7200RPM Sata 6Gb/s128GB SSD Samsung (En caja)NVIDIA® GeForce® GTX 680M with 4GB GDDR5.Creative Sound Blaster Recon3Di High-Definition 5.1 Audio con software THX TruStudio ProKiller Wireless N-1103Cuenta con un mousepad y funda alienware. De ante mano gracias. Saludos.
  2. Antes que todo muy buenas tardes a todos, es mi primer post en esta secion y necesito ayuda. espero que puedan orientarme. Estoy trabajando con VB.NET 2010 en 3 Capas (Diseño,Logica,BD) y SQL Server 2008. Tengo una tabla llamada "Productos" en la cual manejo la siguiente información. ID Codigo Nombre Cantidad Valor 1 100 Pato 2 100 2 40 Perro 3 1000 3 100 Pato 10 100 Necesito recupera la Suma de los mismos Codigo. Es decir la suma del ID (1 y 3) En SQL con esta consulta se puede recuperar la SUMA. select SUM(cantidad) from productos where codigo = 1 Con eso obtengo la cantidad de todos los códigos "1" Public Function ObtenerProducto() As List(Of ClaseProducto) Dim misProductos As List(Of ClaseProducto) = New List(Of ClaseProducto) Try Dim Sql As String = "SELECT * FROM productos" Dim Db As BaseDatos = New BaseDatos() Db.Conectar() Db.CrearComando(Sql) Dim DatosProductos As DbDataReader = Db.EjecutarConsulta() Dim productoTemp As ClaseProducto = Nothing While DatosProductos.Read Try productoTemp = New ClaseProducto(DatosProductos.GetValue(0), DatosProductos.GetValue(1), DatosProductos.GetValue(2), DatosProductos.GetValue(3), DatosProductos.GetValue(4), DatosProductos.GetValue(5), DatosProductos.GetValue(6), DatosProductos.GetValue(7), DatosProductos.GetValue(8)) misProductos.Add(productoTemp) Catch ex As InvalidCastException Throw New LogicaException("Los tipos no coinciden.", ex) Catch ex As DataException Throw New LogicaException("Error de ADO.NET.", ex) End Try End While DatosProductos.Close() Db.Desconectar() Catch ex As BaseDatosException Throw New LogicaException("Error al acceder a la base de datos para obtener los productos.") Catch ex As LogicaException Throw New LogicaException("Error al obtener los productos.") End Try Return misProductos End Function Pero necesito enviar la SUMA a un Textbox en .NET En mi formulario tengo 2 Textbox, uno para capturar el Codigo en la Base dato y el otro para obtener la SUMA y un button. Adjunto detalle de codigo, Formulario. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.Button1.Text = "" Then MsgBox("Debe ingresar código a buscar", MsgBoxStyle.Critical, "Fast Food") Me.Button1.Focus() Else Dim misProductos As New List(Of ClaseProducto) misProductos = ControladorProducto.singletonProducto.ObtenerProducto() For Each miProducto As ClaseProducto In misProductos If miProducto.CodigoProducto = Me.TextBox1.Text Then Exit Sub End If Next MsgBox("El producto no existe", MsgBoxStyle.Information, "Fast Food") ModificarProducto.txtCodigoaBuscar.Clear() ModificarProducto.txtCodigoaBuscar.Focus() End If End Sub Controlador de Productos. Private Shared _controladorProducto As ControladorProducto Public Shared Function singletonProducto() As ControladorProducto If _controladorProducto Is Nothing Then _controladorProducto = New ControladorProducto End If Return _controladorProducto End Function Public Function ObtenerProducto() As List(Of ClaseProducto) Dim misProductos As List(Of ClaseProducto) = New List(Of ClaseProducto) Try Dim Sql As String = "SELECT * FROM productos" Dim Db As BaseDatos = New BaseDatos() Db.Conectar() Db.CrearComando(Sql) Dim DatosProductos As DbDataReader = Db.EjecutarConsulta() Dim productoTemp As ClaseProducto = Nothing While DatosProductos.Read Try productoTemp = New ClaseProducto(DatosProductos.GetValue(0), DatosProductos.GetValue(1), DatosProductos.GetValue(2), DatosProductos.GetValue(3), DatosProductos.GetValue(4), DatosProductos.GetValue(5), DatosProductos.GetValue(6), DatosProductos.GetValue(7), DatosProductos.GetValue(8)) misProductos.Add(productoTemp) Catch ex As InvalidCastException Throw New LogicaException("Los tipos no coinciden.", ex) Catch ex As DataException Throw New LogicaException("Error de ADO.NET.", ex) End Try End While DatosProductos.Close() Db.Desconectar() Catch ex As BaseDatosException Throw New LogicaException("Error al acceder a la base de datos para obtener los productos.") Catch ex As LogicaException Throw New LogicaException("Error al obtener los productos.") End Try Return misProductos End Function Espero que me pueden ayudar. Saludos Cordiales.
  3. Tengo una duda si actulize la consula 3.56 es posible hacer un downgrade a 3.55?? salu2 y que % hay de ser posible no morir en el intento xD :ROLF:
  4. Gracias a todos los que postiaron sus agradecimientos :rolleyes: y el final... :ROLF: :ROLF:
  5. Bueno Aki Le Dejo un Juego Muy Bueno , Si La Pasan Son ProH! xD!... Juego: http://www.juegosdiarios.com/juegos/The-maze.html Nota: Los Que lo Han Jugado Solo Comenten .... No Matar El Juego Antes.... Bueno Saludos y Ojalas La Pasen Almenos La 3era Etapa.. Suerte :banana:
  6. buenas warianos 1º que nada garcias por el aporte, saben que io hice todo el procedimiento y este truco funk 100%, es genial, pero me gustaria que me ayudacen en otro problema que me dio. cuando intento descargar en happy hour premium me dice que no lo puedo hacer por tener una ip dinamica, como puedo dejar mi ip estatica, o si alguien sabe como descargar de allì cuando ocurre eso, me conecto por router inalambrico en mi lap, tengo vtr. saludos
  7. Hermano el link numero 2 esta malo, gracias te agredecere aun mas si puedes resubir ese link saludos.
×
×
  • Create New...