كيف أدخل صور أشعة في قاعدة البيانات

There are 2 options:

If you are going to access the VB Form from one computer only,then it is better to save just the image path

If the VB form will be used from different computers,then you can save the image to database using ADO

Here is an example:

Database name: University

Table name: Students

Fields:

StudentID

StudentName

Image

The data type of field "Image" is image

We Add common control ,to allow the user to open an image from a file,then we store the path in a variable,and display the image in a PictureBox

CommonDialog1.Flags = 524288
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

Then we open ADO recordset for the Student table,and create a stream to read the image data and write it to the image field

Set rs = New Recordset
Set st = New Stream
st.Type = adTypeBinary
st.Open
st.LoadFromFile (path)
ConString = "Provider=SQLOLEDB.1;Server=madaniora;Database=University;UID=sa;PWD="
rs.Open "select*from Students", ConString, 3, 3
rs.AddNew
rs("StudentName") = "Madani"
rs("Image") = st.Read
rs.Update
rs.Close
st.Close

Complete code

Private path As String
Dim rs As Recordset
Dim st As Stream
Private Sub Command1_Click()
CommonDialog1.Flags = 524288
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub Command2_Click()
Set rs = New Recordset
Set st = New Stream
st.Type = adTypeBinary
st.Open
st.LoadFromFile (path)
ConString = "Provider=SQLOLEDB.1;Server=madaniora;Database=University;UID=sa;PWD="
rs.Open "select*from Students", ConString, 3, 3
rs.AddNew
rs("StudentName") = "Madani"
rs("Image") = st.Read
rs.Update
rs.Close
st.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rs = Nothing
Set st = Nothing
End Sub

sql_image.zip

thanks for wonderfull code

but if posible would you tell as how we can retrive the image saved in field

and

how display it inside the form , also in the DataReport

if posible

thanks again

كيف يتم ذلك فى vb6

لانى اعتقد ان هذا الكود للــ vb.net

ارجو إرفاق الملف من جديد لانه محذوف من قبل الادارة

المثال مرفق في رد على موضوع الاتصال بقواعد البيانات وكيفية الاضافة والحذف والتعديل وهو مكتوب بVB6