• Sábado 12 de Julio de 2025, 10:35

Mostrar Mensajes

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


Mensajes - vbmc_2004

Páginas: 1 [2]
26
Visual Basic 6.0 e inferiores / Re: Hacer Filtro!!!
« en: Domingo 5 de Diciembre de 2004, 18:49 »
HOLA fap1603!!

Gracias estoy trabajando en eso..
salu2

27
Visual Basic 6.0 e inferiores / Combos + Distinct
« en: Domingo 5 de Diciembre de 2004, 18:47 »
Hola amigos saben tengo otro problema...
resulta que estoy llenando un combo pero resulta que este combo tiene campos repetidos por ejemplo se repite el apellido "lopez" y cuando lleno el combo aparece las veces que este registrado en la base de datos he leido por ahi que una instruccion en sql me puede solucionar mi problema descubri la palabra "distinct" pero resulta que cuando la pongo en la consulta no me llena el combo.. como debo colocar la instruccion???
LE ENVIO EL CODIGO QUE ESTOY UTILIZANDO..PARA LLENAR EL COMBO
Código: Text
  1.  
  2. Private Sub Form_Load()
  3. sql = ""
  4. sql = sql + "select * from marcas" ' AQUI DEBE IR EL DISTINCT???
  5. Set vista = db.CreateDynaset(sql)
  6.  
  7. Do Until vista.EOF
  8. On Error Resume Next
  9.       Combo1.AddItem (vista.Fields(3))
  10.      vista.MoveNext
  11. Loop
  12. End Sub
  13.  
  14.  

ESPERO ME PUEDAN AYUDAR TAMBIEN LE HECHO UNA CONSULTA AL EVENTO CLICK DEL COMBO QUE LLENO Y COLOCANDO LA SIGUIENTE CONSULTA
Código: Text
  1.  
  2. Private Sub Combo1_Click
  3. Combo1 = "Select Distinct Apellido From Clientes"
  4. End Sub
  5.  
  6.  

y no he podido aclarar mi problema... de ante mano muchas gracias..
salu2

28
Visual Basic 6.0 e inferiores / Re: Problema Al Asignar Columna De Un Dbgrid
« en: Sábado 4 de Diciembre de 2004, 19:28 »
hola payo22!!!

No se si sera un aporte pero tambien sucede cuando el no coinciden los tipos se da porque el la instruccion que estas utilizando funciona pora algunos tipos de campos ya sean estos numericos o char entiendes creo que puede ser un aporte
chau que estes bien...
salu2

29
Visual Basic 6.0 e inferiores / Hacer Filtro!!!
« en: Sábado 4 de Diciembre de 2004, 19:23 »
HOLA AMIGOS...DEL FORO!!
TENGO UNA PREGUNTA QUE HACERLES...
COMO HAGO UN FILTRO CON COMBOS!!!
EJEMPLO
TENGO UNA BASE DE DATOS EN SQL, Y UNA TABLA QUE TIENE LOS SIQUIENTES CAMPOS QUE
QUIERO PARA LA CONSULTA

NOMBREMARCA         MODELOSMARCA

LO QUE NECESITO HACER ES CUANDO SELECCIONE LA MARCA DEL VEHICULO ME SELECCIONE
LOS MODELOS QUE TIENE ESA MARCA DETERMINADA DE VEHICULO AHORA TODO ESTO LO
QUIERO HACER CON DOS COMBOS, Y UNA VEZ SELECCIONADO QUIERO PASARLOS A UNA CAJA DE
TEXTO...


SALU2
Y QUE ESTEN BIEN GRACIAS..
ATTE
VBMC_2004

30
Visual Basic 6.0 e inferiores / Re: Busqueda Sensistiva En Datagrid Por Un Text1
« en: Sábado 4 de Diciembre de 2004, 19:21 »
hola
Debes especificar un poquito mas tu pregunta pero creo que tengo algo para ti., que ojala te sirva...

Código: Text
  1.  
  2. Dim db As Database
  3. Dim mirec As Recordset
  4. Dim midato As String
  5.  
  6. Private Sub Dato_Change()
  7.         midato = DATO & "*"
  8.     If Option2.Value = True Then
  9.         Set mirec = db.OpenRecordset("select * from peliculas where codpelicula like '" & (midato) & "'")
  10.     Else
  11.         Set mirec = db.OpenRecordset("select * from peliculas where nombrepelicula like '" & (midato) & "'")
  12.     End If
  13.         Set Data1.Recordset = mirec
  14. End Sub
  15.  
  16. Private Sub dato_GotFocus()
  17.     DATO.BackColor = &HC0C000
  18. End Sub
  19.  
  20. Private Sub dato_LostFocus()
  21.     DATO.BackColor = &H80000005
  22. End Sub
  23.  
  24. Private Sub DBGrid1_Click()
  25.  
  26. End Sub
  27.  
  28. Private Sub Form_Load()
  29.    
  30.     Set db = OpenDatabase(App.Path & "\video.mdb")
  31.     Option1_Click
  32. End Sub
  33.  
  34.  
  35. Private Sub Option1_Click()
  36.     DATO.Visible = False
  37.     Set mirec = db.OpenRecordset("select * from peliculas")
  38.     Set Data1.Recordset = mirec
  39. End Sub
  40.  
  41. Private Sub Option2_Click()
  42.     DATO.Visible = True
  43.     DATO.SetFocus
  44. End Sub
  45.  
  46. Private Sub Option3_Click()
  47.     DATO.Visible = True
  48.     DATO.SetFocus
  49. End Sub
  50.  
  51. Private Sub VOLVER_Click()
  52. Unload Me
  53. End Sub
  54.  
  55.  
