Fråga : Öppen klick avbildar från SQL i VB.Net

Förmiddag som I försöker att öppna en pdf, sparar lagrat i sql avbildar kolonnen. De nedanföra arbetena för kodifiera bötfäller, undantar mig måste att specificera ett arkiv till räddningen spara in. Hur kan I precis öppna spara och ger användaren den öppen/räddningdialogen boxas, i stället för att specificera ett arkiv?

dunkel da som ny
dunkla MyCB för SqlDataAdapter _
(”välj * från docimages var doc_number = ”” & MyDoc & ”” ”, lurar), som SqlCommandBuilder = ny SqlCommandBuilder (da)
dunkel ds som ny
da för

Con.Open för DataSet () (). Fyll (ds, ”docimages”) dunkel myRow för
som DataRow
myRow = ds. Bordlägger (”docimages”). Rows (0)

dunkla MyData () som Byte
MyData =
dunkelt K för myRow (”avbilda”), som Long


'dunkel fs för K = UBound (MyData) som nya FileStream (
dunkel fs för

som ny
'fs för FileStream _
(”C:\Adode\test.pdf”, FileMode.OpenOrCreate, FileAccess.Write). Läs (MyData, 0, K)
fs. Skriv (MyData, 0, K)
fs. Nära ()

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

lurar. Nära ()
lurar = Nothing
MsgBox (”avbilda hämtat”), " klar "

Svar : Öppen klick avbildar från SQL i VB.Net

Hi occ_user.

Detta kan inte göras med en härska.  Härskar avfyrar endast, när ett meddelande mottas, eller efter det har överfört.  Detta kräver en makro.  Makroen är enkel nog, men den ska måste att utplaceras till varje dator.  Framtidsutsikten har inte automatiserat hjälpmedel av fördelande makro.  Utplacera den ska makroen måste att göras manuellt.  Mer datorer det finns i organisationen mer av en smärta som, detta blir.  Också en smart användare kunde vända av makroen.

Den ovannämnda asiden, är här makroen.  Följ dessa anvisningar att använda den.

Framtidsutsikt 2007
1.  Starta framtidsutsikten
2.  Klicka bearbetar > makroen > den Visual Basic redaktören
3.  Utvidga Microsoft Officeframtidsutsikten anmärker och klickar på ThisOutlookSession, om inte redan utvidgat
4.  Kopiera kodifiera från kodifierasnippeten boxas och klistrar den in i det höger förser med rutor av framtidsutsikt fönster för VB-redaktör
5.  Redigera kodifiera som behövd.  Inklusive kommentar I fodrar wherever något behöver eller kan ändra
6.  Klicka diskettsymbolen på toolbaren till räddningen ändringarna
7.  Nära VB-redaktören
8.  Klicka bearbetar > förtroende centrerar
9.  Klicka Macro säkerhet
10. Fastställd Macro säkerhet till ”varningar för alla makro”,
11. Klicka REKO
12. Nära framtidsutsikt
13. Starta framtidsutsikten.  Framtidsutsikt ska skärm enboxas varning, att ThisOutlookSession innehåller makro och fråga, om du önskar att låta dem köra.  Något att säga ja.


Framtidsutsikt 2003 och tidigare
1.  Starta framtidsutsikten
2.  Klicka bearbetar > makroen > den Visual Basic redaktören
3.  Utvidga Microsoft Officeframtidsutsikten anmärker och klickar på ThisOutlookSession, om inte redan utvidgat
4.  Kopiera kodifiera från kodifierasnippeten boxas och klistrar den in i det höger förser med rutor av
5.  Framtidsutsikt fönster för VB-redaktör
6.  Redigera kodifiera som behövd.  Inklusive kommentar I fodrar wherever något behöver eller kan ändra
7.  Klicka diskettsymbolen på toolbaren till räddningen ändringarna
8.  Nära VB-redaktören
9.  Klicka bearbetar > makroen > säkerhet
10. Uppsättning säkerheten som är jämn till medlet
11. Nära framtidsutsikt
12. Starta framtidsutsikten
13. Framtidsutsikt ska skärm enboxas varning, att ThisOutlookSession innehåller makro och fråga, om du önskar att låta dem köra.  Något att säga ja.

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

Privata underApplication_ItemSend (det ByVal objektet som anmärker, avbryter som Boolean), Om Item.Class = olMail därefter Om InStr (1, Item.Subject, ”: ”) Därefter ”Redigera det warning meddelandet och betitla på det nästa fodrar som behövt.”, msgbox ”betvinga innehåller ett kolon. Behaga tar den bort och överför därefter igen. ” vbCritical + vbOKOnly, ”företagspolitik”, Annulleringen = True Avsluta om Avsluta om Avsluta suben