Mensajes

Claro pero podrian reestablecer un backup de esa base de datos, y volver todo a la normalidad (generalmente el nombre de los backups llevan el nombre de la bd y la fecha)

Código [Seleccionar] Expandir


    Dim hwnd As Long
    hwnd = Val(txtHWND) 'handle del textbox receptor


seguro que es un handle valido? O querias hacer txtHWND.handle (no creo)
Asegurate de que hwnd exista, puedes ver el handle de la ventana con Spy++ o elemental code hizo un "form flotante" que te dice el titulo, handle y clase de la ventana que esta debajo del puntero del mouse

Y no hicieron backups de la base de datos antes de que se queme?
El sistema es configurable como para elegir el nombre de la base de datos?

Ese es el original, fijate la primera linea de mi post, lo que pasa es que ese source tiene soporte hasta las cosas que salieron en windows 98 /200, yo lo agregue lo "nuevo" de XP y windows 7

raul podrías crear tu propio tema para tu duda en concreto ...

Ouch

leliluna, no quiero ser portador de malas noticias, pero ese conector es para proyectores u otros monitores, no creo que sean para TV (a menos que la notebook tenga esa capacidad en especial, pero no es generica) asi que quise meter el tema o no simorg?

Hay otras formas, pero a mi me encanta las expresiones regulares

Código (vb) [Seleccionar] Expandir


Public Function GetData(ByVal strText As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object

   Set oRegExp = CreateObject("VBScript.RegExp")

   With oRegExp
       .Pattern = "[\w\d]+\|[\w\d]+\|[\w\d]+\|[\w\d]+\|(\d+)"
       .Global = True
       .IgnoreCase = True
   End With

   Set oMatches = oRegExp.Execute(strText)

   For Each oMatch In oMatches
       cTemp.Add oMatch.SubMatches(0)
   Next

   Set GetData = cTemp
End Function

Private Sub Form_Load()
Dim vItem                       As Variant
Const S                         As String = "dato1|dato2|dato3|dato4|1 dato1|dato2|dato3|dato4|2 dato1|dato2|dato3|dato4|3"
   For Each vItem In GetData(S)
       MsgBox vItem
   Next
End Sub


[configuracion regional]

En mi caso soy de america del sur y los códigos que vengo probando me dicen que soy de españa... 

Se supone que:

Código [Seleccionar] Expandir

Const LOCALE_SENGLANGUAGE = &H1001
Debería darme el nombre en inglés, no!? pero me dice Spain, no mi país... o.O

España en ingles = Spain

En realidad sin GPS no se puede exactamente , la geolocalizacion IP no es muy exacta que digamos, asi que dependemos de la configuracion regional del sistema



Fijate que ahi dice "Ubicacion", bueno, es eso o nada, podemos estar en China y seguira diciendo que estamos en Argentina

podrian ser un poco mas inteligentes y que no diga siempre 11.6 O o

Para mi que quieren tramar algo para esa fecha ... .11/6 o 6/11 D:

Agregadas las propiedades
ItemWidth, ItemHeigth, ItemLeft, ItemTop y sus respectivos SubItem (width, left, heigth y top )
y el Evento Scroll

Bueno simorg yo prefiero llevar un vga a 3 rca y 1 3.5mm -> 2 rca :E
Pero yo estoy en america latina y la norma es NTSC