关闭

访问数据库代理

604人阅读 评论(0) 收藏 举报

Sub Initialize
 Dim con As New odbcconnection
 Dim qry As New odbcquery
 Dim result As New odbcresultset
 Dim ss As New  notessession
 Dim db As notesdatabase
 Dim docA,docB As notesdocument
 Dim Empid As String
 Dim sql As String
 Dim publick As Integer
 
 On Error Goto errorHandler
 
 Set docA=ss.documentcontext
 
 
 Set db=ss.currentdatabase
 
 Set docA=ss.documentcontext
 
 Set qry.Connection = con
 Set result.Query = qry
 
 
 If Not con.ConnectTo("ハセンヤエテ﨤ニ") Then
  Print "イサトワチエスモオスハセンヤエ」ャーエ" & "<a href=history.go(0)> " & "ユ簑・/a>" & "キオサリ" 
  
  Exit Sub
 End If
  
          'ユ簑・ヌミ゙クト
         qry.SQL = "update administrator.Remind set READ=1 where DID="&"'"&docA.parentID(0)&"'"&" and                                        person="&"'"&docA.username(0)&"'"
 
 result.Execute
 
 result.UpdateRow
 
 result.Close(DB_CLOSE)
 con.Disconnect
 
 
 Exit Sub
errorHandler:
 Print result.GetExtendedErrorMessage,, result.GetErrorMessage
 Exit Sub

 

ユ篋エオスエ惕昉トoptionsタ・
Uselsx "*LSXODBC"

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:12856次
    • 积分:180
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:10篇
    • 译文:0篇
    • 评论:4条
    文章分类
    最新评论