• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

k.alnamshan

اعضاء جدد
  • عدد المشاركات

    5
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن k.alnamshan

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. اريد insert image into sql server بواسطة vb.net

    الان محتاج اسحب الصور من القاعدة انتظر ردكم بفارغ الصبر
  2. اريد insert image into sql server بواسطة vb.net

    جزاكم الله كل خير       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ِِ
  3. شكراً على الطرح الجميل   اتمنى ترفق مثال بالـVB.NET
  4. اريد insert image into sql server بواسطة vb.net

    أشكرك على الرد   ماهي طريقة حفظ المسارات بحيث انها تكون مشتركه بين المستخدمين لان الصور تضاف من اكثر من مستخدم وتعرض على اكثر من مستخدم
  5. السلام عليكم ورحمة الله وبركاته   انا طالب جامعي متدرب في شركة  طلب مني برنامج ادخال وسترجاع البيانات  يتكون من : 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   اتمنى سرعة الاجابه وشكرا..,