“拒绝访问”在DAO寻求功能

本文介绍了“拒绝访问”在DAO寻求功能的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 29岁程序员，3月因学历无情被辞！ 大家好， 我在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 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 recADOIf 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.RecordsetDim ado1,ado2,ado3,ado4 as string'fill recADOado1 =  recADO("var1")ado2 =  recADO("var2")ado3 =  recADO("var3")ado4 =  recADO("var4")If Not (recADO.BOF And recADO.EOF) Then Tb.Seek "=", ado1, ado2, ado3, ado4End 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寻求功能的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！ 上岸，阿里云！