Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - el_cantante

#11
Hola!  :D
Quisiera saber si alguien por favor podría darme una mano, estoy intentando desarrollar un programa con VB.NET 2008 y Crystal Reports 2008. Este programa muestra un DataGridView con una lista de personas y algunos datos mas en otras dos columnas, lo que necesito es saber como recorrer el DataGridView y asignar como parámetro el valor que encuentra en la columna CardName y que lo haga una vez por cada renglón exportando 1 report en PDF por cada persona.
Actualmente tengo el DataGridView completo con los datos y el código que pasa el parámetro a Crystal Reports para general el report y exportarlo en PDF, el problema es que es estático y depende del valor que escribo en el valor del parámetro... falta el ciclo que recorre la tabla y asigna automáticamente cada parámetro para que proceda con la exportación del PDF.


        cnString = "Database=TEST;Data Source=172.XX.XX.XX;User Id=user;Password=password"
        sqlQRY = "SELECT OCRD.CardCode, OCRD.CardName, OCRD.E_Mail FROM OCRD WHERE     (OCRD.CardCode = 'SS300') OR (OCRD.CardCode = 'SS301')"

        conn = New SqlConnection(cnString)
        conn.Open()
        da = New SqlDataAdapter(sqlQRY, conn)
        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
        da.Fill(ds, "ItemCode")

        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "ItemCode"
        If DataGridView1.RowCount = 2 Then
            DataGridView1.Columns(0).Width = 60
            DataGridView1.Columns(0).HeaderText = "CardCode"
            DataGridView1.Columns(1).Width = 295
            DataGridView1.Columns(1).HeaderText = "Nombre"
            DataGridView1.Columns(2).Width = 295
            DataGridView1.Columns(2).HeaderText = "Email"
        End If


        Dim mySelectFormula As String = ""

        cryRpt.Load("C:\Users\yo\Desktop\Report1.rpt")

        cryRpt.SetDatabaseLogon("user", "password")


        cryRpt.SetParameterValue(0, "Nombre Apellido")

        myCrystalReportViewer.Refresh()

        Try

            Dim CrExportOptions As ExportOptions

            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()

            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()

            CrDiskFileDestinationOptions.DiskFileName = "C:\Users\yo\Desktop\Nombre Apellido.pdf"

            CrExportOptions = cryRpt.ExportOptions

            With CrExportOptions

                .ExportDestinationType = ExportDestinationType.DiskFile

                .ExportFormatType = ExportFormatType.PortableDocFormat

                .DestinationOptions = CrDiskFileDestinationOptions

                .FormatOptions = CrFormatTypeOptions

            End With

            cryRpt.Export()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try
        End


Muchisimas gracias!!  ;-)

Saludos!!
#12
Redes / Re: ¿Cómo puedo cambiar mi IP pública?
1 Noviembre 2012, 12:49 PM
Bueno, a ver... la cosa no es tan asi... es cierto que si tu proveedor de internet te da IP fija no cambiara y si es dinamica bastaria reiniciar el router. Pero podes tranquilamente evitar todo esto y comprar algun servicio de VPN como http://www.purevpn.com/ solo por citar un ejemplo... con esto cambias IP  cuando quieres y desde el pais que quieres... yo por ejemplo ahora estoy usando Spotify desde un pais donde no es permitido pero conectandome a una VPN de Suiza hago lo que quiero  :P

Saludos!
#14
No necesariamente tengo que usar un listbox.
Inicialmente comienzo desde un archivo de texto que cargo en un textbox y de ahí voy buscando los datos que me interesan y los escribía en un listbox (ya que inicialmente la idea era de usar varios listbox para cada segmento de datos que tenia que buscar), luego agregue el listbox2 porque es otra columna de datos, en el listbox1 escribía los codebar que encontraba en el archivo de texto y en el listbox2 escribía los códigos de los artículos.
De todos modos vi que no era una muy buena idea usar varios listbox y que seria mejor usar solo un datagridview, es por eso que pensé en "trasladar" esos datos al interno del datagridview. Creo que es una muy buena idea la que me sugieres, me podrías indicar por favor un ejemplo de como ir guardando en una variable todos estos datos que voy encontrando? y como se puede usar la variable dentro de la query?
Los datos que voy encontrando forman parte del archivo de texto que cargo en un TextBox, una vez que tengo estos datos (por ejemplo el ListBox2 que contiene el código del articulo del cliente) lo comparo con mis datos de la base de datos para así obtener mi código articulo, como se dice aquí en Italia "una transcodifica"

Muchas gracias por tu tiempo!

Saludos!

#15
Con esto consigo pasar los datos del ListBox a un nuevo DataGridView

         DataGridView2.Columns.Add("ID", "ID2")
        ListBox2.SelectedItem = 0
        Dim ii
        For ii = 0 To ListBox1.Items.Count - 1
            ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1
            ListBox2.SelectedItem = ListBox2.SelectedIndex
            DataGridView2.Rows.Add(ListBox2.SelectedItem)
        Next


Pero no consigo de ninguna manera agregar estos datos como parte de mi datagridview anterior... sera que no se puede en el caso que este asociado a una dataset?

Gracias

