• Viernes 19 de Abril de 2024, 12:23

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 - TheBlackJoker

Páginas: [1]
1
PHP / Re:Crear mapa de google dinámicamente
« en: Miércoles 10 de Septiembre de 2014, 20:02 »
Y como lo hiciste? No pido una explicacion detallada, solo por si alguien mas tiene una duda igual que la tuya encuentre la solucion, suerte con tu proyecto!  :suerte:

2
Bases de Datos / Re:Mostrar Contenido de una base de Datos Mediante un combobox
« en: Martes 26 de Agosto de 2014, 17:32 »
Suponiendo que tu combo se llame CboProyecto, agregas este codigo en el evento click del mismo  :scream:
Código: Visual Basic
  1. Private Sub CboProyecto_Click()
  2. 'Para que al dar click al combo se valla al PROYECTO y sus datos correspondientes
  3. If CboProyecto.Text <> "" Then
  4.     Adodc1.Recordset.MoveFirst
  5.     For i = 0 To Adodc1.Recordset.RecordCount - 1
  6.         If CboProyecto.Text <> Adodc1.Recordset.Fields.Item("Proyecto") Then
  7.             Adodc1.Recordset.MoveNext
  8.         Else
  9.             Exit For
  10.         End If
  11.     Next i
  12. End If
  13. End sub
Y ESTE CODIGO, lo agregas en un procedimiento para llenar el cbo con los datos (como el form load, ahi estaria bien) :suerte:  :lightsabre:
Código: Visual Basic
  1. CboProyecto.Clear
  2.     Adodc1.Recordset.MoveFirst
  3.     For i = 0 To Adodc1.Recordset.RecordCount - 1
  4.         CboProyecto.AddItem Adodc1.Recordset.Fields.Item("Proyecto")
  5.         Adodc1.Recordset.MoveNext
  6.     Next i
  7. CboProyecto.ListIndex = 0
Avisame si funciona, estoy para ayudar ;)

3
Visual Basic 6.0 e inferiores / Re:clonar sdodb.recordset
« en: Jueves 14 de Agosto de 2014, 19:10 »
Entonces quieres clonar la BD entera o una sola tabla? Por que si es la BD se me ocurre usar un proceso externo, un copy del system32 y si es una tabla la verdad no tengo idea, casi siempre utilizo el metodo del for i para guardarlos en variables... pero claro, no trabajo con mas de 4000 registros y 10 campos.  :suerte: y lo siento si no soy de mucha ayuda  :losiento:

4
Visual Basic 6.0 e inferiores / Re:Cuando un campo pierde el focus suena el altavoz del PC
« en: Martes 12 de Agosto de 2014, 21:10 »
Al parecer eso sucede cuando das enter a un textbox que NO es multilinea. Para evitarlo se pone este codigo
Código: Visual Basic
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.     If KeyAscii = 13 Then KeyAscii = 0
  3. End Sub
  4.  
:suerte: y disculpa la tardanza, soy nuevo en el foro y apenas vi tu pregunta

5
Visual Basic 6.0 e inferiores / Re:totito la progra
« en: Martes 12 de Agosto de 2014, 21:03 »
Alguien puede decir bien que es un totito? al menos algo parecido al pseudocodigo, yo que se

6
Visual Basic 6.0 e inferiores / Re:clonar sdodb.recordset
« en: Martes 12 de Agosto de 2014, 21:01 »
Crea variables, y almacena en ellas los datos, agregas un nuevo recordset y metes los datos en el
Algo asi:
Código: Visual Basic
  1. var(1)=sdodb.recordset(1)
  2. var(2)=sdodb.recordset(2)
  3. var(3)=sdodb.recordset(3)
  4.  
  5. sdodb.recordset.addnew
  6.  
  7. sdodb.recordset(1)=var(1)
  8. sdodb.recordset(2)=var(2)
  9. sdodb.recordset(3)=var(3)
  10.  
PD: Diculpa tardar en responder pero soy nuevo en el grupo y apenas vi tu comentario :suerte:

7
Visual Basic 6.0 e inferiores / Re:error procedimiento demasiado largo
« en: Martes 12 de Agosto de 2014, 20:53 »
Para barbatusaf: Si tienes un codigo muy largo podrias poner algo asi, te reemplaza la comprobacion individual por una en un bucle for
Código: [Seleccionar]
        ChDir "c:\TURNO DE NOCHE\Partes de servicio\"
        Workbooks.Open Filename:="c:\TURNO DE NOCHE\Partes de servicio\agosto.xls"
        Sheets("dia 1").Select
        for i = 1 to 25
            If ActiveSheet.Range("b" & i).Value = "" Then
            ActiveSheet.Range("b" & i).Value = 3
        next isiento tardar en responder, pero apenas vi tu mensaje :suerte:

8
La taberna del BIT / Re:Bienvenido al foro: Presentate
« en: Jueves 7 de Agosto de 2014, 17:10 »
Nombre: Teo Gonzalez
Nick: Teo
Pais: Mexico
En que me gusta programar: Me gusta mas por lo general VB 6.0, aunque me esta agradando mucho Phyton

Páginas: [1]