如何使用VB保存並加載圖像6

Question

在SQL Server 2005中使用VB 6我已經將數據庫中的主題字段的數據類型設置爲'圖像'。當我從圖片控件中保存圖像時，它會在數據庫中顯示爲二進制。然而，我無法將二進制文件從數據庫加載到圖片控件。如何使用圖片控件以編程方式保存並加載圖片？

Answer 1

它可能不會對您造成影響，但在這種情況下，我通常會將這些字節轉儲爲臨時文件，然後使用標準VB6 LoadImage從磁盤轉到映像對象。當然，你應該在之後刪除臨時文件。這是我不知道使用Win API和/或自定義類型庫的唯一方法。

Answer 2

一個相當簡單的例子加載一個圖象從一個記錄（RS）到圖像控制（IMAGE1）：

Set strStream = New ADODB.Stream 
strStream.Type = adTypeBinary 
strStream.Open 

strStream.Write RS.Fields("**YourImageField**").Value 

strStream.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite 
Image1.Picture = LoadPicture("C:\Temp.bmp") 
Kill ("C:\Temp.bmp")