الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن كود أحفظ به صورة في Sql Serveur +vb Net 2005

بدأه hadaana في 24 يناير 2009 · 1 رد · 644 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أنا أريد أن أحفظ صورة في SQL SERVEUR +VB net 2005

أنا بستعمل Public datasetperso As New DataSet+Public MyAdaptperso As OleDbDataAdapter

Dim Strliste As String = "select * from PERSONNEL"

MyAdaptperso = New OleDbDataAdapter(Strliste, Con)

MyAdaptperso.Fill(datasetperso, "PERSONNEL")

Dim cmdperso As OleDbCommandBuilder = New OleDbCommandBuilder(MyAdaptperso)

Dim ajoutRow As DataRow

ajoutRow = datasetperso.Tables("PERSONNEL").NewRow

ajoutRow("société") = ComboBox1.Text

ajoutRow("Chantier") = ComboBox7.Text

ajoutRow("Matricule") = TextBox2.Text

ajoutRow("prenom") = TextBox4.Text

ajoutRow("nom") = TextBox3.Text

ajoutRow("nom_complet") = TextBox4.Text & TextBox3.Text

ajoutRow("date_naissance") = DateTimePicker1.Text

ajoutRow("lieu_naissance") = ComboBox2.Text

ajoutRow("Situation_f") = ComboBox3.Text

ajoutRow("adresse") = TextBox6.Text

ajoutRow("ville") = ComboBox4.Text

ajoutRow("qaulification") = ComboBox5.Text

ajoutRow("date_entree") = DateTimePicker2.Text

ajoutRow("date_sortie") = TextBox7.Text

ajoutRow("salire_b") = TextBox8.Text

ajoutRow("deplac_b") = TextBox9.Text

ajoutRow("salaire_actuel") = TextBox14.Text

ajoutRow("deplac_act") = TextBox16.Text

ajoutRow("date_augmen") = TextBox15.Text

ajoutRow("cnss") = TextBox10.Text

ajoutRow("cin") = TextBox11.Text

ajoutRow("valable_du") = DateTimePicker3.Text

ajoutRow("valabl_eau") = DateTimePicker4.Text

ajoutRow("Prime") = TextBox12.Text

ajoutRow("date_prime") = TextBox13.Text

ajoutRow("user2") = myusername

ajoutRow("date_inscription") = Now.Date + Now.TimeOfDay

datasetperso.Tables("PERSONNEL").Rows.Add(ajoutRow )

MyAdaptperso.Update(datasetperso, "PERSONNEL")

'afichage

datasetperso.Clear()

MyAdaptperso.Fill(datasetperso, "PERSONNEL")

DataGridView1.DataSource = datasetperso

DataGridView1.DataMember = "PERSONNEL"

DataGridView1.Refresh()

MsgBox("Enregistrement terminèe avec succes

#2

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

أخي السائل لحفظ صورة في قاعدة البيانات SQL Server افعل التالي :-

طبعا يفترض بك وضع مربع صورة على الفورم ومن ثم اخذ الصورة من المستخدم - ثم تكتب التالي في كود حفظ الصورة في قاعدة البيانات :-

 Dim fs As FileStream = New FileStream(.OFDialog.FileName, FileMode.Open, FileAccess.Read)
					Dim r As BinaryReader = New BinaryReader(fs)
					Dim FileByteArray(fs.Length - 1) As Byte
					r.Read(FileByteArray, 0, CInt(fs.Length))

					GSQLCmd.Parameters.Add("@CategoryPicture", SqlDbType.Image).Value = FileByteArray

GSQLCmd.ExecuteNonQuery()

حيث GSQLCmd عبارة عن متغير مصرح عنه كالتالي 

Public GSQLCmd As SqlCommand = GSQLConnection.CreateCommand

بالتوفيق

مختار أحمد

موقع الويب : http://www.luxorsystems.com

منتدياتنا :http://www.luxorsystems.com/forum/index.php

للمراسلة

luxorsystems@hotmail.com

للاتصال التليفوني

00201228085123

مواضيع مشابهة