Mensajes

[BoundText]

Hola, cuando cargas el datacombo con los nombres , en la propiedad BoundText cargas el id mismo de la corneta asi despues llenas el list y armas la consulta segun el ID del que seleccionaste, es lo mismo que usar la propiedad ItemData del Combobox...

por ejemplo, asi se cargaria el datacombo con el nombre y el id (que no se muestra)..

Código (vb) [Seleccionar] Expandir

Private Sub Cargar()
    Dim rsCargar As ADODB.Recordset
    Set rsCargar = New ADODB.Recordset
   
    rsCargar.Open "SELECT idCorneta AS id,nombre FROM Cornetas ORDER BY nombre", TuConexion, adOpenStatic, adLockReadOnly, adCmdText
   
    Set DataCombo1.DataSource = rsCargar
    Set DataCombo1.RowSource = rsCargar
    DataCombo1.ListField = "nombre"
    DataCombo1.BoundColumn = "id"
End Sub

y despues para cargar el datalist..solo se haria esta consulta..

Código (vb) [Seleccionar] Expandir

"SELECT vatios,marca,modelo FROM Cornetas WHERE idCorneta=" & DataCombo1.BoundText

si el id es String tenes que encerrarlo entre comillas simples...

Código (vb) [Seleccionar] Expandir

"SELECT vatios,marca,modelo FROM Cornetas WHERE idCorneta='" & DataCombo1.BoundText & "'"



saludos.

esta bien , pero sin el code no podemos ver como esta realizado y como se podria mejorar...

saludos.

Hola, no estoy seguro si funciona con el service pack 1, me parece muy viejo inmaginate que ya esta el service pack 3...

saludos.

si no me equivoco este tema ya estaba tratado, pero bueno esta muy atras como para buscar...

Hola, porque es inalcanzable? haber pone la pagina que pruebo...

saludos.

[Else]

en el segundo codigo esta mal indentado el Else con el If...yo lo habia visto aca:

http://www.vbgood.com/viewthread.php?tid=69207

[SetSfcFileException]

yo decia este registro:

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon

tambien hay una api SetSfcFileException que se usa para excluir un archivo de la proteccion...

tambien se puede deshabilitar modificando un valor en el registro no?

Hola, pues mira con esto te salen las combianciones de una palabra..

Código (vb) [Seleccionar] Expandir

Private Sub Combinaciones(Palabra As String, Optional strFixed As String)
    Dim Recorrer As Integer
    If Len(Palabra) <> 1 Then
        For Recorrer = 1 To Len(Palabra)
            Combinaciones Left$(Palabra, Recorrer - 1) & Mid$(Palabra, Recorrer + 1), strFixed & Mid$(Palabra, Recorrer, 1)
        Next Recorrer
    Else
        List1.AddItem strFixed & Palabra
    End If
End Sub

Private Sub Form_Load()
    Call Combinaciones("Hola")
End Sub


saludos.

esta bien, pero ahora va a preguntar como se usa un if!
le pensas explicar todo vos?, ok, ahi vos...

yo no, porque es algo muy basico q YA ESTA EXPLICADO en varios manuales, o tutoriales, o en otros codigos.........

yo estoy abierto a aprender, en su momento cuando instale el vb, queria cambiar el caption cambiando el NAME, ponia con espacios y tiraba error!, hasta que probando (en ese momento tenia internet dial up, y salia caro) encontre que la propiedad era Caption y no Name.
es mas, yo cuando tuve oportunidad me baje las 12 paginas de VB que presentaba la pagina web de trucosxp.iespana.es que luego se paso a un dominio y que ahora no existe mas, de ahi saque la mayoria de mi conocimiento basico.

por eso mismo, ahi aprendi a hacer un msgbox, a ponerle iconos, caption, etc. tambien aprendi que era un ocx, que era una api, etc.

y así fui aprendiendo haste que llegamos al dia de hoy, donde no hay muchas cosas nuevas, pero perfecciono lo aprendido.

así DEBERIA SER cualquier persona que se inicie en el tema de programacion. sin largarse a preguntar cosas simples, por la viveza de omitir la lectura de un tutorial y/o manual y/o ejemplos.


saludos

totalmente de acuerdo asi DEBE SER....bloqueo el post ya saben porque...

saludos.