ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 2 از 2
  1. #1
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    429

    اموزش ذخیره تصویر در VB.NET و دیتابیس Access

    اموزش ذخیره تصویری در VB.NET و دیتابیس Access امید وارم که مفید باشه و استفاده کنید!


    ذخیره فایلها در دیتابیس های اکسس مایکروسافت


    1. از بسته نرم افزاری آفیس { Microsoft Access } را نصب نمایید.
    2. Microsoft Access را اجرا کرده و یک دیتا بیس با مشخصات زیر بسازید.




    1. جدول یا Table را ذخیره کنید .در صورت بروز پیام گزینه yes را انتخاب نمایید.
    2. در این جدول ما یک فیلد برای ذخیره داده ها یا بایت های فایل و یک فیلد برای ذخیره فرمت فایل تهیه کردیم.
    3. جدول را با نام دلخواه یا Table1 ذخیره نمایید.
    4. فایل را با نام Data.mdb در مسیر ذخیره برنامه در زیر شاخه x\bin\debug\ ذخیره نمایید.




    1. برنامه ویژوال بیسک8 را از بسته نرم افزاری ویژوال استودیو 2005 نصب و در صورت نصب اجرا نمایید.
    2. یک پروژه جدید از نوع WindowsApplication ایجاد و آنرا با نام دلخواه یا WindowsApplication1 ذخیره نمایید.
    3. از منوی Project گزینه Add Reference… را انتخاب نمایید.



    1. در پنجره ایکه باز می شود گزینه Adodb را انتخاب کنید و دکمه ok را کلیک کنید.


    1. در وسط فرم دوبار کلیک کرده تا رویداد لود فرم برای کد نویسی باز شود.







    1. یک فایل دلخواه با هر نوع فرمتی درمسیر C:\ کپی نمایید.




    در این آموزش از یک فایل تصویر یا عکس با نام Fish.jpeg استفاده شده.




    1. حال کد های زیر را در رویداد لود فرم کپی یا تایپ نمایید.


        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim RS As New ADODB.Recordset
    Dim db As New ADODB.Connection
    db = New ADODB.Connection
    db.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;")
    RS.Open("select id,File_value,org_Type from Table1", db, ADODB.CursorTypeEnum.adOpenStatic, _
    ADODB.LockTypeEnum.adLockOptimistic)

    Dim x As Object
    x = File.ReadAllBytes("c:\Fish.jpg")

    RS.AddNew()
    RS.Fields("File_value").Value = CType(x, Byte())

    Dim r As Object
    r = RS.Fields("File_value").Value
    File.WriteAllBytes("c:\New_Fish.jpg", CType(r, Byte()))
    RS.Update()

    End Sub




    1. این کدها را نیز در بالای کلاس فرم یعنی در بالا ترین خط کد نویسی فرم کپی نمایید.

    Option Explicit On
    Option Strict On
    Imports System
    Imports System.IO




    1. در رویداد لود فرم ابتدا یک اتصال بوسیله کد به فایل اکسس ساختیم. سپس تمامی بایت های فایل تست را در متغیر x قرار دادیم .
    2. یک رکورد جدید در یتابیس ایجاد و داده ها یا تمامی بایت های فایل را در فیلد File_value قرار دادیم. و رکورد جدید را ذخیره نمودیم.
    3. بلافاصله یک متغیر دیگر ایجاد کرده، داده های ذخیره شده را فراخوانی نموده و در این متغیر قرار دادیم.
    4. سپس برای تست مجددا فایل را با نام جدیدی در همان مسیر ساختیم.
    5. در این برنامه از ساده ترین کدها جهت آموزش ساده و سریع استفاده شده. شما آنرا انطور که میخواهید توسعه دهید.
    6. در صورت بروز مشکل با من در میون بگذارید مفتخر میشوم راهنمایی کنم.

    یادمان باشد هرچه آموختیم به دیگران نیز با افتخار بیاموزیم

    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  2. 1
  3. #2
    mzelecom
    كاربر عادي
    تاریخ عضویت
    2013 Feb
    نوشته ها
    1
    1
    0
    سلام
    این همونی بود که من می خواستم.
    اگر ممکنه روش برگرداندن فایل رو هم بگید که تکمیل بشه.
    در ضمن اگه طوری باشه که روی دیتابیس پسورد هم بزاریم تا دسترسی هم بهش نباشه عالی میشه.اگه بلد هستید اون هم توضیح بدید.
نمایش نتایج: از 1 به 2 از 2

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2