كيف يمكن عرض أكثر من صورة فى الفورم الواحدة بناء على كود المريض ؟

السلام عليكم ..

1. سيكون الكود شبيها بمايلي :

   SqlDataAdapter dataAdapter = new SqlDataAdapter(new SqlCommand("SELECT pic FROM imageTest WHERE pic_id = 1", yourConnectionReference));
   DataSet dataSet = new DataSet();
   dataAdapter.Fill(dataSet);
   
   if (dataSet.Tables[0].Rows.Count == 1)
   {
       Byte[] data = new Byte[0];
   	if(!Convert.IsDBNull(dataSet.Tables[0].Rows[0]["pic"]))
   	{
       data = (Byte[])(dataSet.Tables[0].Rows[0]["pic"]);
       MemoryStream mem = new MemoryStream(data);
       //yourPictureBox.Image= Image.FromStream(mem);
   	imageSlider1.Images.Add(Image.FromStream(mem));
   	}
   }

    

houssam11350_11350 كتب:

السلام عليكم ..

1. سيكون الكود شبيها بمايلي :

   SqlDataAdapter dataAdapter = new SqlDataAdapter(new SqlCommand("SELECT pic FROM imageTest WHERE pic_id = 1", yourConnectionReference));
   DataSet dataSet = new DataSet();
   dataAdapter.Fill(dataSet);
   
   if (dataSet.Tables[0].Rows.Count == 1)
   {
       Byte[] data = new Byte[0];
   	if(!Convert.IsDBNull(dataSet.Tables[0].Rows[0]["pic"]))
   	{
       data = (Byte[])(dataSet.Tables[0].Rows[0]["pic"]);
       MemoryStream mem = new MemoryStream(data);
       //yourPictureBox.Image= Image.FromStream(mem);
   	imageSlider1.Images.Add(Image.FromStream(mem));
   	}
   }

    

السلام عليكم

اشكرك اخى الفاضل على محاولتك مساعدتى ولكن من فضلك ؟

mem هنا هل اخذ مسار الصورة من data كما فهمت يعنى هل mem هو الذى يحمل الصورة ؟

هل هنا تم تحديد row معين ام انه سيتم عرض الكل ؟

2. هل اقوم بتسجيل اسم الصورة فقط فى قاعدة البيانات واقوم بربطها بكود المريض ام ان هناك طريقة اخرى ؟

السلام عليكم ..

1. الكود السابق يفترض أن الصورة كلها مخزنة في قاعدة البيانات و لكن البعض لا يفضل تخزين الصور داخل القاعدة حتى لا يزداد حجمها , يمكنك فقك تخزين مسار الصورة .
2. المثال السابق يفترض وجود صورة واحدة , لكن يمكن جعله لأكثر من صورة .
3. ما هي قاعدة البيانات المستخدمة و ما هي بنية الجدول الذي تخزن فيه الصور ..؟

houssam11350_11350 كتب:

السلام عليكم ..

1. الكود السابق يفترض أن الصورة كلها مخزنة في قاعدة البيانات و لكن البعض لا يفضل تخزين الصور داخل القاعدة حتى لا يزداد حجمها , يمكنك فقك تخزين مسار الصورة .
2. المثال السابق يفترض وجود صورة واحدة , لكن يمكن جعله لأكثر من صورة .
3. ما هي قاعدة البيانات المستخدمة و ما هي بنية الجدول الذي تخزن فيه الصور ..؟

السلام عليكم

قاعدة البيانات المستخدمة هى SQL Server

قمت بتصميم جدولين 

الأول: كود المريض - اسمه - العنوان - الوزن - الحالة المرضية ....

الثانى: كود المريض - موقع الصورة ( هذا ماساقوم بعمله وهو تخزين مسار الصورة )

السلام عليكم ..

سيكون الكود بالشكل :

SqlConnection connection = new SqlConnection(@"Server=.\sqlexpress;Database=DB02;Trusted_Connection=Yes;");
            SqlCommand command = new SqlCommand("SELECT PatientID , ImagePath FROM PatentPhoto WHERE PatientID=@PatientID;");

            command.Parameters.AddWithValue("@PatientID", 1);
            command.Connection = connection;
            SqlDataAdapter adapter = new SqlDataAdapter(command);
            DataTable datatable = new DataTable();
            adapter.Fill(datatable);
            dataGridView2.DataSource = datatable;
            foreach (DataRow row in datatable.Rows)
            {
                if (!Convert.IsDBNull(row["ImagePath"]))
                {
                    MessageBox.Show((String)row["ImagePath"]);
                    imageSlider1.Images.Add(Image.FromFile((String)row["ImagePath"]));
                }
            }

أخي الفاضل حسام

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

أعذرني علي فتح الموضوع مرة أخري

لكن واجهتني مشكلة أثناء استرجاع الصورة مرة أخري من قاعده البيانات

أولاً هذا الاجراء يقوم بجلب البيانات من الجدول بناء علي شرط الكود

Alter Proc AkaratGetImages

@TransCode int

