elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / Visual Basic 6.0 y Outlook Preparar MSG en: 26 Febrero 2013, 17:12 pm

Pretendo utilizar VB6.0 para  preparar un msg en Outlook que rellene solo el campo asunto con datos de varios text. Dejando los demás campos, como destinatario, con copia etc que los rellene el usuario y proceda a enviarlo.

Podeis ayudarme...Gracias
2  Programación / Programación Visual Basic / VB 6.0 ADODC y EVENTOS Recordset en: 18 Enero 2013, 21:04 pm
Estoy tratando de trabajar con adodc y eventos, para poder conocer cuando un registro cambia de posición y el motivo.

Un poco del código..

Código
  1.  
  2. Public Sub Abrir_BD()
  3.  
  4.  
  5.    sBase = "C:\BaseDatos" & "\BD_97.mdb"
  6.  
  7.  
  8.    Set rstTrab = Nothing
  9.    Set cnn = Nothing
  10.  
  11.    Set cnn = New Adodb.Connection
  12.    Set rstTrab = New Adodb.Recordset
  13.  
  14.    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
  15.    rstTrab.Open ConsulTrab, cnn, adOpenKeyset, adLockBatchOptimistic
  16.  
  17.    If rstTrab.EOF And rstTrab.BOF Then
  18.        Cuantos = 0
  19.        Beep
  20.    Else
  21.        Beep
  22.    End If
  23.    Cuantos = rstTrab.RecordCount
  24.  
  25.  
  26. End Sub
  27.  
  28.  
  29.  
  30. Private Sub rstTrab_MoveComplete(ByVal adReason As Adodb.EventReasonEnum, ByVal pError As Adodb.Error, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)
  31. On Local Error Resume Next
  32.  
  33.    Adodc1.Caption = pRecordset.AbsolutePosition & " de " & pRecordset.RecordCount
  34. end sub
  35.  
  36. Private Sub rstTrab_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)
  37.  
  38. end sub
  39.  
  40. Private Sub rstTrab_WillChangeRecord(ByVal adReason As Adodb.EventReasonEnum, ByVal cRecords As Long, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)
  41.  
  42. end sub
  43.  

Intento conocer el valor de adReason, etc  para poder tomar decisiones de que ha ocurrido y que hacer a continuación.
Por ejemplo UpdateBatch o CancelBatch..

Pero no tengo claro los valores que pueden devolverme esas variables.

Pretendo que si hay cambios en el registro, antes de grabarlos solicitar que el usuario conteste a un textbox con YES.


Podeis encenderme una LUZ???


Saludos





3  Programación / Programación Visual Basic / Formulario independiente de la Resolucion de Pantalla en: 15 Enero 2013, 16:41 pm
Saludos,   estoy liado con un tema que seguro podeis ayudarme.

Los formularios no se representan igual en todos los PC's, está en función de la resolución de la pantalla.
Los Form's y sus Label's, Text's etc. no consigo que se coloquen, quedan fuera del form sin verse, etc.

Estoy siguiendo esto de MSN:

http://support.microsoft.com/kb/182070/es


Lo he copiado en un nuevo proyecto y no me funciona, el tamaño del Form si lo ajusta, pero los demás TEXT, o Label, no los cambia ni de tamaño ni los reubica, quedan invisibles, dependiendo de donde se encuentren en la pantalla. inicial.

Podeis ayudarme ?
Saludos.

4  Informática / Software / MSIEVE factorización en: 18 Diciembre 2012, 15:57 pm
MSIEVE   quien de esta "casa" lo utiliza y me ayuda con las opciones de comandos???
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines