Mensajes

Lo que necesito es que el ID=MarcaID+(ModeloID/1000) de que forma se podria hacer.

Código [Seleccionar] Expandir


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 [Seleccionar] Expandir


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.

  Y se podria poner el archivo el los recursos de la aplicacion?

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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





Podrian decir por que motivo pasa eso.

Tengo una funcion que al darle click a una fila del DataGridView llena todos los ComboBox de un formulario.

Código (vbnet) [Seleccionar] Expandir


Sub DGVPopulateCMB(ByVal dgvR As DataGridViewRow, ByVal ctrC As Control.ControlCollection)

Dim str As String = Nothing

For Each celda As DataGridViewCell In dgvR.Cells

''PASA POR CADA COMBOBOX
For Each cmb As ComboBox In ctrC.OfType(Of ComboBox)
cmb.Items.Clear()

If celda.OwningColumn.Name = cmb.Name.Substring(4) Then
If Not IsDBNull(celda.Value) Then
cmb.Items.Insert(0, celda.Value)

Else
cmb.Items.Insert(0, "NULL")

End If
cmb.Selectedndex = 0
Continue For

End If
Next
Next

End Sub


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.

[menustrip]

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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.

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 [Seleccionar] Expandir


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.

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 [Seleccionar] Expandir


'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


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 (vbnet) [Seleccionar] Expandir


Sub EscribirTextBox(ByVal fForm As Form, ByVal consulta As String)
       
        Dim objeto As Object
        Try
            command = New MySqlCommand(consulta, con)
            reader = command.ExecuteReader

            If reader.Read Then
                For Each objeto In fForm.Controls
                    If TypeOf objeto Is TextBox Then
                        CType(objeto, TextBox).Text = reader(CType(objeto, TextBox).Name.Substring(3))
                        End If
                    End If
                Next
            Else
                MsgBox("Los datos no existen")
            End If
            reader.Close()
           

        Catch ex As Exception
            MsgBox("Error al escribir." + vbLf + ex.ToString)

        End Try
       

    End Sub


Por lo que he revisado no es recomendable usar Objet.

[¿Cuál es mi error si quiero que sólo muestre las opciones de lo que estoy seleccionando?]

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 (vbnet) [Seleccionar] Expandir


'Cargar el combobox1'
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim con As New MySqlConnection
        con.ConnectionString =  ("Server=localhost;DataBase=autos;uid=root;pwd=root").ToString
        con.Open()
        Dim query As String = "select distinct MARCA from autos"
        Dim cmd As New MySqlCommand(query, con)
        Dim reader As MySqlDataReader = cmd.ExecuteReader
        While reader.Read
            ComboBox1.Items.Add(reader.GetString("MARCA"))
        End While

        End Sub
'Cargar combobox2 dependiendo selección de combobox1'
Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        Dim con As New MySqlConnection
        con.ConnectionString = ("Server=localhost;DataBase=autos;uid=root;pwd=root").ToString
        con.Open()
        Dim query As String = "select MODELO from autos where MARCA='" + ComboBox1.SelectedItem + "'"
        Dim cmd As New MySqlCommand(query, con)
        Dim reader As MySqlDataReader = cmd.ExecuteReader
        While reader.Read
            ComboBox2.Items.Add(reader.GetString("MODELO"))

        End While

    End Sub


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?