Saludos
#16
Concretamente lo que necesitaba es listar los datos filtrados en una ListBox... pero esta tarde lo que consegui hacer es usar un DataGridView en vez del ListBox y asi consegui listar los datos filtrados, lo hice de la siguiente manera:

        If DataGridView1.RowCount = 0 Then
            cnString = "Database=database;Data Source=SERVER;User Id=sa;Password=password"
            Dim i
            For i = 0 To ListBox1.Items.Count - 1
                ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1
                ListBox2.SelectedItem = ListBox2.SelectedIndex
                sqlQRY = "SELECT [@IEO_CPG_TRASITEMEDI].U_CPG_ITEMCODE, OITM.ItemName FROM [@IEO_CPG_TRASITEMEDI] INNER JOIN OITM ON [@IEO_CPG_TRASITEMEDI].U_CPG_ITEMCODE = OITM.ItemCode WHERE [@IEO_CPG_TRASITEMEDI].U_CPG_CODFORNEDI = CONVERT(NVARCHAR(15)," & ListBox2.SelectedItem & ")"

                conn = New SqlConnection(cnString)

                Try
                 
                    conn.Open()

                    da = New SqlDataAdapter(sqlQRY, conn)

       
                    Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)

                    da.Fill(ds, "ItemCode")

                    DataGridView1.DataSource = ds
                    DataGridView1.DataMember = "ItemCode"


                Catch ex As SqlException
                    MsgBox(ex.ToString)
                Finally
         
                    conn.Close()

                End Try

            Next
        End If


Entonces asi consegui filtrar los datos en base a la ListBox... Pero lo malo es que tengo por un lado una ListBox (la ListBox1 del anterior post) y por otro un DataGridView, la pregunta es, seria posible hacer que los datos que tengo en la ListBox aparecieran en una tercera columna de mi DataGridView ? O sea... tener todo junto en el DataGridView y no como ahora un poco en la ListBox y otro poco en el DataGridView

Muchas gracias!!

Saludos!
#17
Hola a todos!
Queria saber si por favor alguien me puede ayudar con un problema que tengo. Estoy tratando de interpretar un archivo EDI en formato EURITMO.  Lo que hago es abrir el archivo y luego recorrer con un while todos los renglones, buscar la palabra LIN (que identifica el detalle del pedido) y luego me desplazo hasta encontrar el codigo EAN del producto.
Esto lo hago de la siguiente forma:

 
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As system.EventArgs)  Handles Button2.Click

        If ListBox1.Items.Count = 0 Then

            Dim startIndex = -1

            startIndex = TextBox1.Text.IndexOf("LIN")

            While startIndex > 0

                Dim Stringa1 As String = TextBox1.Text

                Dim MID_VBNET As String = Stringa1.Substring(startIndex + 9, 13)

                ListBox1.Items.Add(MID_VBNET)

                startIndex = TextBox1.Text.IndexOf("LIN", startIndex + 1)

            End While

        End If

    End Sub


Una vez que tengo el codigo EAN de los productos dentro del ListBox1 lo que quisiera hacer es buscar mediante una query el codigo del articulo correspondiente (que se encuentra en mi base de datos)
La query seria  asi:
"SELECT OITM.ItemCode FROM OITM WHERE OITM.CodeBars = " & ListBox1.Text & ""
Lo que se me habia occurido es recuperar los datos directamente desde la base de datos filtrandolos en la query... pero la verdad que no se como seguir ni que hacer... alguien me podria dar una mano por favor??
Estoy usando VB 2008

Muchas gracias!!

Saludos
#18
Nivel Web / Re: SQL Injection Tool
22 Diciembre 2008, 01:09 AM
Muy interesante el programa   :)
Lo probe con algunas paginas pero el programa se me cuelga demasiado...
quizas sera que ahora no tengo una senal muy buena asi que mi conexion va muy lenta... lo probare mas y despues comento...
De todos modos espero con ansia la version final!  :D

Saludos!
#19
Ingeniería Inversa / ionCube PHP Encoder
8 Junio 2008, 13:28 PM
Hola!! :D
Alguien sabe algún método para desempaquetar un file PHP cifrado con el ionCube PHP Encoder??
Con google encontré esta pagina http://www.qinvent.com/cyrj/deZender/index-en.php
pero para ser sinceros ando corto de recursos  :P como para comprar el programa
existe alguna otra posibilidad?

Acabo de encontrar esto:

http://rapidshare.com/files/112375690/Php_4-5_Dezender.rar
pass: warezscene.org

Dice que desempaqueta todo, el problema es k no se como usarlo ni como instalarlo.... alguna idea??

Saludos!  :)
#20
 Hola! :)
Les dejo este proyecto en visual basic 6 que descargue hace un tiempo y esta interesante para quienes como yo intentamos aprender.
Les aviso que este ejemplo es de conexion DIRECTA asi que les repito pienso que puede ser util para gente como yo que esta aprendiendo. De todas formas todos sabemos que ya esta el manual escrito por Xenon donde explica bien como hacer uno de conexion inversa asi que con este aporte lo que pretendo es que pueda ser una ayuda extra a quien no es un experto en programacion y quizas entre los 2 ejemplos pueda sacar algo productivo.
Por cierto vale aclarar que el codigo lo descargue, NO ES MIO.
Espero que les sea util   ;)

Saludos!  ;D

DESCARGA:

http://rapidshare.com/files/79883823/administrador-remoto-winsock-2.zip.html