User Name Password Register
DaniWeb IT Discussion Community
All
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 363,829 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 4,136 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser:
Views: 365 | Replies: 3
Reply
Join Date: May 2008
Posts: 18
Reputation: realone is an unknown quantity at this point 
Rep Power: 1
Solved Threads: 0
realone realone is offline Offline
Newbie Poster

re loading image from sql server using vb6

  #1  
May 16th, 2008
Thank u so much for sending this code,and i appreciate it so much.But i need to be able to move foward by getting thesame code that will save into the database,Others conversion i used were'nt working.Pls help me with the code that will save in to the database(SQL server) with VB6 this is the one that is loading from the DB

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String

Private Const ChunkSize As Integer = 16384
Private Const conChunkSize = 100

Private Sub Form_Load()
CN.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Pubs;Data Source=Test"
Dim strsql As String

strsql = "SELECT * FROM pub_info where pub_id = '9999'"
RS.Open strsql, CN, adOpenForwardOnly, adLockReadOnly
ShowPic
Set RS = Nothing
Set RS = New Recordset
End Sub

Private Sub ShowPic()
DataFile = 1
Open "pictemp" For Binary Access Write As DataFile
Fl = RS!logo.ActualSize ' Length of data in file
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = RS!logo.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Buffer(ChunkSize)
Chunk() = RS!logo.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
FileName = "pictemp"
Picture1.Picture = LoadPicture(FileName)
End Sub

I need exact of this that will save into DB

Thanks.Pls treat urgently
AddThis Social Bookmark Button
Reply With Quote  
Join Date: Feb 2007
Location: Bangalore,India
Posts: 1,140
Reputation: debasisdas is an unknown quantity at this point 
Rep Power: 4
Solved Threads: 68
debasisdas's Avatar
debasisdas debasisdas is offline Offline
Veteran Poster

Re: re loading image from sql server using vb6

  #2  
May 16th, 2008
what you have tried apart from this code ?
Share your Knowledge.
Reply With Quote  
Join Date: May 2008
Posts: 18
Reputation: realone is an unknown quantity at this point 
Rep Power: 1
Solved Threads: 0
realone realone is offline Offline
Newbie Poster

Re: re loading image from sql server using vb6

  #3  
May 16th, 2008
The one i tried were bringing different binary conversion different from the one u sent to me and from there i could not compare the one in the backend to the picture in the front end.unless i get thesame binary conversion that is when i would be able to compare and from there trap the duplicate of that binary
Thanks
Reply With Quote  
Join Date: Feb 2007
Location: Bangalore,India
Posts: 1,140
Reputation: debasisdas is an unknown quantity at this point 
Rep Power: 4
Solved Threads: 68
debasisdas's Avatar
debasisdas debasisdas is offline Offline
Veteran Poster

Re: re loading image from sql server using vb6

  #4  
May 19th, 2008
if there is any primay key in your table then
1.when you movenext retrive the value of the PK field
2.pass the same in a query to database
3.fetch the blob field.
4.convert the code to an image file.
Share your Knowledge.
Reply With Quote  
Reply

Only community members can participate in forum threads. You must register or log in to contribute.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

 

DaniWeb Visual Basic 4 / 5 / 6 Marketplace
Thread Tools Display Modes

Other Threads in the Visual Basic 4 / 5 / 6 Forum

All times are GMT -4. The time now is 12:12 pm.
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC