Vraag : Het open Beeld van de Vlek van SQL in VB.Net

Ik probeer die een pdfdossier te openen in sql beeldkolom wordt opgeslagen. De code onder de werkenboete, behalve moet ik een folder specificeren om het dossier binnen op te slaan. Hoe kan ik het dossier, de gebruiker Open/sparen dialoogvakje in plaats van het specificeren van een folder geven enkel openen en?

Schemerig DA als Nieuwe SqlDataAdapter _
(„selecteer * uit docimages waar doc_number = „“ & MyDoc & „“ „,) bedriegt
Schemerige MyCB als SqlCommandBuilder = Nieuwe (DA)
Schemerige ds SqlCommandBuilder als Nieuwe Dataset ()

Con.Open ()
DA. Vul (ds, „docimages“)/> Schemerige myRow
myRow = ds. Lijsten („docimages“). Rows (0)

Schemerige MyData () als Byte
MyData = myRow („Beeld“)
Schemerig K als Long
K = (MyData)/>
'Schemerige fs


als Nieuwe FileStream _
(„C:\Adode\test.pdf“, FileMode.OpenOrCreate, FileAccess.Write)
'fs. Lees (MyData, 0, K)
fs. Schrijf (MyData, 0, K)
fs. Dichte ()

fs = Nothing
MyCB = Nothing
ds = Nothing
DA = Nothing

bedriegt. Dichte ()
bedriegt = Nothing
MsgBox („teruggewonnen Beeld“)

Antwoord : Het open Beeld van de Vlek van SQL in VB.Net

Hallo, occ_user.

Dit kan niet met een regel worden gedaan.  De regels steken slechts in brand wanneer een bericht wordt ontvangen of nadat het heeft verzonden.  Dit vereist een macro.  De macro is eenvoudig genoeg, maar het zal aan elke computer moeten worden opgesteld.  De vooruitzichten hebben geen geautomatiseerd middel om macro's te verdelen.  Het opstellen van de macro zal moeten manueel worden gedaan.  De meer computers zijn daar in de organisatie meer van een pijn dit wordt.  Ook, kon een savvy gebruiker de macro uitzetten.

Bovengenoemd opzij, hier is de macro.  Volg deze instructies om het te gebruiken.

Vooruitzichten 2007
1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van het venster van de Redacteur van VB van Vooruitzichten
5.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
6.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
7.  Sluit de Redacteur VB
8.  Klik Hulpmiddelen > het Centrum van het Vertrouwen
9.  Klik MacroVeiligheid
10. Plaats MacroVeiligheid aan „Waarschuwingen voor alle macro's“
11. Klik O.K.
12. Sluit Vooruitzichten
13. Begin Vooruitzichten.  De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.


Vooruitzichten 2003 en vroeger
1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van
5.  Het venster van de Redacteur van VB van vooruitzichten
6.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
7.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
8.  Sluit de Redacteur VB
9.  Klik Hulpmiddelen > Macro > Veiligheid
10. Bepaal het Niveau van de Veiligheid aan Middel
11. Sluit Vooruitzichten
12. Begin Vooruitzichten
13. De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.

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

Privé SubApplication_ItemSend (het Punt ByVal als Voorwerp, annuleert Van Boole) Als Item.Class = olMail toen Als InStr (1, Item.Subject, „: “) Toen „Geef het de waarschuwingsbericht en titel op de volgende lijn uit zoals nodig.“ msgbox het „Onderwerp bevat een dubbelpunt. Verwijder het gelieve en dan opnieuw te verzenden. “, vbCritical + vbOKOnly, „het Beleid van het Bedrijf“ Annuleer = Waar Beëindig als Beëindig als Beëindig Sub