مشکل در بالا رفتن حجم دیتا بیس [بایگانی]

barname_m708

دوشنبه 24 فروردین 1388, 17:03 عصر

با سلام
من یک برنامه دارم که در اون برنامه باید عکس پرسنل ذخیره بشه.من وقتی عکس ها رو به دیتا بیس وارد میکنم حجم دیتا بیس خیلی بالا میره.لطفا راهنایی بفرمایید که برای رفع این مشکل من باید چه کار کنم

payam59

دوشنبه 24 فروردین 1388, 17:52 عصر

حتي المقدور سعي كن عكسها در خارج از اكسس باشند و لينك آدرس عكسها را ذخيره كني.
اگر هم مجبور به ذخيره عكسها هستي عكسها را در يك ديتابيس ديگه ذخيره كن و به ديتابيس فعلي لينك كن.
در ضمن فرمت و سايز عكسهايي كه ذخيره ميكني در نظر بگير

barname_m708

سه شنبه 25 فروردین 1388, 12:59 عصر

حتي المقدور سعي كن عكسها در خارج از اكسس باشند و لينك آدرس عكسها را ذخيره كني.
اگر هم مجبور به ذخيره عكسها هستي عكسها را در يك ديتابيس ديگه ذخيره كن و به ديتابيس فعلي لينك كن.
در ضمن فرمت و سايز عكسهايي كه ذخيره ميكني در نظر بگير

با عرض سلام
در مورد پیشنهاد اولتون اگه ممکنه یک مثال بزنید.چون من میخوام وقتی بر روی فرم روی هر رکورد جا به جا میشم عکس مربوط به آن رکورد هم نمایش داده بشه
در مورد پیشنهاد دوم لطفا در مورد نحوه لینک این دو تا دیتا بیس توضیح بیشتری بفرمایید
ضمنا فرمت عکس ها باید چی باشه؟

masoud.ramezani

سه شنبه 25 فروردین 1388, 13:32 عصر

سلام

همانطور که دوستمان گفتند معمولا برای انجام اینکار فقط آدرس فایل که روی کامپیوتر یا سرور است را به صورت متنی ذخیره میکنند و خود عکس را به صورت فایل نگه میدارند. در برنامه هم شما باید آدرس را برای کنترل مربوطه از پایگاه داده خوانده و set کنید.

alirezabahrami

سه شنبه 25 فروردین 1388, 14:50 عصر

با سلام
من یک برنامه دارم که در اون برنامه باید عکس پرسنل ذخیره بشه.من وقتی عکس ها رو به دیتا بیس وارد میکنم حجم دیتا بیس خیلی بالا میره.لطفا راهنایی بفرمایید که برای رفع این مشکل من باید چه کار کنم

با سلام
اگر با جواب هاي كه دوستان دادند قانع نشدي ، بنظرم ساده ترين راه الگو گرفتن از برنامه آماده northwind sample database آفيس 2003 در منوي help شاخه sampledatabase و زير شاخه northwind sample database ميباشد .كه در فرم Employees اين برنامه ، عكس ها كه بطور جداگانه و خارج از اكسس در يك پوشه قرار دارد به ديتابيس اضافه و يا حذف ميشود .
موفق باشيد

barname_m708

سه شنبه 25 فروردین 1388, 16:02 عصر

سلام

همانطور که دوستمان گفتند معمولا برای انجام اینکار فقط آدرس فایل که روی کامپیوتر یا سرور است را به صورت متنی ذخیره میکنند و خود عکس را به صورت فایل نگه میدارند. در برنامه هم شما باید آدرس را برای کنترل مربوطه از پایگاه داده خوانده و set کنید.

با سلام
دوست عزیز میشه یک نمونه برام در این مورد بذارید.ممنون میشم

nokhodsiah2001

شنبه 03 مرداد 1388, 16:07 عصر

سلام دوست عزيز

اين جواب هر چند دير ارسال شده ولي به درد كسان ديگر حتماً مي خوره

به نظر من بهتره فرمت عكسها رو تغيير بده و براي تغيير فرمت عكسها اين كد رو استفاده كنيد

Imports System.IO.Path
Imports System.Drawing.Imaging

Public Function ConvertBMP(ByVal BMPFullPath As String, _
ByVal imgFormat As ImageFormat) As Boolean
Dim bAns As Boolean
Dim sNewFile As String
Try
'bitmap class in system.drawing.imaging
Dim objBmp As New Bitmap(BMPFullPath)
'below 2 functions in system.io.path
sNewFile = GetDirectoryName(BMPFullPath)
sNewFile &= GetFileNameWithoutExtension(BMPFullPath)
sNewFile &= "." & imgFormat.ToString
objBmp.Save(sNewFile, imgFormat)
bAns = True 'return true on success
Catch
bAns = False 'return false on error
End Try
Return bAns
End Function

اين هم تو فرمت تو يك Botton بذار

'ConvertBMP("C:\test.bmp", ImageFormat.Jpeg)
'ConvertBMP("C:\test.bmp", ImageFormat.Emf)
'ConvertBMP("C:\test.bmp", ImageFormat.Exif)
'ConvertBMP("C:\test.bmp", ImageFormat.Gif)
'ConvertBMP("C:\test.bmp", ImageFormat.Icon)
'ConvertBMP("C:\test.bmp", ImageFormat.MemoryBmp)
'ConvertBMP("C:\test.bmp", ImageFormat.Png)
'ConvertBMP("C:\test.bmp", ImageFormat.Tiff)
'ConvertBMP("C:\test.bmp", ImageFormat.Wmf)

amirzazadeh

یک شنبه 04 مرداد 1388, 07:42 صبح

سلام دوست عزيز

اين جواب هر چند دير ارسال شده ولي به درد كسان ديگر حتماً مي خوره

به نظر من بهتره فرمت عكسها رو تغيير بده و براي تغيير فرمت عكسها اين كد رو استفاده كنيد

Imports System.IO.Path
Imports System.Drawing.Imaging

Public Function ConvertBMP(ByVal BMPFullPath As String, _
ByVal imgFormat As ImageFormat) As Boolean
Dim bAns As Boolean
Dim sNewFile As String
Try
'bitmap class in system.drawing.imaging
Dim objBmp As New Bitmap(BMPFullPath)
'below 2 functions in system.io.path
sNewFile = GetDirectoryName(BMPFullPath)
sNewFile &= GetFileNameWithoutExtension(BMPFullPath)
sNewFile &= "." & imgFormat.ToString
objBmp.Save(sNewFile, imgFormat)
bAns = True 'return true on success
Catch
bAns = False 'return false on error
End Try
Return bAns
End Function

اين هم تو فرمت تو يك Botton بذار

'ConvertBMP("C:\test.bmp", ImageFormat.Jpeg)
'ConvertBMP("C:\test.bmp", ImageFormat.Emf)
'ConvertBMP("C:\test.bmp", ImageFormat.Exif)
'ConvertBMP("C:\test.bmp", ImageFormat.Gif)
'ConvertBMP("C:\test.bmp", ImageFormat.Icon)
'ConvertBMP("C:\test.bmp", ImageFormat.MemoryBmp)
'ConvertBMP("C:\test.bmp", ImageFormat.Png)
'ConvertBMP("C:\test.bmp", ImageFormat.Tiff)
'ConvertBMP("C:\test.bmp", ImageFormat.Wmf)

عزيز جون نمي خوام جسارتي كرده باشم ولي به نظر مياد اين كد ها مربوط به Net. باشه نه اكسس.