Vb6.0: Saving images or picture to an access database

How can i saved image to an access database so that a folder in app.Path wil hold all the images. If i take the application to another system i will be able to fetch the images. also a code snippet to do Filecopy i mean backup and restore a database in vb6.0.
Display them with a sample code.
Reply here or to my {EMaIL REMOVED}
Posted On: Friday, November 30, 2012 Total Views: 190
View Complete with Replies

Related Messages:

convert vb6.0 exe to source code snippet snippet  (3 Views)

I have lost my vb6.0 source code snippet. Could anyone tell if there is a way to convert exe to source code.
appreciate any assist.
View Replies !
Trapping error message message in vb6.0(on error goto Err: not working)  (5 Views)
i having an error message in my adodb connection using mysql odbc driver I am being disconnected to the server because the serving is timeout or too busy,i want to trap the error to close and open the connection again, to resolve the difficulty and refresh the connection, but the on error statement does not trap the error, please assist on this, i used the on error statement many times and it did a great job but on this one i do not know why it isn't working,
heres my code snippet:
Dim msg as String
On Error GoTo Err:
Record_Type = "Products"
DeleteRecords = False
Passaddproduct = True
Frame5.Caption = "Copying Product Stock Database Record Stage " & Stage & " of " & StageTotal & ""
If Resume_Copy = True Then
ResumeBatchrowset = Startrowset Mod 1000
ResumeBatchrowset = 1000 - Val(ResumeBatchrowset)
sSql = "SELECT FIRST " & ResumeBatchrowset & " SKIP " & Startrowset & " * FROM STOCK WHERE INaCTIVED ='" & "F" & "' aND CaTEGORYCODE <> '" & "OWN" & "' aND Stockname <> '" & "F&N CONDENSED MILK 300ML" & "'"
Set rs = New aDODB.Recordset
rs.Open sSql, Cn, adOpenStatic

If rs.RecordCount = 0 Then
End If
End If
'If Resume_Copy = False Then

'End If
Do While rs.EOF = False


Stockname = Replace(rs.Fields Stockname, "'", "''")
ProductGroup = Replace(rs.Fields groupcode, "'", "''")

StockCode = rs.Fields StockCode
Code = rs.Fields StockCode

Sql = "Insert into tblproduct (product_code ,product_name ,Category ,product_group ," _
& "unit ,unit1 ,unit2 ,unit3, num, num1, num2, num3, " _
& "price, price1, price2, price3) Values ('" _
& rs.Fields StockCode & "','" & Stockname & "','" _
& rs.Fields categorycode & "','" & ProductGroup & "','" _
& rs.Fields uom & "','" & rs.Fields uom1 & "','" & rs.Fields uom2 & "','" & rs.Fields uom3 & "' ," _
& 1 & ", " & rs.Fields uom1rate & ", " & rs.Fields uom2rate & ", " & rs.Fields uom3rate & ", " _
& rs.Fields listprice & ", " & rs.Fields uom1unitprice & ", " & rs.Fields uom2unitprice & ", " & rs.Fields uom3unitprice & ");"

Conn.Execute (Sql)
ProgressBar1.Value = ProgressBar1.Value + 1
Label7.Caption = Int(ProgressBar1.Value * 100 ProgressBar1.Max) & " Completed"
Label8.Caption = "Copying: " & Stockname


If Not CopyID = 0 Then

Sql = "DELETE FROM tbluncopy_batch WHERE id = " & CopyID & ""
MdbConn.Execute (Sql)
Resume_Copy = False
CopyID = 0

End If


Totalrecords = Totalrecords + 1


If Totalrecords = TotalMax Then
End If

Call Stock_Update
Err:Err.ClearIf Conn.State = adStateOpen Then
Conn.CloseSet Conn = NothingCall Connect_clientdb If Not IsWebConnected(msg) Then
MsgBox "You've been disconnected to the Webserver", vbExclamation + vbOKOnly
End If
'errorSql = "SELECT * FROM tbluncopy_batch"
Set rs = New ADODB.Recordset
rs.Open Sql, MdbConn, adOpenStaticIf rs.RecordCount = 1 Then

CopyID = rs.Fields ID
Code = rs.Fields Code
UsedTotalRecords = True
Resume_Copy = True
Startrowset = rs.Fields Startrowset
Stage = rs.Fields Stage

GoTo UpdateAgain
Code = StockCode
Sql = "INSERT INTO tbluncopy_batch(code, record_type, startrowset, stage, status)VALUES ('" & Code & "','" & Record_Type & "', '" _
& Totalrecords & "','" & Stage & "', '" & "Incomplete" & "')"
MdbConn.Execute (Sql)
Sql = "SELECT * FROM tbluncopy_batch WHERE record_type = '" & "Products" & "' AND status = '" & "Incomplete" & "'"

Set rs = New ADODB.Recordset

rs.Open Sql, MdbConn, adOpenStatic

Trapping error in vb6.0(on error goto Err: not working)
why does the on error statement does not trap the error in vb6.0

If rs.RecordCount = 0 Then
End If CopyID = rs.Fields ID
Code = rs.Fields Code
UsedTotalRecords = True
Resume_Copy = True
Startrowset = rs.Fields Startrowset
Stage = rs.Fields Stage

GoTo UpdateAgain

