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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Formulario de ventas oO?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] Ir Abajo Respuesta Imprimir
Autor Tema: Formulario de ventas oO?  (Leído 16,596 veces)
Hadess_inf
Desesperado
Colaborador
***
Desconectado Desconectado

Mensajes: 2.048


Nueva Vida


Ver Perfil WWW
Re: Formulario de ventas oO?
« Respuesta #20 en: 9 Mayo 2009, 01:42 am »

sorry pero entré en pánico

Como todos en algun momento. xD


En línea

ezugaru

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Formulario de ventas oO?
« Respuesta #21 en: 9 Mayo 2009, 17:04 pm »

ok, aqui voy de nuevo . . .  ya ando en otro form programando las consultas de productos, pero al querer llenar la grilla no manda nada, queda en blanco y no se que pasa, este codigo es el que siempre he usado, pero poa alguna razon ahora no hace efecto, se los pongo:
Código:

Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports System

Public Class consulta_productos

    Dim lector As MySqlDataReader
    Dim con As New MySqlConnection
    Dim comando As New MySqlCommand
    Dim adaptador As New MySqlDataAdapter
    Dim consulta, consulta2 As String
    Dim datos As New DataTable
    Dim DS As New DataSet

    Private Sub id_prd_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles id_prd.KeyDown

        If e.KeyCode = Keys.Enter Then

            con = New MySqlConnection
            con.ConnectionString = "server = 192.168.1.151;" & "user = root;" & "password = 18281e78a8;" & "database = rocar;"

            Try

                con.Open()
                consulta = "SELECT id_prd from inventario where id_prd='" & id_prd.Text & "'"
                comando.Connection = con
                comando.CommandText = consulta
                adaptador.SelectCommand = comando

                If adaptador.Fill(datos) = Nothing Then

                    MsgBox("Clave no encontrada, verificala")
                    id_prd.Text = Nothing
                    id_prd.Focus()

                Else

                    consulta2 = "SELECT DISTINCT inventario.id_prd,inventario.descripcion,marcas.marca,marcas.cantidad,marcas.precio_lista FROM inventario,marcas WHERE inventario.id_prd='" & id_prd.Text & "' AND marcas.id_prd='" & id_prd.Text & "'"
                    MsgBox(consulta2)
                    comando.Connection = con
                    comando.CommandText = consulta2
                    adaptador.SelectCommand = comando

                    Me.consulta_dgv.DataSource = adaptador.Fill(datos)


                    id_prd.Text = Nothing
                    id_prd.Focus()

                    'End While

                End If

            Catch ex As Exception

                MsgBox("Se produjo el siguiente error: " & ex.Message)

            End Try

            datos.Reset()
            con.Dispose()
            consulta = Nothing

            id_prd.Text = Nothing
            id_prd.Focus()

        End If

    End Sub
End Class



En línea

ezugaru

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Formulario de ventas oO?
« Respuesta #22 en: 11 Mayo 2009, 18:17 pm »

Resuelto, jaja, voy a ir poniendo aqui como estoy solucionando estos detalles por si a alguien le pasa lo mismo pues se de una idea que le pasa, no creo que sea el uinico que tenga éstos problemas, resulta que yo le añadía en la vista de diseño las columnas al Datagrid y al parecer eso ocasionaba algun conflicto al momento de pasar el datatable al datagrid, y pues dejo que el datatable le ponga las comunas con los nombres de las columnas al datagrid, el codigo queda asi:

Código:

