压缩数据库处的问题

[valhallen]

Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\main.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\main.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
msgbox "ok"
+++++++++++++++++++++++++++++++++++++
运行后
对话框ok后
出错误提示
“尝试打开的数据库被本机的valhallen用户admin以排她方式打开，数据库可使用后，请再试一次”
+++++++++++++++++++++++++++++++++++++++++
文提出在那里？
如何解决？

[valhallen]

呵呵
说错了
没有出对话框就出错误提示
“尝试打开的数据库被本机的valhallen用户admin以排她方式打开，数据库可使用后，请再试一次”

[valhallen]

仆仆仆仆仆仆仆仆仆仆仆仆

[valhallen]

upupupupuupupupuupupupju

[DreamMasterZ]

upup

[valhallen]

upupuupupupupup

[MonkeyLin]

uping~

[shawls]

********************************************************************
Const ODBC_ADD_DSN = 1 ' Add data source
Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Const ODBC_REMOVE_DSN = 3 ' Remove data source

#If Win32 Then

Declare Function SQLCONFIGDATASOURCE Lib "odbccp32.dll" Alias "SQLConfigDataSource" _
(ByVal hWndParent&, _
ByVal fRequest%, _
ByVal lpszDriver$, _
ByVal lpszAttributes$) As Boolean

#ElseIf Win16 Then

Declare Function SQLCONFIGDATASOURCE Lib "odbcinst.dll" _
(ByVal hWndParent%, _
ByVal fRequest%, _
ByVal lpszDriver$, _
ByVal lpszAttributes$) As Boolean
#End If

Public Sub CompactDb()
Dim dbDriver As String
Dim dbAttributes As String
Dim result As Boolean

#If Win32 Then
Let dbDriver = "Microsoft Access Driver (*.mdb)"
#ElseIf Win16 Then
Let dbDriver = "Access Files (*.mdb)"
#End If

Let dbAttributes = "COMPACT_DB=c:\FCQY.mdb c:\F1.mdb General" & Chr$(0) _
& "UID=admin" & Chr$(0) _
& "PWD=xxxxx"

result = SQLCONFIGDATASOURCE(0, ODBC_CONFIG_DSN, dbDriver, dbAttributes)
If (False = result) Then
MsgBox "Establishing DSN failed! Error: " & result
End
End If

End Sub

[jwfgsf]

关键的问题是你在压缩数据库时，要关闭正在使用的数据库！就行了！