Office中国论坛/Access中国论坛

标题: 怎么在ADO的CONNECTIONSTRING里设置数据库的非独占属性呢 [打印本页]

作者: hikari 时间: 2005-5-19 19:16
标题: 怎么在ADO的CONNECTIONSTRING里设置数据库的非独占属性呢
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 时间: 2005-5-19 19:21
CurrentProject已經指數據已經打開,再開自己, 有問題啊

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

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

作者: 海狸先生 时间: 2005-5-19 19:26
对当前数据库操作rs.open "表",currentproject,3,3

作者: hikari 时间: 2005-5-19 20:46
还是有问题.以下是正常时候的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 时间: 2005-5-19 20:49
而在出错停在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 21:46
你为什么不用我说的正常的办法呢？（疑问中.....)

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

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

作者: iisource 时间: 2005-5-20 02:09
set cnn = CurrentProject.Connection

作者: iisource 时间: 2005-5-20 02:11
或者con.open CurrentProject.Connection.ConnectionString

作者: hikari 时间: 2005-5-20 02:14
晕,楼上的好意我心领了..我还要用MSDATASHAPE服务呢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)