sabes en este codigo hace una consulta con la funcion "like" lo que hace este codigo es buscar por codigo,nombre,o rut en una caja de texto y lo muestra en un datagrid ahora
TE PIDO PIDO MIL DISCULPAS POR NO SER MAS CLARO ESTOY OCUPADO REALIZANDO UNA TRABAJO PARA LA UNIVERSIDAD Y TAMBIEN NO SE ALGUNAS COSAS

CHAU OJALA TE SIRVA
SALU2 :lightsabre:

31
Visual Basic 6.0 e inferiores / Re: Descarga De Formularios!!!
« en: Lunes 29 de Noviembre de 2004, 04:50 »
Para Cyclop
Es cierto si lo miras de esa forma pero resulta que esta fraccion de codigo esta dentro de otro FORM entiendes por los que cuando llama a otro setfocus esta llamando al FORM1 y debiera estar cerrando el FORM3 que es el cual esta inserto este codigo...

chau y que estes bien...

atte..

Mis disculpas por no aclarar bien lo que quiero...

Salu2 y muchas gracias

 :lightsabre:
Código: Text
  1.  
  2. Private Sub Combo4_Click()
  3. Combo2.Enabled = True
  4. If Text14.Text = "<ACTUALIZAR>" Then
  5.    MsgBox ("mensage"), vbExclamation
  6.    Form1.Show
  7.    Form1.Text1.SetFocus
  8.    Unload Me
  9. End If
  10. End Sub
  11.  
  12.  

32
Visual Basic 6.0 e inferiores / Imagenes Aleatorias
« en: Sábado 20 de Noviembre de 2004, 21:01 »
Hola de nuevo!!!

como es posible realizar que el MDIForm tenga imagenes aleatorias como fondo???

salu2
y gracias

33
Visual Basic 6.0 e inferiores / Re: Descarga De Formularios!!!
« en: Sábado 20 de Noviembre de 2004, 20:57 »
no sabes no lo tengo asi

lo tengo de esta manera..
Código: Text
  1.  
  2. Private Sub Combo4_Click()
  3. Combo2.Enabled = True
  4. If Text14.Text = "<ACTUALIZAR>" Then
  5.    Form3.Hide
  6.    Form1.Show
  7.    MsgBox ("mensage"), vbExclamation
  8.    CALL DESCARGAR
  9.    Form1.Text1.SetFocus
  10. End If
  11. End Sub
  12.  
  13.  

lo que trate de hacer fue...

copie el codigo que me diste y luego lo llame de esta forma...
Código: Text
  1.  
  2. CALL Descargar
  3.  
  4.  
Para llamar el procedimiento pero quedo igual cuando lo volvi a llamar del MDIform no estaba actualizado el combobox con la informacion del otro formularios que llame posteriormente

34
Visual Basic 6.0 e inferiores / Descarga De Formularios!!!
« en: Sábado 20 de Noviembre de 2004, 19:39 »
Hola amigos!!!

Hola tengo una inquietud yo comunmente descargo los formularios con el
"unload me" pero resulta que el unload me no me resulta dentro de un IF y despues de un MSGBOX osea hace tal cosa de lo contrario msgbox y descargue el formulario pero no lo puedo hacer con el UNLOAD ME solo me permite ocultarlo con FORMx.HIDE y yo necesito descargarlo existe algunh otro metodo????

muchas gracias y que esten muy bien

Salu2 :hola:

35
Visual Basic 6.0 e inferiores / Para Atondo!!!
« en: Jueves 18 de Noviembre de 2004, 06:22 »
Hola amigo atondo, sabes me resulto muchas gracias es lo que queria hacer claro que le agregue y quite codigo para hacerlo con una consulta SQL a una base de datos en un servidor SQL
muchas gracias

haaaa y gracias a todos los que quisieron cooperar...

Atte
vbmc_2004

36
Visual Basic 6.0 e inferiores / Re: Desafio!!!!
« en: Domingo 14 de Noviembre de 2004, 18:34 »
Hola hitman47!!