End If
End Ifhope u can assist me on this, is there some thing wrong with the construction of the code, or what, thank u so much
This post has been updated by macosxnerd101: 03 December 2010 - 10:43 PMReason for update:: Pls use code tags
View Replies !
How can i find the comm port from device manager in vb6.0  (41 Views)
can any body tell me how can i i find the port of device manager in vb6.0Pls
View Replies !
How can I amake public properties of dll converted to vb6.0 display  (6 Views)
I took my time an desinged and VB.Net dll that I want to use in VB.Net. I used regasm test.dll tlb: test.dll it was successful. Then I reference it but I could not view any of the public property. Pls I want a assist.
This post has been updated by Nonasoft: 26 april 2007 - 08:17 aM
View Replies !
Seting a bold font in vb6.0 datagrid cell  (214 Views)
i got a silly question i got this code snippet that i fill some data grid with some value i want to do the text in specify cell with a bold font but i receive error message : .cell(.Rows 3).Font.Bold =
Here's the code i gues It's some thing i miss assist me please
If bEXIT Then
.cell(.Rows, 1).text = .Rows
.cell(.Rows, 2).text = RS3.Fields("serial").Value
.cell(.Rows, 2).Font.Bold = True
.cell(.Rows, 3).text = RS3.Fields("name").Value
.cell(.Rows, 3).Font.Bold = True
.cell(.Rows, 8).text = QTYP * Mult
best wishes
View Replies !
Refresh screen in vb6.0  (71 Views)
hi..... I am interfacing pin 10 and pin 11 of the db-25 parallel port. using inpout32.dll my pc detects the value of pin 10 as 63 when grounded. the value of pin 11 is 255 on the other.every time the value of the pin changes another form will be loaded. But when i EXIT from the form that is loaded due to the pin change, my pc stops replying.. Here is my code snippet
Option Explicit
Dim Value as Integer
Dim Portaddress as Integer
Private Sub cmdWriteToPort_Click()
'Write a byte to a port, read it back,
'& display the result.

End Sub
Private Sub Command1_Click()
Command1.Enabled = True
Unload Me
End Sub
Private Sub Form_Load()
'Test program for inpout32.dll
Value = 0
'Change this value to match the port to write to:
'(Usual parallel-port addresses are &h378, &h278, &h3BC)
Portaddress = 889
End Sub
Sub port()
Value = 127
Text1.Text = "127"
Do Until Value = 255
If Text1.Text = "63" Then
Unload Me
ElseIf Value = "255" Then
Unload Me
End If
Sleep 100
Out Portaddress, Value
Text1.Text = Inp(Portaddress)
Value = Value + 1
If Value = 255 Then
Value = 0
End If
End Sub
View Replies !
image printing in data report by using vb6.0  (336 Views)

i want to print picture image in data report with various photos while loading and printing
while printing it displays same image in all rows. how can i load the corresponding picture and make it printing
View Replies !
Out Of Memory in vb6.0 appliaction  (22 Views)

i ahve devloped a application in vb6.o that is executing at least 200 clients from last 3 years but heare from last 2 months tare getting out of memory error message
why It's going on assist me
View Replies !
display report for the searched item in access via vb6.0  (22 Views)
i am doing a project in vb6.0. But i have some difficulties in datareport and inputbox.
i am using vb6.0 and MS access. I linked both this by using addins Manager.
here are my doubts. Please assist me out.
* If i typed a employeeID no, in a input box, i want my project to display a datareport only for that employeeID. that is it should display all related fields of that employeeID.
*second, i am getting date as search item in my project. I want to know if the user has entered a correct date. If the format of the date is wrong, it should display an error message message. How can i do this
* If a user click cancel button in an inputbox, no operation should be performed. i want solution for this also. Recently if i clicked cancel button in the inputbox, it displays an error message "Type mismatch; Object record"
Pls provide immediate solutions for this.
View Replies !
images compression in vb6.0  (26 Views)
i want bulk amount of images in folderso i want compress the images and insert in to microsoft access data base please can any one send the code snippet
View Replies !
how can i make exe in vb6.0?  (18 Views)
I want to know that how can i make exe in vb6.0 If I use VB as front end and oracle as back end then how can i exe execute on another system that hasn't.
View Replies !
all vb6.0 builtin functions and there use  (9 Views)
vb6.0 all builtin functions and there use in programming
View Replies !
multi user environment code snippet snippet for vb6.0 with ms-access database project  (4 Views)
i am doing one project in vb6.0 with ms-access 2003 environment
I am using single user code snippet only
i want code for multi user access code using these platform
and another questions is
how to print the image file using vb6.0 coding.
please assist me its so urgent
View Replies !
How can i display image or picture data in vb6.0 form from ms-access2003   (13 Views)
How can i display image or picture data in vb6.0 form from ms-access2003 database using vb6.0 coding
How can i insert image or picture data in ms-access database's tablePlease assist me
Its so urgent for meadvance
View Replies !
Can I get source code snippet snippet from exe of vb6.0 application?  (4 Views)
Can I receive source code snippet from exe of vb6.0 application
View Replies !
EXIT vb6.0  (35 Views)
hello...i want to EXIT entirely from vb application upon clicking a command button that i will create... please post the codes.
thanx in advance.
View Replies !
code snippet snippet vb6.0 taskmanager  (44 Views)
I want to write code snippet that can proccess to Taskmanager and how can i write code to end proccess some program that execute on TaskManager.
View Replies !
how can i open the tiff file in vb6.0  (23 Views)
how to open the tiff file
View Replies !
connectivity with exl and vb6.0  (7 Views)
connectivity with exl and vb6.0
View Replies !
Debugging a vb6.0 activex dll(MTS) from Classic asp page  (13 Views)
I am a newcomer in aSP & VB 6.0i am working on a project that involves both vb 6.0 and aSP, the difficulty i am facing
now is i have a vb 6.0 activex dll that has some functionalities,after creating the virtual directory for my asp page it uses the dll functionalities ,it gives a error message (not able to create Object),now i want to debug the dll by the asp page i am browsing everytime.i googled several times but still not able to find a way to solve this
View Replies !