訪問資料庫代理

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"