hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
13 de Octubre de 2008, 07:40:36
Noticias: La 1era E-Zine de CPH ya fue liberada, encuentrala
Para ver este enlace Registrate o Inicia Sesion
> aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  Programar DataCombo		 0 Usuarios y 2 Visitantes están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Programar DataCombo  (Leído 1086 veces)
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« : 09 de Agosto de 2006, 07:48:22 »
Como programo en la lista del datacombo...
Necesito q al seleccionar un elemento , y presionar en un boton realice algo especifico de acuerdo al elemento seleccionado.. .nose si me explico bien...

AH!!..gracias de nuevo ..solucione mi gran drama...
« Última modificación: 09 de Agosto de 2006, 07:53:41 por CiberNat » En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #1 : 09 de Agosto de 2006, 08:09:30 »
Buen día CiberNat. Supongamos que creaste tu conexión con lo siguiente:

Código:

    Set DataCombo1.RowSource = Adodc1.Recordset
   
    DataCombo1.ListField = "NombreCampo"
    DataCombo1.Text = ""


Tomando en cuenta lo anterior, deberás capturar lo siguiente:

Código:

Private Sub DataCombo1_Click(Area As Integer)
    If Len(DataCombo1.Text) > 0 Then
        Adodc1.Recordset.Find "NombreCampo='" + Trim(DataCombo1.Text) + "'"
    End If
End Sub


Obviamente el código arriba expuesto es para buscar un registro tomando como referencia el nombre de campo, pero sé que esto te ayudará a entender como asociar un evento con tu control DataCombo. Espero te sea de utilidad. Nos vemos.


Para ver este enlace Registrate o Inicia Sesion
Más información sobre el control DataCombo aquí
En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« Respuesta #2 : 09 de Agosto de 2006, 08:45:51 »
ups....hice la prueba..pero me tira un error...
del sql....."ERROR EN EL METODO REFRESH  DEL OBJETO ADODC1"
q es?
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #3 : 09 de Agosto de 2006, 08:49:01 »
Cita de: CiberNat en 09 de Agosto de 2006, 08:45:51
ups....hice la prueba..pero me tira un error...
del sql....."ERROR EN EL METODO REFRESH  DEL OBJETO ADODC1"
q es?

Emmm mira, lleva a cabo lo siguiente:

Agrega 1 control DataCombo, 1 Adodc e inserta el siguiente código

Código:

Private Sub DataCombo1_Click(Area As Integer)
    If Len(DataCombo1.Text) > 0 Then
        Adodc1.Recordset.Find "Au_Id='" + Trim(DataCombo1.Text) + "'"
    End If
End Sub

Private Sub Form_Load()
    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
        .RecordSource = "Authors"
        .Refresh

    Set DataCombo1.RowSource = Adodc1.Recordset
       
        DataCombo1.ListField = "Au_Id"
        DataCombo1.Text = Adodc1.Recordset!Au_Id
    End With
End Sub


Ya no debe aparecerte error.
« Última modificación: 09 de Agosto de 2006, 08:55:08 por ranefi » En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« Respuesta #4 : 09 de Agosto de 2006, 08:58:32 »
eso fue lo que hice...lo saq del link q me diste...pero mas me sirve el q me pasaste primero...ese no me tiro error
solo ahora debo arreglarmelas. ..para q me capture el elemento...
uuufff...
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #5 : 09 de Agosto de 2006, 09:31:50 »
Cita de: CiberNat en 09 de Agosto de 2006, 08:58:32
eso fue lo que hice...lo saq del link q me diste...pero mas me sirve el q me pasaste primero...ese no me tiro error
solo ahora debo arreglarmelas. ..para q me capture el elemento...
uuufff...

Okas, cualquier duda...... Ya sabes, por aquí andamos haciendo montones de spam.

Nos vemos.
En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« Respuesta #6 : 09 de Agosto de 2006, 10:30:38 »
esto es lo quiero hacer mas o menos...me puedes ayudar??

'If DataCombo1.(propiedad q desconosco) = "nombre_archivo 1" Then
    'appExcel.WorkB ooks.Open FileName:=archivo1
