Cita:
Iniciado por gasafonso 
Yo tengo un archivo de texto que tiene en la primer linea una fecha
quiero que cada vez que entras al progframa , verifique la fecha si conincide que se habra sino no
PD: Como hago para guardar una imagen en una base de datos
gracias
Bueno, son dos preguntas distintas que deberian estar en diferentes posts.
A la primera:
Que verifique conqué?. Supongamos que con la fecha actual:
Código:
Dim a() As String, s As String
Open "c:\Archivo.txt" For Input As #1
Line Input #1, s
Close #1
a = Split(s, vbNewLine)
If a(0) = Date Then
MsgBox "Si"
Else
MsgBox "No"
End If
En rojo: Ruta y nombre del archivo.
La primera línea del archivo contiene
únicamente una fecha.
A la segunda:
Código:
Dim b() As Byte
Open sRuta For Binary As #1
ReDim b(FileLen(sRuta))
Get #1, , b
Close #1
rs.Fields("Foto").AppendChunk b
rs.Update
Donde:
'
sRuta' es un string que contiene la ruta y el nombre del archivo imagen (incluida la extensión)
'
rs' es un recordset que previamente has abierto a la tabla que contiene el campo imagen.
'"
Foto"' es el nombre del campo imagen de la tabla.
