پشتیبان گیری از dbaccess با تاریخ

[hrj1981]

دوستان در خود برنامه اکسس هنگام پشتیبان گیری تاریخ را در ادامه نام فایل وارد می کند اینهم نمونه کدش

Dim l1, l2, l3 As Long
l1 = Year(Date)
l2 = Month(Date)
l3 = Day(Date)
Dim f As String
With CmnDlg1
f = App.Path + "\dat\qchiller.MDB"
.Filter = "Access DataBase|*.MDB"
.FileName = "qchiller_" & l1 & "-" & l2 & "-" & l3 & ".MDB"
.InitDir = App.Path + "\backup"
.ShowSave
FileCopy f, .FileName
End With

[nasim532]

سلام من برنامه رو نوشتم ولی در خط 8 به من error میده.

می شه منو راهنمایی کنید که .Filter و یا .InitDir چگونه کار می کنه و این توابع رو از کجا پیدا کردید؟؟:ناراحت:

با تشکر

[hrj1981]

دوست عزیز
شما باید ابتدا یک common dialog ایجاد کنید.(این یک کامپونت استاندارد بیسیک 6 می باشد.) کد زیر هم اصلاح شده کد قبلی است.



Dim l1, l2, l3 As Long
l1 = Year(Date)
l2 = Month(Date)
l3 = Day(Date)
Dim f As String
With CmnDlg1
f = App.Path + "dbname.MDB"
.Filter = "Access DataBase|*.MDB"
.FileName = "dbname_" & l1 & "-" & l2 & "-" & l3 & ".MDB"
.InitDir = App.Path + "\backup"
.ShowSave
FileCopy f, .FileName
End With

[Mbt925]

یه "\" جا افتاد :



f = App.Path + "\dbname.MDB"
در ضمن دوستان یه نکته که خیلیا به اشتباه ازش استفاده می کنن :

توی ویژوال بیسیک وقتی بخوایم چند متغیر رو پشت سر تعریف می کنیم باید بصورت زیر عمل کنیم :



dim Var1 as long,Var2 as long,Var3 as long
ولی طوری که خیلی از دوستان تعریف می کنن ، یعنی فرمت زیر :



dim Var1,Var2,Var3 as long
با کد زیر معادله :



dim Var1 (as variant)
dim Var2 (as variant)
dim Var3 as long
یعنی فقط متغیر آخر از اون نوعی که شما می خواین تعریف میشه و متغیر های قبل از اون از نوع Variant تعریف میشن.

[hrj1981]

با تشکر از راهنمایی دوست خوبم
من "/" را نذاشتم تا درخواست کننده مطلب دیتابیس را هرکجا خواست قرار بده

[Mbt925]

منظورتو فهمیدم دوست عزیز :چشمک:

ولی با این فرمت باید قرار داده میشد.

[nasim532]

برنامه درست اجرا شد.

خیلی ممنون از راهنمایی تون.:تشویق:

[Iran2010]

از « FileCopy f, .FileName » ایراد گرفته می شه
می شه بگید چرا؟

[ali_habibi1384]

اینهمه درد سر؟ چرا؟ شما واسه پشتیبانی این کد رو بزن:


Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
pt = Dir1.Path + "\" + CStr(Text1.Text) + ".mdb"
CopyFile App.Path + "\data.mdb", pt, 0
MsgBox "߁í ÇäÌÇã ÔÏ . äÇã æ ãÍá ÐÎíÑå ÓÇÒí ÝÇíá ÔãÇ ÚÈÇÑÊ ÇÓÊ ÇÒ " + CStr(pt), vbInformation, ""
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = CStr(Mid(main_frm.Text1.Text, 1, 4) + "_" + CStr(Mid(main_frm.Text1.Text, 6, 2)) + "_" + CStr(Mid(main_frm.Text1.Text, 9, 2))) + "_" + CStr(Mid(main_frm.Text18.Text, 1, 2) + "_" + CStr(Mid(main_frm.Text18.Text, 4, 2)) + "_" + CStr(Mid(main_frm.Text18.Text, 7, 2)))
End Sub

اگه سوالی بود بگو تا سورس برنامه رو بهت بدم البته با استفاده از API هست که قبلا توی سایتآپلودش هم کردم قسمت کپی کردن فایل.

[ali_habibi1384]

اگه از اون قسمت توابع API که توی سایت آپلود کردم بری بهتره چون این یکم گنگ نوشته شده به زبون خودمه:لبخند: واسه همین ممکنه گیج بشی

[Iran2010]

اینهمه درد سر؟ چرا؟ شما واسه پشتیبانی این کد رو بزن:


Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
pt = Dir1.Path + "\" + CStr(Text1.Text) + ".mdb"
CopyFile App.Path + "\data.mdb", pt, 0
MsgBox "߁í ÇäÌÇã ÔÏ . äÇã æ ãÍá ÐÎíÑå ÓÇÒí ÝÇíá ÔãÇ ÚÈÇÑÊ ÇÓÊ ÇÒ " + CStr(pt), vbInformation, ""
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = CStr(Mid(main_frm.Text1.Text, 1, 4) + "_" + CStr(Mid(main_frm.Text1.Text, 6, 2)) + "_" + CStr(Mid(main_frm.Text1.Text, 9, 2))) + "_" + CStr(Mid(main_frm.Text18.Text, 1, 2) + "_" + CStr(Mid(main_frm.Text18.Text, 4, 2)) + "_" + CStr(Mid(main_frm.Text18.Text, 7, 2)))
End Sub

اگه سوالی بود بگو تا سورس برنامه رو بهت بدم البته با استفاده از API هست که قبلا توی سایتآپلودش هم کردم قسمت کپی کردن فایل.


این برنامه error میده . چرا ؟

[ali_habibi1384]

گفتم که اینو به زبون خودم نوشتم . شما از 100 سورس توابع API که آپلود کردم ببین و قسمت کپی کردن فایلش رو دانلود کن.

[ali_habibi1384]

http://barnamenevis.org/forum/showthread.php?t=83751&page=3

[ali_habibi1384]

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