sabes el efecto del segundo codigo es mas menos lo que quiero hacer, pero con la diferencia es que el combo sea llenado mediante una consulta SQL a una base de datos SQL, y que el efecto se produsca a medida que el puntero del raton pase recorriendo el "codigo1","codigo2" y no cuando seleccionas uno de esos entiendes ahora el primer codigo despues que consulte la primera vez intente hacerlo y me resulto igual que el primer codigo que me enviaste..

chau chau y gracias

37
Visual Basic 6.0 e inferiores / Desafio!!!!
« en: Sábado 13 de Noviembre de 2004, 17:29 »
HOLA!!

Amigos tengo una inquietud, se las comento tengo un combo en donde muestro valores de una tabla, en este combo muestro los código de los productos, pero lo que quiero es a medida que despliego el combo me muestre en algo así como el “TOOLTIPTEXT” que me indique el nombre del producto que acompaña al codigo se entiende???? no lo he intentado hacer me podrían dar una reseña de cómo lo podría hacerlo  OJO no necesariamente deberia ser el TOOLTIPTEXT creo que podría mastrarlos en un “label” ojala entiendan la pregunta!!!


Chau chau y gracias :comp:

38
Visual Basic 6.0 e inferiores / Otra Inquietud!!!
« en: Viernes 12 de Noviembre de 2004, 07:11 »
Hola amigos .. les cuento mi problema!!!
Tengo una clave principal el cual valido etc.. pero luego pasa por un combobox el cual hace el termino de una validacion para una consulta sql y los datos que recojo los muestro en cajas de texto, la pregunta es como hago para limpiar las cajas de texto cada vez que el usuario cambie la opcion en el combobox por ejemplo
1.-Si seleciona 1 mostrar datos en cajas de texto
2.- Si seleciona 2 mostrar otros datos en las mismas cajas de texto
COMO HAGO PARA LIMPIAR CADA VEZ QUE SELECIONE LA OPCION UNO O DOS? EN EL COMBO?
PD SE ENTIENDE LA PREGUNTA???

ATTE
vbmc_2004 MUCHAS GRACIAS
pd HE PROBADO DE TODO POR EJEMPLO ..

IF COMBO1.TEXT "1" THEN
CAJA1.TEXT=""
CAJA1.TEXT=""
ELSE
IF COMBO1.TEXT "2" THEN
CAJA1.TEXT=""
CAJA1.TEXT=""
ENDIF
ENDIF
OTRO EN EVENTO CHANGE LO MISMO PERO LIMPIANDO LOS CAMPOS QUE REALIZO EN LA CONSULTA SQL
QUE MAS PUEDO HACER???

39
Visual Basic 6.0 e inferiores / Re: Solo Para Expertos!!!
« en: Viernes 12 de Noviembre de 2004, 07:03 »
Amigos gracias!!! por la ayuda no he tenido tiempo para probar todas las instrucciones que me dieron ahora si probe la  Cyclop y por lo menos ya no me da el error...pero igual probare los demas codigos apenas me quede tiempo gracias....
PD les cuento se muy poco de visual basic lo que se lo he aprendido de autodidacta de soy solito me ido metiendo en este fantastico mundo muchas por la ayuda...
Salu2

Atte
vbmc_2004 :lightsabre:

40
Visual Basic 6.0 e inferiores / Existe La Posibilidad De!!!
« en: Jueves 11 de Noviembre de 2004, 07:14 »
Hola soy yo de nuevo... una pregunta como puedo controlar una consulta sql a una base de datos en sql...... que cuando le digo que me muestre los datos y alguno de esos campos esta nulo no me muestre el error??? osea que me lo detecte antes de que me de el error y se vaya por otro lado??? entienden la pregunta???

salu2 y gracias

41
Visual Basic 6.0 e inferiores / Solo Para Expertos!!!
« en: Jueves 11 de Noviembre de 2004, 04:45 »
Hola amigos tengo el siguiente codigo que estoy utilizando para mostrar en un combo lo que tiene un campo de la tabla pero pasa lo siguiente...me muestra error porque el valor del campo en algunos casos sera nulo, lo que quiero hacer es que siga mostrarndo el campo que viene ejemplo

si el registro del campo1 esta vacio
continuar mostrando el registro del campo2 que faltaba en el registro campo1 y asi en adelante cuando encuentre otro registro que esta vacio en el campos1 y creo que no me resulta con el codigo que esta a continuacion que debo cambiar???

Private Sub Form_Load()
sql = " "
sql = sql + " select * from clientes"
Set vista = db.CreateDynaset(sql)
Do Until vista.EOF

If Combo1.AddItem(vista.Fields(1)) <> 0 Then
Combo1.AddItem (vista.Fields(1))
vista.MoveNext
Else
Combo1.AddItem (vista.Fields(2))
vista.MoveNext
End If

Loop

End Sub

Páginas: 1 [2]