المشروع

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

5 ردود في هذا الموضوع

السلام عليكم

انا عندي مشروع للتخرج ومتاخرة مرة (عارفين الحوسة اللي تصير للطلبة) .

انا استخدم الفيجوال بيسك و ال ام اس اس كيو ال 2000.و المشروع متعلق بالسجلات الطبية المرفقة بصور الاشعة.

السؤال : كيف ادخل هذه الصور في قاعدة البيانات؟ هل عن طريق القاعدة نفسها ام عن طريق البيسك؟

ارجو ان تعطوني الحل بسرعة.....(اريد الكود او الشرح المفصل مع مثال اذا امكن)

شكرا لكم...

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .