Save Data in a SQL Server Image Column with VB6

I needed to retrieve image fields on SQL Server 7.0 with VB6, and I couldn’t find any article about it. So, I assume others have had the same problem. I’ve since found a method for doing it.

You must use Microsoft ADO 2.5 and set it into the following project reference:

 dim rst as new adodb.recordsetdim adoConn as new adodb.Connection

You also have to open the connection with the database.

 'Open recordset....rst.Open "Select * from 
where ", adoConn, adOpenKeyset,adLockOptimistic'THIS FUNCTION SAVES AN IMAGE 
INTO AN IMAGE DATATYPE FIELDPrivate Function SaveImage()  Dim mStream As New ADODB.Stream  With mStream    .Type = adTypeBinary    .Open    .LoadFromFile "NAME>"    rst(""). 
Value = .Read    rst.Update  End With  Set mStream = NothingEnd Function'THIS FUNCTION LOAD IMAGE FROM 
IMAGE DATATYPE FIELD AND SAVE IT INTO AFILE.....Private Function LoadImage()  Dim mStream As New ADODB.Stream  With mStream    .Type = adTypeBinary    .Open    .Write rst("")    .SaveToFile "NAME>", adSaveCreateOverWrite  End With  Set mStream = NothingEnd Function
 Aside from this method, you can use a picture control to store an image,put a picture control into a form, and call it PictureTemp.
 PictureTemp.DataField = "Immagine"			
'Set DataField....Set PictureTemp.DataSource = rst			
'Set DataSource
 You can use the PictureTemp.Picture property to get your image.
 Private Function LoadImage()  Dim mStream As New ADODB.Stream  With mStream    .Type = adTypeBinary    .Open    PictureTemp.DataField = "Immagine"			
'Set DataField....    Set PictureTemp.DataSource = rst			
'Set DataSource    Set MSFGRID.CellPicture = PictureTemp.Picture	
'Show image into a cell ofMicrosoft FlexGrid  End With  Set mStream = NothingEndFunction
		
				
				

				

					

			

				Previous			
						

				Next			
		
				
				
				

						

					

			

								

				

			Share the Post:		
				
					
		
				

			

								

				

					

								

						

															
																Share on facebook
							
																				
					
									

						

															
																Share on twitter
							
																				
					
									

						

															
																Share on linkedin
							
																				
					
						
				
				
					
		
							
		
					
		
				

			

								

				

			
    
    

		
				
				

				

					

			

				Overview			
							

				

					
		

			

							
		
				
				
					
		
							
		
				

						

					

			

								

				

					

			
						
		
				
				
				

				

			
The Latest 
		
				
				

				

					

				

				
			

		
				

				

			
				Exploring the Latest Tech Trends Impacting the Real Estate Industry			
		
				

					
			January 31, 2023		
				
				

			
The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may
		
				
				
				

				
			

		
				

				

			
				DevX Quick Guide to Data Ingestion			
		
				

					
			January 30, 2023		
				
				

			
One of the biggest trends of the 21st century is the massive surge in internet usage. With major innovations such as smart technology, social media, and online shopping sites, the internet has become an essential part of everyday life for a large portion of the population. Due to this internet
		
				
				
				

				
			

		
				

				

			
				7 Ways Technology Has Changed Traditional Payments			
		
				

					
			January 26, 2023		
				
				

			
In today’s digital world, technology has changed how we make payments. From contactless cards to mobile wallets, it’s now easier to pay for goods and services without carrying cash or using a checkbook. This article will look at seven of the most significant ways technology has transformed traditional payment methods.