Private Sub id_prd_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles id_prd.KeyDown

        If e.KeyCode = Keys.Enter Then

            con = New MySqlConnection
            con.ConnectionString = "server = 192.168.1.151;" & "user = root;" & "password = 18281e78a8;" & "database = rocar;"

            Try

                con.Open()
                consulta = "select id_prd from inventario where id_prd ='" & id_prd.Text & "'"
                comando.Connection = con
                comando.CommandText = consulta
                adaptador.SelectCommand = comando

                If adaptador.Fill(datos) = Nothing Then

                    MsgBox("Clave no encontrada, verificala")
                    id_prd.Text = Nothing
                    id_prd.Focus()

                Else

                    consulta = "SELECT DISTINCT inventario.id_prd,inventario.descripcion,marcas.marca,marcas.cantidad,marcas.precio_lista FROM inventario,marcas WHERE inventario.id_prd='" & id_prd.Text & "' AND marcas.id_prd='" & id_prd.Text & "'"

                    comando.Connection = con

                    comando.CommandText = consulta

                    adaptador.SelectCommand = comando

                    datos.Clear()

                    adaptador.Fill(datos)

                    consulta_dgv.DataSource = datos
                    id_prd.Text = Nothing
                    id_prd.Focus()

                End If

            Catch ex As Exception

                MsgBox("Se produjo el siguiente error: " & ex.Message)

            End Try

            con.Dispose()

        End If

    End Sub


Y tambien agregue una busqueda por descripcion, por ejemplo si quieren buscar todos los articulos de un auto en especifico, digamos una urvan, un tsuru, un cirrus, solo ponen la palabra en el textbox y la busqueda se ejecuta buscando todas las coincidencias posibles:

Código:

 Private Sub describe_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles describe.KeyDown

        If e.KeyCode = Keys.Enter Then

            con = New MySqlConnection
            con.ConnectionString = "server = 192.168.1.151;" & "user = root;" & "password = 18281e78a8;" & "database = rocar;"

            Try

                con.Open()

                consulta = "SELECT inventario.id_prd,inventario.descripcion,marcas.marca,marcas.cantidad,marcas.precio_lista from inventario,marcas WHERE inventario.descripcion LIKE '%" & describe.Text & "%' AND inventario.id_prd=marcas.id_prd"
                comando.Connection = con
                comando.CommandText = consulta
                adaptador.SelectCommand = comando
                datos.Clear()

                If adaptador.Fill(datos) = Nothing Then

                    MsgBox("Descripcion no encontrada, usa otra palabra")
                    describe.Text = Nothing
                    describe.Focus()

                Else

                    consulta_dgv.DataSource = datos
                    describe.Text = Nothing
                    id_prd.Focus()

                End If

            Catch ex As Exception

                MsgBox("Se produjo el siguiente error: " & ex.Message)

            End Try

            con.Dispose()

        End If

    End Sub


cualquier sugerencia o comentario será muy bien recibido.
En línea

ezugaru

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Formulario de ventas oO?
« Respuesta #23 en: 10 Noviembre 2009, 18:08 pm »

Soy yo de nuevo, sigo vivo !!!! ya casi temino el sistema :D solo estoy terminando lo que son pedidos y devoluciones con sus respectivos reportes y estará terminado, una vez hecho así subo la solucion del proyecto para todo aquel que quiera checarla, y pueda ya sea tomar parte de lo que hice o bien, corregirme y ayudarme a mejorar mi modo de programar, saludos!
En línea

Páginas: 1 2 [3] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Web de Intermediario de Ventas
Desarrollo Web
ranslsad 1 3,438 Último mensaje 13 Diciembre 2010, 14:17 pm
por AFelipeTrujillo
ipad nuevo éxito en ventas? cuando creéis que suben las ventas o bajan? « 1 2 »
Dudas Generales
usuario oculto 11 8,072 Último mensaje 5 Marzo 2011, 22:20 pm
por Garfield07
Ventas en internet.
Dudas Generales
andres_5 2 3,215 Último mensaje 8 Noviembre 2011, 21:07 pm
por skapunky
Abarrotes Puntos de Ventas 2.12
Software
Software Download 7 17,517 Último mensaje 29 Enero 2023, 01:22 am
por hstest1
SOFTWARE DE BOTICAS / PUNTOS DE VENTAS
Software
Kross 3 8,902 Último mensaje 19 Octubre 2022, 19:48 pm
por Manatidoble
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines