ورود

View Full Version : مبتدی: ذخیره فایل word


ali162
شنبه 19 بهمن 1392, 21:38 عصر
سلام خدمت همگی دوستان که من با کمک شما عزیزان این زبان رو یاد گرفتم.
من می خوام توی بانک اکسس فایل word را ذخیره کنم و هر وقت که بهش احتیاج داشتم اون رو باز کنم.
ولی نمی دونم که چه جوری میشه فایل رو در عکسس ذخیره و اون رو باز کرد؟
لطفاً راهنماییم کنید.
siyn71
شنبه 19 بهمن 1392, 22:46 عصر
سلام..معمولا فایلها مثل عکس.صدا.فیلم وغیره را در بانک ذخیره نمیکنن چون باعث کند شدن بانک اطلاعاتی میشه.
معمولا روش کار اینطوری هستش که فایل ها دریک پوشه کپی میشن بعدآدرس اون فایل درون بانک ذخیره میشه..برای خواندن هم آدرس فایلو از بانک دریافت میکنن و فایلو از رو آدرسش لود میکنیم.
ali162
یک شنبه 20 بهمن 1392, 21:59 عصر
سلام استاد عزیز
من فقط می خوام چند نمونه فایل آفیس ذخیره بشه و تعدادش هم کمتر از 10 تاست و حجمش هم به یک مگ هم نمیرسه
در ضمن اون چیزی که شما گفتید اگه مسیر فایل عوض بشه دیگه نمیشه اون رو فراخوانی کرد
محسن واژدی
سه شنبه 22 بهمن 1392, 20:15 عصر
سلام علیکم
تابع زیر تصویری را در بانک ذخیره میکنه، میتوانید با کمی تغییر میتوانید هرفایلی را در بانک ذخیره و بازیابی کنید:
http://barnamenevis.org/showthread.php?401468-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D8%A7-ADODC-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%AD%D8%B1%D9%81%D9%87-%D8%A7%DB%8C&p=1783829&viewfull=1#post1783829

موفق باشید
ali162
چهارشنبه 23 بهمن 1392, 15:07 عصر
لطفا در سطح پایین تر راهنمایی کنید

این لینکی که برای من گذاشتید سطحش خیلی بالا بود و من چیزی نفهمیدم لطفا در حد مبتدی بهم بگید
یکی جواب مارو بده
محسن واژدی
پنج شنبه 24 بهمن 1392, 16:32 عصر
تابع زیر محتویات فایل را در یک متغیر آرایه میریزه، بعد از آن طبق روال معمول متغیر را در بانک ذخیره کنید:
Public Function GetFileBinaryDatas(sFileName$) As Byte()
On Error Resume Next
Dim iFrFile%
Dim arr() As Byte
iFrFile% = FreeFile

Open sFileName$ For Binary As iFrFile%
ReDim arr(LOF(iFrFile%))
Do While Not EOF(iFrFile%)
Get iFrFile%, , arr
If Err.Number <> 0 Then Exit Do
Loop

Close iFrFile%

GetFileBinaryDatas = arr
End Function


برای مثال:
Private Sub Command1_Click()
Call GetFileBinaryDatas("c:\Teaching0054.doc")
End Sub


موفق باشید
ali162
پنج شنبه 24 بهمن 1392, 17:08 عصر
من چه جوری باید از کدی که فرستادید در ذخیره فایل توی اکسس استفاده کنم؟
محسن واژدی
جمعه 25 بهمن 1392, 00:43 صبح
من چه جوری باید از کدی که فرستادید در ذخیره فایل توی اکسس استفاده کنم؟
برنامه تان را تا چه اندازه نوشته اید؟ در صورت لزوم ضمیمه پست کنید
از همان دستوری که برای ذخیره متغیرها و مقادیر در بانک استفاده کرده اید برای ذخیره آرایه محتویات فایل در بانک استفاده کنید