关闭

访问数据库代理

标签: 数据库integerstringsql
618人阅读 评论(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

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:13235次
    • 积分:181
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:10篇
    • 译文:0篇
    • 评论:4条
    文章分类
    最新评论