انتخاب درایو دلخواه برای تهیه نسخه پشتیبان

[ehsanocx]

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





Dim ask As Integer
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=shams"
Adodc1.Open "backup database shams to Disk='d:\ShamsBackUp.bak'", db
MsgBox "نسخه پشتيبان با موفقيت در درايو دي ايجاد شد", vbInformation, "تهيه نسخه پشتيبان"
ask = MsgBox("آيا مايليد که از برنامه خارج شويد ؟", vbYesNo + vbDefaultButton2, "خروج")
If ask = vbNo Then
Unload Me
FormShams.Show
Else
End
End If
db.Close
Adodc1.Close

[M.T.P]

می تونید از Common Dialog و تابع ShowSave استفاده کنید و FileName اون رو به عنوان مسیر به رشته بکاپ پاس بدید.


Function GetBackupName() As String
Dim strReturn As String

With CommonDialog1
.FileName = vbNullString
.Filter = vbNullString
.Filter = "SQL Database backup file (*.bak)"
.ShowSave
strReturn = .FileName
End With

GetBackupName = strReturn
End Function

[ehsanocx]

این سورس کد رو کجای کدی که نوشتم اضافه کنم؟ میشه روی کدی که نوشتم این کدی که گفتین رو اصلاح کنید؟

[ehsanocx]

دوستان لطفا کمکم کنید .خواهش می کنم

[ehsanocx]

Private Sub CMDLoad_Click()

Function GetBackupName() As String Dim strReturn As String With CommonDialog1 .FileName = vbNullString .Filter = vbNullString .Filter = "SQL Database backup file (*.bak)" .ShowSave strReturn = .FileName End With GetBackupName = strReturn End Function



On Error GoTo err
Dim ask As Integer
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=shams"
Adodc1.Open "backup database shams to Disk='GetBackupName'", db
MsgBox "Thank You", vbInformation, "Back Up"
ask = MsgBox("Aya Maielid Az Barnameh Kharej Shavid?", vbYesNo + vbDefaultButton2, "ÎÑæÌ")
If ask = vbNo Then
Unload Me
FormShams.Show
Else
End
End If
db.Close
Adodc1.Close

err:

End Sub


من به این صورت نوشتم دستور تهیه نسخه پشتیبان رو . اما چرا عمل نمی کنه؟

[ehsanocx]

Private Sub CMDLoad_Click()

Function GetBackupName() As String
Dim strReturn As String

With CommonDialog1
.FileName = vbNullString
.Filter = vbNullString
.Filter = "SQL Database backup file (*.bak)"
.ShowSave
strReturn = .FileName
End With

GetBackupName = strReturn
End Function



On Error GoTo err
Dim ask As Integer
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=shams"
Adodc1.Open "backup database shams to Disk='GetBackupName'", db
MsgBox "Thank You", vbInformation, "Back Up"
ask = MsgBox("Aya Maielid Az Barnameh Kharej Shavid?", vbYesNo + vbDefaultButton2, "ÎÑæÌ")
If ask = vbNo Then
Unload Me
FormShams.Show
Else
End
End If
db.Close
Adodc1.Close

err:

End Sub

[ehsanocx]

دوستان اینم راه حلش:
خودم درست کردم



Private Sub CMDLoad_Click()

CDialog1.Filter = "SQL Database backup file (*.bak)"
CDialog1.ShowSave


Dim ask As Integer
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=shams"
Adodc1.Open "backup database shams to Disk='" & CDialog1.FileName & ".bak" & "'", db
MsgBox " ÇíÌÇÏ ÔÏ " & Left(CDialog1.FileName, 1) & " äÓÎå ÔÊíÈÇä ÈÇ ãæÝÞíÊ ÏÑ ÏÑÇíæ ", vbInformation, "Êåíå äÓÎå ÔÊíÈÇä"
db.Close


End Sub