问题描述
DimsessionAsNewNotesSessionDimdbAsNotesDatabaseDimconnAsVariantDimrsAsVariantDimrsidAsLongSetdb=session.CurrentDatabaseConstConnAdminS$="driver={sqlserver};server=192.168.0.171,1450;UID=notesdev;PWD=developer;database=AppNet"Setconn=CreateObject("ADODB.Connection")conn.openConnAdminS$Callconn.BeginTrans()Setrs=createobject("adodb.recordset")defaultQuery="selectdistinctrsidfromdbo.RecordSetwherechannelid='115'andstatus='SENDING'"rs.opendefaultQuery,connDimtmpDocAsNotesDocumentSettmpDoc=db.CreateDocumenttmpDoc.form="PurchaseOrder"tmpDoc.rsid=rs.FIELDS("rsid").valuersid=tmpDoc.rsid(0)Callrs.close()Setrs=NothingCallconn.Committrans()Callconn.close()Setconn=NothingExitSub各位请教个问题..为什么上面段代理自动运行的时候就在红色字体处提示"Typemismatch",真让我无解呀?能否指教指教!手动运行确很顺利!
解决方案
解决方案二:
服务器权限设置问题,你无权运行,去后台设置一下即可
解决方案三:
就是呀,权限不够吧
解决方案四:
代理属性,安全性,选择2或者3看看