I need help in reading a image from the database where by I have tried the code as follows but failed with the error message. [r]*Type mismatch*[/r]
Please advice on how to save this picture as well
many thanks
Code:
rsTemp.ActiveConnection = strConnection
rsTemp.Open "Select * FROM m_patient WHERE Dtd=0 And patient_id = " + Trim(str(FindID)), , adOpenForwardOnly, adLockReadOnly
Me.Picture1.Picture = IIf(IsNull(!general_case_study_photo), 0, !general_case_study_photo)
Please advice on how to save this picture as well
Code:
With cmdPatient
.CommandType = adCmdStoredProc
.ActiveConnection = strConnection
.CommandText = "amd_m_patient"
.Parameters("@general_case_study_photo") = Me.Picture1.Picture
.CommandTimeout = 0
Set rsPatient = cmdPatient.Execute
many thanks