Question : Ouvrir l'image de goutte du SQL dans VB.Net

J'essaye d'ouvrir un dossier de pdf stocké dans la colonne d'image de SQL. Le code au-dessous des travaux très bien, à moins que je doive spécifier un annuaire pour sauver le dossier dedans. Comment est-ce que je peux donne juste ouvrir le dossier, et à l'utilisateur l'ouvert/sauf la zone de dialogue au lieu de spécifier un annuaire ? le

obscurcissent le DA en tant que nouveau
du _
de SqlDataAdapter (« choisir * à partir des docimages où doc_number = «  » et MyDoc et «  » « , escroquerie) obscurcissent MyCB comme SqlCommandBuilder = le nouveau
faible ds de SqlCommandBuilder (DA) en tant que nouveau
DA du

Con.Open d'ensemble de données () (). Remplir (ds, « docimages »)
obscurcissent le myRow comme myRow de DataRow
= ds. Tableaux (« docimages »). 0)

de Rows (obscurcissent MyData () comme Byte
MyData =
faible K de myRow (« image ») comme Long
le

'faible fs de K = d'UBound (MyData) en tant que nouveau FileStream (
faible fs de

en tant que nouveau
'fs de _
(" C:\Adode\test.pdf », FileMode.OpenOrCreate, FileAccess.Write) de FileStream. Lu (MyData, 0, K)
fs. Écrire (MyData, 0, K)
fs. Fermer () le

fs = Nothing
MyCB = Nothing
ds = Nothing
le DA = l'escroc de Nothing

. Fermer () le
= Nothing
MsgBox (« image recherchée ») class= de

Réponse : Ouvrir l'image de goutte du SQL dans VB.Net

Bonjour, occ_user.

Ceci ne peut pas être fait avec une règle.  Les règles mettent le feu seulement à quand un message est reçu ou à après qu'il a envoyé.  Ceci exige un macro.  Le macro est assez simple, mais il devra être déployé à chaque ordinateur.  Les perspectives n'ont pas des moyens automatisés de distribuer des macros.  Le déploiement du macro devra être fait manuellement.  Plus il y a dans l'organisation les plus ordinateurs d'une douleur que ce devient.  En outre, un utilisateur intuitif pourrait arrêter le macro.

L'aparté ci-dessus, voici le macro.  Suivre ces instructions de l'employer.

Perspectives 2007
1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office et cliquer dessus ThisOutlookSession
4.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de la fenêtre de rédacteur du VB des perspectives
5.  Éditer le code comme nécessaire.  J'ai inclus des lignes de commentaire là où que quelque chose a besoin ou peut changer
6.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
7.  Fermer le rédacteur de VB
8.  Cliquer les outils > le centre de confiance
9.  Cliquer la macro sécurité
10. Placer la macro sécurité aux « avertissements pour tous les macros »
11. Cliquer l'OK
12. Clôturer les perspectives
13. Commencer les perspectives.  Les perspectives montreront un avertissement de dialogue-boîte que ThisOutlookSession contient des macros et demander si vous voulez leur permettre de fonctionner.  Dire oui.


Perspectives 2003 et plus tôt
1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office et cliquer dessus ThisOutlookSession
4.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de
5.  Fenêtre de rédacteur du VB des perspectives
6.  Éditer le code comme nécessaire.  J'ai inclus des lignes de commentaire là où que quelque chose a besoin ou peut changer
7.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
8.  Fermer le rédacteur de VB
9.  Cliquer les outils > le macro > la sécurité
10. Placer le niveau de sécurité au milieu
11. Clôturer les perspectives
12. Commencer les perspectives
13. Les perspectives montreront un avertissement de dialogue-boîte que ThisOutlookSession contient des macros et demander si vous voulez leur permettre de fonctionner.  Dire oui.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 :

Application_ItemSend secondaire privé (article de ByVal comme objet, annulation comme booléenne) S'Item.Class = puis olMail S'InStr (1, Item.Subject, « : ") puis « Éditer le message d'avertissement et le titre sur la prochaine ligne comme nécessaire. » le msgbox « le sujet contient des deux points. Veuillez l'enlever et l'envoyer alors encore.  », vbCritical + vbOKOnly, « politique de compagnie » L'annulation = rectifient Finir si Finir si Finir le sous-marin