정유신 이글루

Sub Initialize
 Dim connection As New ODBCConnection
 
 Dim Query As New ODBCQuery
 
 Dim resultset As New ODBCResultSet
 
 Dim sql As String
 
 Dim ss As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 
 Set db = ss.CurrentDatabase
 
 
 RetCode% =  connection.ConnectTO("SAMPLE","db2admin","password")
 Msgbox (RetCode%)
 
 Set Query.Connection = connection
 
 sql = "select * from EMPLOYEE"
 
 'sql="select count(employeeno) as cnt from " + TableName + " where EmployeeNo='" + EmpNo + "' "
 
 Query.SQL=sql
 
 Set resultset.Query = Query
 
 Call resultset.Execute()
 
 Set doc = New NotesDocument(db)
 doc.Form = "MAIN"
 doc.FIRSTNAME = resultset.GetValue(2)
 
 Call doc.Save(True, True)
 
 
 
 resultset.close
 
 connection.disconnect  
 
End Sub