پایگاه داده که استفاده کردی چیه؟
sql
Access
or ....?
به صورت فایل ذخیره کردی فایل پایگاه داده رو؟
اگه فایله کافیه یک کپی بگیری ازش و در یک جای دیگه ذخیره کنی
این برای کپی گرفتن دیتا بیس هست دیگه به صورت پروژه آپلود نکردم فقط سورس هست
Private Sub CmdSrach_Click()
On Error GoTo E_R
If Text1.Text = "" Then MsgBox "áØÝÇ ãÓíÑ Êåíå äÓÎå ÔÊíÈÇä ÑÇ æÇÑÏ ˜äíÏ", vbExclamation + vbMsgBoxRtlReading, "ÎØÇ": Exit Sub
CopyFileAny App.Path & "\Database.mdb", Text1.Text
MsgBox "äÓÎå ÔÊíÈÇä Êåíå ÑÏíÏ", vbInformation + vbMsgBoxRtlReading
Exit Sub
E_R:
MsgBox Err.Description, vbMsgBoxRtlReading + vbMsgBoxRtlReading, "Error"
End Sub
Private Sub lvButtons_H1_Click()
On Error GoTo E_R
With Dlg
.CancelError = False
.Filter = "Database Backup |*.dbb"
.ShowSave
If .FileName <> "" Then Text1.Text = .FileName
End With
Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading, "Error"
End Sub
Private Sub lvButtons_H2_Click()
On Error GoTo E_R
With Dlg
.CancelError = False
.Filter = "Database Backup |*.dbb"
.ShowOpen
If .FileName <> "" Then Text2.Text = .FileName
End With
Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading, "Error"
End Sub
Private Sub lvButtons_H3_Click()
On Error GoTo E_R
Dim StrConn As String
StrConn = Conn.ConnectionString
Conn.Close
DoEvents
Kill App.Path & "\Database.mdb"
CopyFileAny Text2.Text, App.Path & "\Database.mdb"
Conn.Open StrConn
MsgBox "ÈÇÒíÇÈí ÇØáÇÚÇÊ ÇäÌÇã ÔÏ", vbInformation + vbMsgBoxRtlReading
Unload Me
Exit Sub
E_R:
MsgBox Err.Description, vbExclamation + vbMsgBoxRtlReading
End Sub