تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص التعامل مع الصور
#1
شباب

عندي كود لم يعمل لدي وهو كود حفظ الصورة Data Access 2016


كود :
Me.PicStudent.Image.Save(MemStream, Imaging.ImageFormat.Jpeg)
                   DataPic_Insert = MemStream.GetBuffer()
                   MemStream.Read(DataPic_Insert, 0, MemStream.Length)

                   .Item("StudentPic") = DataPic_Insert


واتمنى افادتي بكود اظهار الصورة لو سمحتم

لدي مشروع راح اتابعه بعد انتهائي من المشروع الى في يدي حاليا
الرد }}}}
تم الشكر بواسطة:
#2
لا ادري هل هناك فرق بين اصدار 2010 و الاكسس الذي لديك لكن هذا الكلاس يعمل
PHP كود :
Imports System.IO

Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Dim dt As DataTable
    Dim da 
As OleDb.OleDbDataAdapter
    Dim cm 
As OleDb.OleDbCommandBuilder
    Private Sub fill_dt
()
 
       dt = New DataTable
        da 
= New OleDb.OleDbDataAdapter("select * from pics"con)
 
       cm = New OleDb.OleDbCommandBuilder(da)
 
       da.Fill(dt)
 
   End Sub

    Private Sub gd
()
 
       fill_dt()
 
       If dt.Rows.Count 0 Then Exit Sub
        Dim b
() As Byte Nothing
        b 
dt(0)(1)
 
       Dim ms As New MemoryStream(b)
 
       PictureBox1.Image Image.FromStream(ms)
 
   End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub



    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog DialogResult.OK Then
            PictureBox1
.Image Image.FromFile(o.FileName)
 
       End If
 
   End Sub

    Private Sub Button2_Click_1
(sender As ObjectAs EventArgsHandles Button2.Click
        Dim dr 
As DataRow dt.NewRow
        Dim ms 
As New MemoryStream
        PictureBox1
.Image.Save(msImaging.ImageFormat.Jpeg)
 
       dr(1) = ms.ToArray
        dt
.Rows.Add(dr)
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class
[
align=right][/align

ضع زرين ومربع صورة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
راح اجربه اخي الفاضل انتظر ردي
الرد }}}}
تم الشكر بواسطة:
#4
مشكور رحم الله والديك شغال 100%
واذا واجهتني مشكلة راح اضع موضوع للمشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال بخصوص ALTER TABLE dubai.eig 5 104 25-02-17, 09:35 PM
آخر رد: مساعدة
  سؤال حول حماية المشروع Mohamed20 1 73 24-02-17, 12:59 PM
آخر رد: Master Hacker
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 154 22-02-17, 08:07 PM
آخر رد: عباسة
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,071 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 47 20-02-17, 02:54 AM
آخر رد: ناصر شير
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 89 20-02-17, 02:40 AM
آخر رد: ناصر شير
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 131 20-02-17, 02:13 AM
آخر رد: khodor1985
  سؤال حول تخزين الملفات abudawoodd 7 113 17-02-17, 11:59 PM
آخر رد: abudawoodd
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 56 14-02-17, 07:23 PM
آخر رد: dubai.eig
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم