怎么在ADO的CONNECTIONSTRING里设置数据库的非独占属性呢

hikari

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset



str1 = CurrentProject.FullName

cnn.Open "rovider = MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & str1  '这里总报错说数据库被用户锁定



str2 = "select pid,pchinesename,presearchbook,pjudgeadvice,pjudgedate from project_detail where pid=" & Me.pid

str3 = "SHAPE  {" & str2 & "} " _

       & "APPEND ({select * from judge} RELATE pid TO pid) AS rsJudge"

      

rs.Open str3, cnn



rs.Close

cnn.Close

ui

CurrentProject已經指數據已經打開,再開自己, 有問題啊

hikari

??可是我需要引用当前数据库名啊,而且一般正常工作的话是可以的.只是会在改代码时出现上述错误.

[此贴子已经被作者于2005-5-19 11:25:05编辑过]

海狸先生

对当前数据库操作rs.open "表",currentproject,3,3

hikari

还是有问题.以下是正常时候的cnn.Properties的各项NAME和VALUEData Source Object Threading Model

1 Multiple Results

0 Multiple Parameter Sets

FalseSQL Support

512 Catalog Location

1 Catalog Term

DatabaseCatalog Usage

Rowset Conversions on Command

TrueExtended Properties

Cache Authentication

TrueEncrypt Password

Persist Encrypted

Persist Security Info

TrueAsynchronous Processing

0 Connect Timeout

Protection Level

Prompt

Mode

Location

Locale Identifier

Impersonation Level

Window Handle

Data Source

F:\121\access\practise\neo\项目管理final.mdbUser ID

Password

Integrated Security

Mask Password

Initial Catalog

Lock Owner

Bind Flags

General Timeout

Data Provider

Microsoft.Jet.OLEDB.4.0Autocommit Isolation Levels

4096 Unique Reshape Names

False

hikari

而在出错停在cnn.Open "rovider = MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & str1  '这里总报错说数据库被用户锁定 的时候cnn.Properties有不同,缺少前八项,即从Extended Properties开始,而结尾缺少Autocommit Isolation Levels

4096 Unique Reshape Names

False

海狸先生

你为什么不用我说的正常的办法呢？（疑问中.....)

[此贴子已经被作者于2005-5-19 14:15:44编辑过]

hikari

正常的办法?我已经把参数写成"3,3"了,但CNN不能改成CURRENTPROJECT,因为我需要数据构形(MSDATASHAPE)的服务.而问题正出在数据构形上.我试过把CNN换成CURRENTPROJECT就没问题,看来是数据构形连接的问题啊

iisource

set cnn = CurrentProject.Connection

iisource

或者con.open CurrentProject.Connection.ConnectionString