Hoy subo una funcioncita que me hice hace bastante tiempo para cambiar la contraseña de una base de datos en access desde visual basic 6.
'CAMBIA LA PASS DE LA BASE DE DATOS
Public Sub cambia_pass(NewClave As String, Optional OldClave As String = "")
On Error GoTo actimel
Dim sDBTmp As String
Dim NombreMdb As String
' en Proyecto->Referencias: Microsof Jet and Replication objects 2.6 Library
Dim je As JRO.JetEngine
Set je = New JRO.JetEngine
' BD a la que vamos a poner/modificar la contraseña
NombreMdb = "mibasededatos.mdb"
sDBTmp = "DBTemp.mdb" ' creamos una BD temporal
' si existe la borramos
If Len(Dir$(sDBTmp)) Then Kill sDBTmp
sDBTmp = App.Path && "\" && sDBTmp
' compactamos la BD y le asignamos la contraseña
je.CompactDatabase "Data Source=" && NombreMdb && ";" && _
"Jet OLEDB:Database Password=" && OldClave && ";" && _
"Data Source=" && sDBTmp && ";" && _
"Jet OLEDB:Database Password=" && NewClave
'eliminamos la BD original y renombramos la temporal
Kill NombreMdb
Name sDBTmp As NombreMdb
Exit Sub
actimel:
End Sub
Hoy he visto una de esas películas que no deberían de haber visto nunca la luz, es más no deberían ni de existir. Si algún conocido te cae muy pero que muy mal, ¡¡recomiéndasela!!
Película de infectados que intentan matar a los supervivientes de dicha plaga.
Puntos a favor
– Penosa hasta la médula.
– Si la hubiesen titulado I am Cagarro, sería un gran punto a su favor.
Puntos en contra
– La he visto en V.O. Subtitulada, nada tiene que ver ya que los diálogos son inexistentes e incoherentes.
– Las historia es penosa, desestructurada, llena de tópicos y bastante aburrida.
– La acción es totalmente incoherente, despropósito tras despropósito y además sin venir a cuento.
– Un larguísimo etcétera …
Si te ha quedado alguna duda comprueba el trailer … xD
Ésto es algo bastante sencillo y muy útil para personalizar/dinamizar los encabezados de los datareports desde visual basic 6.0.
'con with evitamos el tener que repetir todo el rato la ruta
'en ReportHeader pones la sección en la que se encuentra el control
With DataReport1.Sections("ReportHeader")
'cualquier etiqueta
.Controls.Item("Etiqueta1").Caption = "loquesea 1"
'etiqueta n
.Controls.Item("Etiquetan").Caption = "loquesea n"
'imagen
Set .Controls("Image1").Picture = LoadPicture("ruta de la imagen")
End With
Hoy he visto por séptima u octava vez la película/OVA Vampire Hunter D Bloodlust.
Me gusta verla de encuando en cuando 😀
La película nos transporta a un futuro lejano en el que los vampiros se encuentran al borde de la extinción ya que son erradicados en su mayoría por cazadores mitad humanos mitad vampiros.
Puntos a favor
– El argumento no esta mal.
– Variedad de historias.
Puntos en contra
– La traducción al español es penosa, las entonaciones son inexistentes y los diálogos parecen traducidos con el google traslate … palabra a palabra, recomiendo encarecidamente verla en V.O. Subtitulada.
– Las historias de los personajes secundarios se narran de corrido y sin detalles, la atmósfera que esto crea es bastante confusa e inadecuada.
– A veces parece que la acción va a trompicones pegando saltos de una escena a otra sin aparente motivo.
