VB------>119+SOS!

Question

你用ACCESS做为关键字搜索一下以前的帖子.相信能找到.代码我就不写了.^v^

Answer 1

DAO有修复功能，你看以下相关的资料
还有可以通过filecopy函数复制access数据库文件

Answer 2

DAO有修复功能，你看以下相关的资料
还有可以通过filecopy函数复制access数据库文件

Answer 3

1、把所有的记录选出来，然后写入一个另一个数据。
dim SourceDb as database
dim Tmprec as recordset
set sourcedb=opendatabase("c:\ss.mdb")
set tmprec=sourcedb.openrecordset("select * from 表")
'写入另一个表中
tmprec.close
sourcedb.close
2、Dao的引擎DBEngine有修复数据的方法
DBEngine.RepairDatabase dbname '先关闭数据库，你可以在可视化数据管
'理器中看到

Answer 4

备份：filecopy就是了至于维护，我不清楚，我一般就是恢复数据，不知道你的要求是什么        以上回答，个人观点  我是小山，我喜欢VB，现在在学习C#和.net的相关知识     欢迎您使用： SourceCode Explorer(源代码数据库)
       当前版本： 1.0.691
           作者： Shawls
           来自： Http://www.dapha.net
       个人主页： Http://Shawls.Yeah.Net
         E-Mail： [email protected]
             QQ： 9181729

Answer 5

'*******************************************************************'名称     Sub_backup
'作者　　 Morn Woo
'功能     执行备份工作
'参数     starget ,是备份路径
'*******************************************************************Sub Sub_Backup(sTarget As String)
Dim strDBName As String
' strDBName -> Shine_19991001.MDB
Dim i, j As Integer
j = Len(gsDatabase)
i = 4
strDBName = Mid(gsDatabase, j - i, 1)
While strDBName <> "\"
  i = i + 1
  strDBName = Mid(gsDatabase, j - i, 1)
Wend
strDBName = Left(Right(gsDatabase, i), i - 4) & "_"
strDBName = strDBName & CStr(Year(Date)) & Format(CStr(Month(Date)), "00") & Format(CStr(Day(Date)), "00") & ".MDB"
sTarget = sTarget + "\" + strDBName
   
'判断文件是否存在
If Len((Dir(sTarget, vbNormal))) <> 0 Then
   If MsgBox("文件“" & sTarget & "”已经存在！是否覆盖？", vbInformation + vbOKCancel, "提示") _
          = vbCancel Then
      Exit Sub
   End If
End If
Screen.MousePointer = vbHourglass
goOpen.Close
FileCopy gsDatabase, sTarget
Dim strTemp As String
strTemp = "; pwd=" & gsDBPassword & ""
Set goOpen = OpenDatabase(gsDatabase, True, False, strTemp)
Screen.MousePointer = vbDefault
End Sub

Answer 6

Private Sub mnuTDBCompress_Click()
If Not funs.fun_NoWindow() Then Exit Sub
Me.MousePointer = vbHourglass
Sub_Waiting "正在压缩数据库…… "
goOpen.Close
Dim strDBTemp As String
strDBTemp = Space(50)
GetTempPath 50, strDBTemp
strDBTemp = Trim(strDBTemp)
strDBTemp = Left(strDBTemp, Len(strDBTemp) - 1)
strDBTemp = strDBTemp + "TempComp.mdb"
If Len(Dir(strDBTemp, vbNormal)) Then Kill strDBTempDBEngine.CompactDatabase gsDatabase, strDBTemp
FileCopy strDBTemp, gsDatabase
Kill strDBTempDim strTemp As String
strTemp = "; pwd=" & gsDBPassword & ""
Set goOpen = OpenDatabase(gsDatabase, True, False, strTemp)
Unload frmWaiting
Me.MousePointer = vbDefault
End Sub

Answer 7

Private Sub mnuTDBCompress_Click()
If Not funs.fun_NoWindow() Then Exit Sub
Me.MousePointer = vbHourglass
Sub_Waiting "正在压缩数据库…… "
goOpen.Close
Dim strDBTemp As String
strDBTemp = Space(50)
GetTempPath 50, strDBTemp
strDBTemp = Trim(strDBTemp)
strDBTemp = Left(strDBTemp, Len(strDBTemp) - 1)
strDBTemp = strDBTemp + "TempComp.mdb"
If Len(Dir(strDBTemp, vbNormal)) Then Kill strDBTempDBEngine.CompactDatabase gsDatabase, strDBTemp
FileCopy strDBTemp, gsDatabase
Kill strDBTempDim strTemp As String
strTemp = "; pwd=" & gsDBPassword & ""
Set goOpen = OpenDatabase(gsDatabase, True, False, strTemp)
Unload frmWaiting
Me.MousePointer = vbDefault
End SubPrivate Sub mnuTDBRepare_Click()
If gsUsername = "super" Then
   If Not funs.fun_NoWindow() Then Exit Sub
      Me.MousePointer = vbHourglass
      Sub_Waiting "正在修复数据…… "
      goOpen.Close
      DBEngine.RepairDatabase gsDatabase
      
      Dim strTemp As String
      strTemp = "; pwd=" & gsDBPassword & ""
      Set goOpen = OpenDatabase(gsDatabase, True, False, strTemp)
      Unload frmWaiting
      Me.MousePointer = vbDefault
End If
End Sub