Frage : Klecks-Bild von SQL in VB.Net öffnen

Ich versuche, eine pdf-Akte zu öffnen, die in der sql-Bildspalte gespeichert. Der Code unterhalb der Arbeiten fein, ausgenommen ich ein Verzeichnis spezifizieren muss, um die Akte innen zu speichern. Wie kann ich die Akte gerade öffnen und gebe dem Benutzer das geöffnete/außer Dialogfeld, anstatt, ein Verzeichnis zu spezifizieren?

verdunkeln DA als neues SqlDataAdapter _
(„* von den docimages vorwählen in denen doc_number = „“ u. MyDoc u. „“ „, Betrug),
verdunkeln MyCB als SqlCommandBuilder = neues SqlCommandBuilder (DA)
schwacher ds als neues Datensatz ()

Con.Open ()
DA. (Ds, „docimages“)
füllen verdunkeln myRow als DataRow
myRow = ds. Tabellen („docimages“). Rows (0)

verdunkeln MyData () als Byte
MyData = myRow („Bild“)
schwaches K als Long
K = UBound (MyData)

'schwache Rumpfstation als neues FileStream (


schwache Rumpfstation als neues FileStream („C:\Adode\test.pdf“, FileMode.OpenOrCreate, FileAccess.Write)
_
'Rumpfstation. Gelesen (MyData, 0, K)
Rumpfstation. Schreiben (MyData, 0, K)
Rumpfstation. ()

schließen Rumpfstation = Nothing
MyCB = Nothing
ds = Nothing
DA = Nothing

Betrüger. Schließen ()
Betrug = Nothing
MsgBox („Bild zurückgeholt“)

Antwort : Klecks-Bild von SQL in VB.Net öffnen

Hallo, occ_user.

Dieses kann nicht mit einer Richtlinie getan werden.  Richtlinien abfeuern nur r, wann eine Mitteilung empfangen, oder nachdem sie gesendet.  Dieses erfordert ein Makro.  Das Makro ist genug einfach, aber es muss zu jedem Computer entfaltet werden.  Aussicht hat nicht automatisierte Mittel des Verteilens von Makro.  Das Entfalten des Makro muss manuell getan werden.  Mehr Computer gibt es in der Organisation mehr Schmerz, dieses wird.  Auch ein ausgebuffter Benutzer könnte das Makro abstellen.

Die oben genannte Nebenwirkung, ist hier das Makro.  Diese Anweisungen befolgen, sie zu verwenden.

Aussicht 2007
1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe des Herausgeberfensters VB der Aussicht kleben
5.  Den Code redigieren, wie gebraucht.  Ich einschloß Kommentarzeilen ch, gleichgültig wo, das etwas benötigt oder ändern kann
6.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
7.  Den VB Herausgeber schließen
8.  Werkzeuge > Vertrauens-Mitte anklicken
9.  Makrosicherheit anklicken
10. Makrosicherheit auf „Warnungen für alle Makro“ einstellen
11. O.K. anklicken
12. Aussicht schließen
13. Aussicht beginnen.  Aussicht anzeigt eine Dialogkasten Warnung n, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.


Aussicht 2003 und früheres
1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe von kleben
5.  Herausgeberfenster VB der Aussicht
6.  Den Code redigieren, wie gebraucht.  Ich einschloß Kommentarzeilen ch, gleichgültig wo, das etwas benötigt oder ändern kann
7.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
8.  Den VB Herausgeber schließen
9.  Werkzeuge > Makro- > Sicherheit anklicken
10. Das Sicherheits-Niveau auf Mittel einstellen
11. Aussicht schließen
12. Aussicht beginnen
13. Aussicht anzeigt eine Dialogkasten Warnung n, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
Privates VorApplication_ItemSend (ByVal Einzelteil als Gegenstand, Löschen, wie Boolesch)
    Wenn Item.Class = olMail dann
        Wenn InStr (1, Item.Subject, „: ") dann
            „Die Warnmeldung und den Titel auf der folgenden Linie redigieren, wie gebraucht.“
            msgbox „das Thema enthält einen Doppelpunkt.  Es bitte entfernen und dann wieder senden. “, vbCritical + vbOKOnly, „Firma-Politik“
            Löschen = ausrichtet et
        Beenden wenn
    Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us