'ElseIf DataCombo1.(=) = "nombre_archivo 2" Then
    'appExcel.WorkB ooks.Open FileName:=archivo2
'Else
    'etc..
'End If

me explico mejor?? espero...si me puede pegar un empujoncito... mas o menos..
gracias
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #7 : 10 de Agosto de 2006, 07:43:29 »
Okas, buen día CiberNat. Aquí te dejo el código que necesitas.

Agregar 1 control Adodc, 1 DataCombo e insertar el siguiente código

Código:

Private Sub DataCombo1_Click(Area As Integer)
    Dim appExcel As Object
   
    If DataCombo1.Text = 2 Then
        Set appExcel = CreateObject("excel.application")
   
            appExcel.Visible = True
   
        appExcel.workbooks.Open FileName:= _
            App.Path & "\" & DataCombo1.Text & ".xls"
    End If
End Sub

Private Sub Form_Load()
    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
        .RecordSource = "Authors"
        .Refresh

    Set DataCombo1.RowSource = Adodc1.Recordset
       
        DataCombo1.ListField = "Au_Id"
        DataCombo1.Text = Adodc1.Recordset!Au_Id
    End With
End Sub


El código supone que existe una hoja de cálculo llamada 2.xls que se encuentra en la ruta de instalación de Visual Basic 6.0 (C:\Archivos de programa\Microsoft Visual Studio\VB98)

Con esto ya sólo deberás modificar el código a tus necesidades. Nos vemos.
En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« Respuesta #8 : 10 de Agosto de 2006, 09:46:29 »
tengo problemas al ejecutar ....me tira un error... "INSTRUCCION SQL NO VALIDA SE ESPERABA 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', 'UPDATE' " y me marca el .Refresh..a q se debe eso?
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #9 : 10 de Agosto de 2006, 11:28:55 »
Cita de: CiberNat en 10 de Agosto de 2006, 09:46:29
tengo problemas al ejecutar ....me tira un error... "INSTRUCCION SQL NO VALIDA SE ESPERABA 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', 'UPDATE' " y me marca el .Refresh..a q se debe eso?


Emmm bueno, para empezar, agrega ese código en un proyecto nuevo y pruébalo. Después nos comentas qué pasó : )
En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
CiberNat
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« Respuesta #10 : 10 de Agosto de 2006, 12:08:45 »
sorry....si lo probaba en un proyecto nuevo...pero uno de datos...ese me generaba dramas....
tb tenia mas forms....con mas pruebas...al hacerlo completamente nuevo...todo cambio...sorry ....crei q mi visual otra ves..estaba ...loco....sor ry...
y gracias...lo.. ..modificare.. ..
Como puedo despues d terminado mi proyecto subirlo...a su foro para que sirva de apoyo??
claro..q es un trabajo largo..puede servir bastante...
GRacias...!!!!
disculpa--- Embarrassed
retame no ma!!...
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,191


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #11 : 10 de Agosto de 2006, 02:25:24 »
Cita de: CiberNat en 10 de Agosto de 2006, 12:08:45
sorry....si lo probaba en un proyecto nuevo...pero uno de datos...ese me generaba dramas....
tb tenia mas forms....con mas pruebas...al hacerlo completamente nuevo...todo cambio...sorry ....crei q mi visual otra ves..estaba ...loco....sor ry...
y gracias...lo.. ..modificare.. ..
Como puedo despues d terminado mi proyecto subirlo...a su foro para que sirva de apoyo??
claro..q es un trabajo largo..puede servir bastante...
GRacias...!!!!
disculpa--- Embarrassed
retame no ma!!...

¿De qué te disculpas cochinón? Aquí todos somos suceptibles de cometer errores, hasta yo que soy perfecto, ajajajajajajaj ajajaja, es broma, jojojojojo.

Puedes subir tu programa en
Para ver este enlace Registrate o Inicia Sesion
4Shared.com
y publicar el enlace en un mensaje de por aquí, o puedes publicar el código fuente en el mensaje llamado
Para ver este enlace Registrate o Inicia Sesion
Publicar Códigos
; tú decides. Esperamos con ansias tu aplicación. Nos vemos.
« Última modificación: 10 de Agosto de 2006, 02:28:37 por ranefi » En línea

SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.6 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online