Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

how to add image on vb-access 2003,how to save?how to retrieve?

i am a student,i do one sample project in vb.6 and access 2003.i designed one form for students entry,name and address, etc,this details are saved in database and retrive in my choice.
but i have plan to insert student pictrue in my 'students entry form'.i have no idea about this picture insertation.can u please help me, how to insert pictrue,how to stored in database,how to retrive photo on my search command.

i also attached my source code,module source code and screen shot of form.

yours faithfully
boby kuriakose



----------------------------------SOURCE CODE ENTRY FORM---------------------------------

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim i As Integer
Dim sngDailyRate As Single
Dim sngNumberOfDays As Integer
Dim sngHireCost As Single

Dim strLastName As String * 20
Dim strFirstName As String * 20
Dim s As String
Dim sql As String






Private Sub Form_Load()
sngDailyRate = 12.5
sngNumberOfDays = 0
' Days.Text = Format(sngNumberOfDays, "General Number")
sngHireCost = 0
strLastName = ""
strFirstName = ""
HireCost = Format(sngHireCost, "Currency")
Optname.Value = True
txtsrchname.Enabled = True
cmddelete.Enabled = False


--------------------MODULE SOURCE CODE------------

Option Explicit
Global cn As New Connection
Public Sub open_connection()
End Sub

Public Sub Main()
If cn.State Then cn.Close
cn.Open "microfox", "t", "a26yo1a01i0oo8Qr5ty51w521bipa"
frmSplash.Show
End Sub
Sign In or Register to comment.