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

 

 


Tema destacado:


  Mostrar Mensajes
Páginas: [1]
1  Programación / Bases de Datos / Llave primaria compuesta en: 22 Enero 2019, 21:46 pm
Lo que necesito es que el ID=MarcaID+(ModeloID/1000) de que forma se podria hacer.
Código:
CREATE TABLE `autos` (
  `ID` double NOT NULL,
  `Marca` varchar(40) DEFAULT NULL,
  `MarcaID` int(10) NOT NULL,
  `Modelo` varchar(40) DEFAULT NULL,
  `ModeloID` int(10) NOT NULL,
    PRIMARY KEY (`ID`),
  UNIQUE KEY `ID_UNIQUE` (`ID`)
)
Si he visto que se puede hacer  Primary Key(MarcaID, ModeloID), pero no es lo que necesito.
Código:
CREATE TABLE `au1` (
  `MarcaId` int(5) NOT NULL,
  `Marca` varchar(20) DEFAULT NULL,
  `ModeloId` int(5) NOT NULL,
  `Modelo` varchar(20) DEFAULT NULL,
    PRIMARY KEY (`MarcaId`,`ModeloId`)
)
Les agradezco la ayuda.
2  Programación / .NET (C#, VB.NET, ASP) / Re: Cargar PDF a AxAcroPDF en: 30 Octubre 2018, 20:59 pm
 :huh: Y se podria poner el archivo el los recursos de la aplicacion? :huh:
3  Programación / .NET (C#, VB.NET, ASP) / Cargar PDF a AxAcroPDF en: 29 Octubre 2018, 22:14 pm
Tengo un problema para cargar un archivo PDF a VB 15 en el control AxAcroPDF.
Al usar el codigo de abajo soo aparece Inicializando sobre el control AxAcroPDF y no termina de cargar el archivo(no lo muestra sobre el control).

Código:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim archivo As String = "C:\Users\Documents\WindowsApplication4\PDF"
AxAcroPDF1.UseWaitCursor = True
AxAcroPDF1.src = archivo
AxAcroPDF1.UseWaitCursor = False
End Sub

Al hacerlo de esta forma carga el archivo sin problemas
Código:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim abrir As New OpenFileDialog
Dim archivo As String = "C:\Users\Documents"
With abrir
.InitialDirectory = archivo
.Filter = "ALL|*.* | PDF|*.pdf"
.FilterIndex = 0
.RestoreDirectory = True
.Multiselect = False
.AddExtension = True
.CheckPathExists = True
If .ShowDialog = DialogResult.OK Then
AxAcroPDF1.UseWaitCursor = True
AxAcroPDF1.src = .FileName
AxAcroPDF1.UseWaitCursor = False
End If

End With

End Sub




 :huh: Podrian decir por que motivo pasa eso. :huh:
4  Programación / .NET (C#, VB.NET, ASP) / Llenar un ComboBox desde un DataGridView en: 16 Septiembre 2018, 19:44 pm
Tengo una funcion que al darle click a una fila del DataGridView llena todos los ComboBox de un formulario.
Código
  1. Sub DGVPopulateCMB(ByVal dgvR As DataGridViewRow, ByVal ctrC As Control.ControlCollection)
  2.  
  3. Dim str As String = Nothing
  4.  
  5. For Each celda As DataGridViewCell In dgvR.Cells
  6.  
  7. ''PASA POR CADA COMBOBOX
  8. For Each cmb As ComboBox In ctrC.OfType(Of ComboBox)
  9. cmb.Items.Clear()
  10.  
  11. If celda.OwningColumn.Name = cmb.Name.Substring(4) Then
  12. If Not IsDBNull(celda.Value) Then
  13. cmb.Items.Insert(0, celda.Value)
  14.  
  15. Else
  16. cmb.Items.Insert(0, "NULL")
  17.  
  18. End If
  19. cmb.Selectedndex = 0
  20. Continue For
  21.  
  22. End If
  23. Next
  24. Next
  25.  
  26. End Sub
  27.  

El problema es cuando reviso el ComboBox esta vacío. No se por que motivo no guarda los valores que tiene el DataGridView.
Me podrian decir la razón de esto.
5  Programación / .NET (C#, VB.NET, ASP) / MenuStrip en: 21 Julio 2018, 00:42 am
Tengo un MDIParent con un menustrip y al darle click en un item me abre una nueva forma con otro menustrip que lleno con una funcion.
Problema 1: es que al abrir mas de un form solo se llena el menustrip del primero.

 MDIParent:
Código:
Public Class MDI_principal
   Private Sub MenuStrip_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip.ItemClicked
        Try
            Dim form As New frmSubMenus
            form.MdiParent = Me
            form.Text = e.ClickedItem.Text
            form.Show()
        Catch ex As Exception
            MsgBox("ERROR." + ex.Message)
        End Try
    End Sub
End Class

Form hijo. Si quito el MsgBox(str) no llena el menu:
Código:
Public Class frmSubMenus
    Private Sub frmSubMenus_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each ctr As Control In Me.Controls
            Me.ToolTip1.SetToolTip(ctr, ctr.ToString)
        Next
        Try
            Dim submenu As New ArrayList()
            submenu = MenuSecundario(Me.Text)
            If Not IsNothing(submenu) Then
                For Each str As String In submenu
                    MsgBox(str)
                    MenuStrip1.Items.Add(str)
                Next
            End If
        Catch ex As Exception
            MsgBox("ERROR." + vbLf + ex.Message + vbLf + ex.ToString)
        End Try
 End Sub

Funcion para llenar menu del form hijo:
Código:
Public Function MenuSecundario(ByVal txt As String) As ArrayList
        Dim submenu As ArrayList = Nothing
        Select Case txt
            Case "Ventas"
                submenu = New ArrayList
                submenu.Add("Cotizacion")
                submenu.Add("Pedidos")
                submenu.Add("Clientes")
                submenu.Add("por Autorizar")
                submenu.Add("Calendario")
                submenu.Add("Estadisticas")
                Exit Select

           Case "Compras"
                submenu = New ArrayList
                submenu.Add("Pendientes")
                submenu.Add("Administrador")
                submenu.Add("Productos")
                submenu.Add("Proveedores")
                submenu.Add("Clientes")
                submenu.Add("Calendario")
                submenu.Add("Estadisticas")
                Exit Select

            Case Else
                Exit Select

        End Select
        Return submenu
    End Function

Me harian el favor de decirme donde tengo el error.
6  Programación / .NET (C#, VB.NET, ASP) / No puedo seleccionar una fecha en MonthCalendar en: 4 Julio 2018, 01:50 am
Buenas tardes.
Quiero crea un monthcalendar en tiempo de ejecucion y que mande un mensaje con la fecha. Si crea el calendario, pero no me permite seleccionar la flecha le doy click al dia que quiero y no manda el mensaje.

Código:
Public Class Form2
Public WithEvents monthcalendar As New MonthCalendar

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 Dim monthcalendar As New MonthCalendar
 Me.Controls.Add(monthcalendar)
 DataGridView1.Hide()
 With monthcalendar
       .Name = "monthCalendar"
       .Show()
       .Enabled = True
       .ShowWeekNumbers = True
End With
End Sub

Private Sub monthcalendar_DateSelected(sender As Object, e As DateRangeEventArgs) Handles monthcalendar.DateSelected
        MsgBox(e.Start.ToString)
        monthcalendar.Hide()
       
End Sub

End Class


Si alguien pudiera decirme en donde esta mi error por favor.
7  Programación / .NET (C#, VB.NET, ASP) / Re: Cómo puedo copiar un monthCalendar en un calendario personalizado? en: 4 Julio 2018, 01:17 am
Buenas tardes.
Yo lo intente con 42 label y 42 textbox cuyo tabIndex de los label (1-42) y de los textbox(43-84). La semana en mi calendario empieza el domingo
Código:
'Declaro un control
Dim ctr As New Control
'Dependiendo del dia de la semana que empiece el mes
'0-Domingo ... 6-Sábado
Dim k As Integer = (today.DayOfWeek - 1) * (-1)
'Cantidad de dias en el mes
Dim d As String = cal.GetDaysInMonth(fecha.Year, fecha.Month)
'Primer label
ctr = L_1

While k <= 42 And ctr.TabIndex <= 42
       If k <= 0 Then
           ctr.Hide()
            ElseIf k > 0 And k <= d Then
                ctr.Text = k
            ElseIf k > d Then
                ctr.Hide()
            End If
            If k = Today.Day Then
                ctr.ForeColor = Color.Red
            Else
                ctr.ForeColor = Color.Black
            End If
            k += 1

            ctr = GetNextControl(ctr, True)
           
        End While
8  Programación / .NET (C#, VB.NET, ASP) / Llenar mas de un TextBox desde Base de Datos en: 1 Junio 2018, 00:12 am
Buenas tardes.
Necesito llenar 20 TextBox desde una tabla en MySQL en mas de una form.
Entonces hize una funcion, pero no se si sea la mejor forma de hacerlo.

Código
  1. Sub EscribirTextBox(ByVal fForm As Form, ByVal consulta As String)
  2.  
  3.        Dim objeto As Object
  4.        Try
  5.            command = New MySqlCommand(consulta, con)
  6.            reader = command.ExecuteReader
  7.  
  8.            If reader.Read Then
  9.                For Each objeto In fForm.Controls
  10.                    If TypeOf objeto Is TextBox Then
  11.                        CType(objeto, TextBox).Text = reader(CType(objeto, TextBox).Name.Substring(3))
  12.                        End If
  13.                    End If
  14.                Next
  15.            Else
  16.                MsgBox("Los datos no existen")
  17.            End If
  18.            reader.Close()
  19.  
  20.  
  21.        Catch ex As Exception
  22.            MsgBox("Error al escribir." + vbLf + ex.ToString)
  23.  
  24.        End Try
  25.  
  26.  
  27.    End Sub
  28.  

Por lo que he revisado no es recomendable usar Objet.
9  Programación / .NET (C#, VB.NET, ASP) / Combobox dependientes en: 5 Mayo 2018, 02:09 am
Buenas tardes.
Estoy haciendo 2 combobox uno dependiente del anterior desde una base de datos. El combobox1 se llena correctamente, pero el combobox2 añade los elementos cada vez que cambio la selección del combobox1.
¿Cuál es mi error si quiero que sólo muestre las opciones de lo que estoy seleccionando?
Código
  1. 'Cargar el combobox1'
  2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.        Dim con As New MySqlConnection
  4.        con.ConnectionString =  ("Server=localhost;DataBase=autos;uid=root;pwd=root").ToString
  5.        con.Open()
  6.        Dim query As String = "select distinct MARCA from autos"
  7.        Dim cmd As New MySqlCommand(query, con)
  8.        Dim reader As MySqlDataReader = cmd.ExecuteReader
  9.        While reader.Read
  10.            ComboBox1.Items.Add(reader.GetString("MARCA"))
  11.        End While
  12.  
  13.        End Sub
  14. 'Cargar combobox2 dependiendo selección de combobox1'
  15. Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
  16.        Dim con As New MySqlConnection
  17.        con.ConnectionString = ("Server=localhost;DataBase=autos;uid=root;pwd=root").ToString
  18.        con.Open()
  19.        Dim query As String = "select MODELO from autos where MARCA='" + ComboBox1.SelectedItem + "'"
  20.        Dim cmd As New MySqlCommand(query, con)
  21.        Dim reader As MySqlDataReader = cmd.ExecuteReader
  22.        While reader.Read
  23.            ComboBox2.Items.Add(reader.GetString("MODELO"))
  24.  
  25.        End While
  26.  
  27.    End Sub
  28.  
10  Programación / Programación C/C++ / Error al compilar en: 14 Junio 2016, 06:22 am
Cuando compilo un programa me sale lo siguiente:

     [Linker error] undefined reference to `__dyn_tls_init_callback'
     [Linker error] undefined reference to `__cpu_features_init'
     [Linker error] undefined reference to `_setargy'
     Id returned 1 exit status

¿Que es lo que pasa, por que no he podido compilar ningun programa?
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines