Question

我想得到没有的数。目前使用ms-access数据库打开连接。

例如，两个应用程序正在使用相同的数据库。那怎么能算这个数呢？ pypyodbc中是否有ms访问功能或任何设施？

使用adodbapi，我怎么能得不到。打开与数据库的连接??

我尝试了以下代码。

#importing adodbapi 
import adodbapi # success 
#connection to database using the DSN 'test'
myConn = adodbapi.connect('test') # success
#get no. of open connection using openschema 
myConn.connector.OpenSchema(-1, None,"{947bb102-5d43-11d1-bdbf-00c04fb92675}") #fail

它会出现以下错误。

pywintypes.com_error :( -2147352567，'异常发生。'，（0，u'ADODB.Connection'，u'对象或提供者无法
执行请求的操作。'，u'C：\ WINDOWS \ HELP \ ADO270.CHM'，
1240648，-2146825037），无）

任何人都可以提供解决方案吗？

Answer 1

就我个人而言，我倾向于避免在这种情况下与adodbapi混淆，只是让我的Python脚本编写一个小的VBScript来创建一个以开放式连接的标签分隔的机器列表，通过subprocess.Popen运行VBScript，并且解析结果：

import os
import subprocess

## test data
databaseFileSpec = r"Z:\pyTest.mdb"

vbsFileSpec =  os.environ['TEMP'] + r"\mypytemp.vbs"

scriptCode = """Option Explicit
Dim con, rst, strOut, strSeparator
Const adSchemaProviderSpecific = -1
Set con = CreateObject("ADODB.Connection")
con.Open( _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source="""
scriptCode += databaseFileSpec
scriptCode += """")
Set rst = con.OpenSchema( _
        adSchemaProviderSpecific, _
        , _
        "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
strOut = ""
strSeparator = ""
Do While Not rst.EOF
    If rst(2).Value = "True" Then
        strOut = strOut & strSeparator & Left(rst(0).Value, Len(Trim(rst(0).Value)) - 1)
        strSeparator = vbTab
    End If
    rst.MoveNext
Loop
WScript.Echo strOut
rst.Close
con.Close"""

f = open(vbsFileSpec, 'w')
f.write(scriptCode)
f.close()

tabString = subprocess.Popen(
    "cscript /nologo \"" + vbsFileSpec + "\"",
    shell=True,
    stdout=subprocess.PIPE).stdout.read()
os.remove(vbsFileSpec)

print 'The following machines are connected to "' + databaseFileSpec + '":'
for x in tabString.split("\t"):
    print x

当我在两台不同的机器上打开数据库并运行上面的脚本时，我得到了

The following machines are connected to "Z:\pyTest.mdb":
TESTPC
GORD01
GORD01

我的笔记本（GORD01）显示两次，因为我在Access中打开了数据库，并且VBScript在运行时也打开了连接。

ADODBAPI与数据库的Open Connection数量

1 个答案: