• 0
k.alnamshan

اريد insert image into sql server بواسطة vb.net

سؤال

السلام عليكم ورحمة الله وبركاته


 


انا طالب جامعي متدرب في شركة 


طلب مني برنامج ادخال وسترجاع البيانات 


يتكون من :


1- مدخل بيانات (بيانات المدخل , بيانات المعقب , المستندات و صور الفواتير)


2- معقب


3- مشرف على العمليه


 


-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


المشكلة في حفظ الصور


لاني حفظت مسار الصوره وليست الصوره نفسها وتكون المشكله ان الصوره تعرض في جهاز المدخل والاجهزة الاخرى لاتعرض فيها الصور


 


وهذا الكود السابق:


Dim j as string


Dim k As New OpenFileDialog

       "|*.*" = k.Filter 

        ()k.ShowDialog

        j = k.FileName

        (PictureBox1.Image = Image.FromFile(j

 

 

  Dim cmd As New OleDb.OleDbCommand("insert into Attach_T values(" & TextBox7.Text & ",'" & TextBox6.Text & "','" & j & "','" & TextBox5.Text & "')", con)

       

 

            Try

                con.Open()

 

                cmd.ExecuteNonQuery()

 

               MsgBox("Done")

     

      Catch ex As Exception

   

            MsgBox(ex.Message)

            Finally

                con.Close()

            End Try

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

اريد كود يحفظ الصورة بنوع image في قاعدة بيانات sql server

ويقرائها من القاعده

ويكون الربط بالكود فقط بدون tools

 

اتمنى سرعة الاجابه وشكرا..,

post-276310-0-93950900-1374727625_thumb.

0

شارك هذا الرد


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

5 إجابة على هذا السؤال .

  • 0

تعود ألا تحفظ صور في قاعدة بيانات فقط قم بحفظ المسارات فيها والمجلد الأصلي -ضعه في جدول الإعدادات-

 

أما إذا أصررت على حفظ صور فانظر على نوع البيانات BLOB

0

شارك هذا الرد


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

أشكرك على الرد


 


ماهي طريقة حفظ المسارات بحيث انها تكون مشتركه بين المستخدمين


لان الصور تضاف من اكثر من مستخدم وتعرض على اكثر من مستخدم


0

شارك هذا الرد


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

جزاكم الله كل خير

 

 

 

Imports System.Data.SqlClient

Imports System.IO

Public Class Form1

Dim constring As String = "Data Source=RUH-SQLCLS-test;Initial Catalog=TSDB;User ID=TRSADMIN;[email protected]"

Dim con As New SqlConnection(constring)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

 

 

 

 

Dim fname As String

If Filedlg.ShowDialog = DialogResult.OK Then

picbox1.Image = Image.FromFile(fileDlg.FileName)

Dim m() As String = Split(Filedlg.FileName, "\")

Array.Reverse(m)

fname = m(0)

Else

Exit Sub

End If

Dim arrfilename() As String = Split(fname, "\")

Array.Reverse(arrfilename)

Dim ms1 As New MemoryStream()

picbox1.Image.Save(ms1, picbox1.Image.RawFormat)

Dim arrimg() As Byte = ms1.GetBuffer

ms1.Close()

Dim strSQL As String = "insert into attach_t(attach_id,attach_name,file1,desecration,picture1)" & "values(@id,@na,@fil,@dese,@pic)"

Dim cmdSQL As New SqlCommand(strSQL, con)

With cmdSQL

.Parameters.Add(New SqlParameter("@id", SqlDbType.VarChar)).Value = InputBox("ادخل الرقم")

.Parameters.Add(New SqlParameter("@na", SqlDbType.VarChar)).Value = InputBox("ادخل اسم الاب")

.Parameters.Add(New SqlParameter("@fil", SqlDbType.VarChar)).Value = InputBox("ادخل الاسم الاول")

.Parameters.Add(New SqlParameter("@dese", SqlDbType.NVarChar, 255)).Value = ("اخل ملاحظات عن الصورة")

.Parameters.Add(New SqlParameter("@pic", SqlDbType.Image)).Value = arrimg

End With

Try

con.Open()

cmdSQL.ExecuteNonQuery()

con.Close()

MsgBox("The new item added in table ")

Catch ex As SqlException

MsgBox(ex.Message)ِ

Finally

con.Close()

End Try

End Sub

 

 

 

End Classِِ

0

شارك هذا الرد


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

الان محتاج اسحب الصور من القاعدة


انتظر ردكم بفارغ الصبر


0

شارك هذا الرد


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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

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

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