Cuestión : Abrir la imagen de la gota del SQL en VB.Net

Estoy intentando abrir un archivo del pdf almacenado en columna de la imagen del sql. El código debajo de trabajos muy bien, a menos que tenga que especificar un directorio para salvar el archivo adentro. ¿Cómo puedo apenas abrir el archivo, y doy a usuario el abierto/excepto caja de diálogo en vez de especificar un directorio? el

amortigua a DA como nuevo
del _
de SqlDataAdapter (“seleccionar * de los docimages donde doc_number = “” y MyDoc y “” “, estafa) amortigua MyCB como SqlCommandBuilder = el nuevo
ds dévil de SqlCommandBuilder (DA) como nuevo
DA del

Con.Open del grupo de datos () (). Llenar (ds, “docimages”) el
amortiguan el myRow como el myRow de DataRow
= ds. Tablas (“docimages”). 0)

de Rows (amortiguan MyData () como Byte
MyData =
K dévil del myRow (“imagen”) como Long
el

'fs dévil de K = de UBound (MyData) como nuevo FileStream (
fs dévil del

como nuevo
'fs del _
(“C:\Adode\test.pdf”, FileMode.OpenOrCreate, FileAccess.Write) de FileStream. Leído (MyData, 0, K)
fs. Escribir (MyData, 0, K)
fs. Cerrar () el

fs = Nothing
MyCB = Nothing
ds = Nothing
DA = estafa de Nothing

. Cerrarse ()estafa del
= Nothing
MsgBox (“imagen recuperada”) class= del

Respuesta : Abrir la imagen de la gota del SQL en VB.Net

Hola, occ_user.

Esto no se puede hacer con una regla.  Las reglas encienden solamente cuando se recibe un mensaje o después de que ha enviado.  Esto requiere una macro.  La macro es bastante simple, pero tendrá que ser desplegada a cada computadora.  La perspectiva no tiene medios automatizados de distribuir macros.  Desplegar la macro tendrá que ser hecha manualmente.  Más computadoras hay en la organización más de un dolor que éste se convierte.  También, un usuario listo podría apagar la macro.

El aparte antedicho, aquí es la macro.  Seguir estas instrucciones de utilizarlo.

Perspectiva 2007
1.  Comenzar la perspectiva
2.  Chascar las herramientas > la macro > el redactor de Visual Basic
3.  Si no ampliado ya, ampliar los objetos de la perspectiva de Microsoft Office y chascar encendido ThisOutlookSession
4.  Copiar el código de la caja del recorte de código y pegarlo en el cristal derecho de la ventana del redactor de VB de la perspectiva
5.  Corregir el código según lo necesitado.  Incluí líneas de comentario dondequiera que que algo necesita o que puede cambiar
6.  Chascar el icono del diskette en la barra de herramientas para ahorrar los cambios
7.  Cerrar el redactor de VB
8.  Chascar las herramientas > el centro de la confianza
9.  Chascar la seguridad macra
10. Fijar la seguridad macra a las “advertencias para todas las macros”
11. Chascar la AUTORIZACIÓN
12. Cerrar la perspectiva
13. Comenzar la perspectiva.  La perspectiva exhibirá una advertencia de la diálogo-caja que ThisOutlookSession contiene macros y preguntar si usted quiere permitir que funcionen.  Decir sí.


Perspectiva 2003 y anterior
1.  Comenzar la perspectiva
2.  Chascar las herramientas > la macro > el redactor de Visual Basic
3.  Si no ampliado ya, ampliar los objetos de la perspectiva de Microsoft Office y chascar encendido ThisOutlookSession
4.  Copiar el código de la caja del recorte de código y pegarlo en el cristal derecho de
5.  Ventana del redactor de VB de la perspectiva
6.  Corregir el código según lo necesitado.  Incluí líneas de comentario dondequiera que que algo necesita o que puede cambiar
7.  Chascar el icono del diskette en la barra de herramientas para ahorrar los cambios
8.  Cerrar el redactor de VB
9.  Chascar las herramientas > la macro > la seguridad
10. Fijar el nivel de seguridad al medio
11. Cerrar la perspectiva
12. Comenzar la perspectiva
13. La perspectiva exhibirá una advertencia de la diálogo-caja que ThisOutlookSession contiene macros y preguntar si usted quiere permitir que funcionen.  Decir sí.
1:
2:
3:
4:
5:
6:
7:
8:
9:

Application_ItemSend secundario privado (artículo de ByVal como objeto, cancelación como boleana)
    Si Item.Class = olMail después
        Si InStr (1, Item.Subject, “: ") entonces
            “Corregir el mensaje de alerta y el título en la línea siguiente según lo necesitado.”
            el msgbox “el tema contiene dos puntos.  Quitarlo por favor y después enviarlo otra vez. ”, vbCritical + vbOKOnly, “política de compañía”
            La cancelación = verdad
        Terminar si
    Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us