as
begin

Select TransCode,TransPicLayout,TransPic from Tbl_AkarImages where (TransCode=@TransCode)


end

 Dim cmd As New SqlCommand("AkaratGetImages", sqlcon)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("@TransCode", TextBox1.Text)

        cmd.Connection = sqlcon
        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)
        DataGridView1.DataSource = dt

        For Each row As DataRow In dt.Rows
            If Not Convert.IsDBNull(row("TransPicLayout")) Or Not Convert.IsDBNull(row("TransPic")) Then
                MessageBox.Show(DirectCast(row("TransPicLayout"), [String]))
                MessageBox.Show(DirectCast(row("TransPic"), [String]))
                ImageSlider1.Images.Add(Image.FromFile(DirectCast(row("TransPicLayout"), [String])))
                ImageSlider2.Images.Add(Image.FromFile(DirectCast(row("TransPic"), [String])))
            End If
        Next

حاولت تغيير اسلوب العرض واستخدمت DataReader وتم عرض الصور لكن لا استطيع تصفح الصور الموجوده في السجلين رقم 2 كما هو موضح

ولكن استطيع استعراض سجل واحد فقط من السجلين مع ان من المفترض ان المعطيات للبراميتر واحد وهو الرقم 2 فكيف اعرض محتويات الباراميتر رقم بالكامل

وعدد الصور بداخلهم 4 صور 

       Dim cmd As New SqlCommand("AkaratGetImages", sqlcon)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("@TransCode", TextBox1.Text)

        cmd.Connection = sqlcon
        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)
        DataGridView1.DataSource = dt


        sqlcon.Open()


        Dim GetData As SqlDataReader = cmd.ExecuteReader
        GetData.Read()

        Dim TransPicLayout = GetData("TransPicLayout")
        Dim TransPic1 = GetData("TransPic")


        If Not ImageSlider1 Is System.DBNull.Value Then
            Dim data As Byte() = DirectCast(TransPicLayout, Byte())
            Dim ms As New MemoryStream(data)
            ImageSlider1.Images.Add(Image.FromStream(ms))


            If Not ImageSlider2 Is System.DBNull.Value Then
                Dim data2 As Byte() = DirectCast(TransPic1, Byte())
                Dim ms2 As New MemoryStream(data2)
                ImageSlider2.Images.Add(Image.FromStream(ms2))

            End If
        End If

        sqlcon.Close()

لقد قمت بتعديل الكود و الان لا يوجد أخطاء اثناء استرجاع الصور لكن عندما اضغط علي السهم الجانبي لاستعراض الصورة التالية يقوم بتكرار الصورة الحالية ولا يعرض الصورة التي تليها

Dim cmd As New SqlCommand("AkaratGetImages", sqlcon)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("@TransCode", TextBox1.Text)


        cmd.Connection = sqlcon
        Dim da As New SqlDataAdapter(cmd)


        Dim dt As New DataTable


        da.Fill(dt)
        DataGridView1.DataSource = dt

        sqlcon.Open()

        Dim GetData As SqlDataReader = cmd.ExecuteReader
        GetData.Read()


        For Each row As DataRow In dt.Rows
            If Not Convert.IsDBNull(row("TransPicLayout")) Or Not Convert.IsDBNull(row("TransPic")) Then


                Dim TransPicLayout = GetData("TransPicLayout")
                Dim data As Byte() = DirectCast(TransPicLayout, Byte())


                Dim TransPic = GetData("TransPic")
                Dim data2 As Byte() = DirectCast(TransPic, Byte())


                Dim ms As New MemoryStream(data)
                ImageSlider1.Images.Add(Image.FromStream(ms))


                Dim ms2 As New MemoryStream(data2)
                ImageSlider2.Images.Add(Image.FromStream(ms))
            
            End If
        Next

        sqlcon.Close()

هذا ما تنبهت له لكنك سبقتني بالاجابة

الــ ImageSlider هو عنصر موجود على الفورمو بالتالي لا يمكن ان يكون له القيمة System.DBNull.Value بأي حال من الأحول  .

بارك الله فيك دائما سباق بالخير

علي جانب المشاركة لاحظت ان المنتدي لم يعد يرسل تنبيهات علي البريد كالعاده مما أثر علي متابعتي للمنتديات كما يجب ... اذهب للوكر ستجدني هناك بمشاركة اتحدث عن هذا الامر

شكرا لك مرة أخري

السلام عليكم ..

بارك الله بك أخي محمد ..

اقتباس

علي جانب المشاركة لاحظت ان المنتدي لم يعد يرسل تنبيهات علي البريد كالعاده مما أثر علي متابعتي للمنتديات كما يجب ... اذهب للوكر ستجدني هناك بمشاركة اتحدث عن هذا الامر

 أنا شخصيا استخدم التنبيهات في المنتدى نفسه و أتابع المواضيع الجديدة من خلال رابط (جديد المنتدى الموجود في الشريط العلوي ) .و لم اعد استخدم طريقة الايميل ..

شكرا لك .