“拒绝访问”在DAO寻求功能 [英] "access denied" in DAO seek function

问题描述

大家好，

我在Windows 7下运行的应用程序vb6在win XP下工作正常：

[

Dim recADO As ADODB.Recordset

'fill recADO

如果不是（recADO.BOF和recADO.EOF）那么

  Tb.Seek" ="，  recADO（" var1"），  recADO（" var2"），  recADO（" var3"），  recADO（" var4"）

结束如果

]

当我在win 7下运行它时会生成这个错误" err.number = 10000 err.description =访问冲突"

 

但是当我更改代码时以这种方式：

[

Dim recADO As ADODB.Recordset

< p style =""> Dim ado1，ado2，ado3，ado4 as string

'fill recADO

ado1 =  recADO（" var1"）

ado2 =  recADO（" var2"）

ado3 =  recADO（" var3"）

ado4 =  recADO（" var4"）

如果不是（recADO.BOF和recADO.EOF）那么

  Tb.Seek" ="，ado1，ado2，ado3，ado4

结束如果

]

虽然我确定参数recADO（...）不为空!!!!!

 

can任何人帮助我请求：'（ 

解决方案

在哪里发布VB 6问题

Hi all,

I have an application vb6 running under Windows 7 witch was working fine under win XP:

[

Dim recADO As ADODB.Recordset

'fill recADO

If Not (recADO.BOF And recADO.EOF) Then

 Tb.Seek "=",  recADO("var1"),  recADO("var2"),  recADO("var3"),  recADO("var4")

End If

]

when I run it under win 7 it generates this error " err.number=10000 err.description=Access Violation"

 

but when I change the code in that manner :

[

Dim recADO As ADODB.Recordset

Dim ado1,ado2,ado3,ado4 as string

'fill recADO

ado1 =  recADO("var1")

ado2 =  recADO("var2")

ado3 =  recADO("var3")

ado4 =  recADO("var4")

If Not (recADO.BOF And recADO.EOF) Then

 Tb.Seek "=", ado1, ado2, ado3, ado4

End If

]

although I am certain that the parameter recADO(...) are not null !!!!!

 

can any one help me pleaaase :'( 

解决方案

Where to post your VB 6 questions

这篇关于“拒绝访问”在DAO寻求功能的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！