Sub Initialize
On Error Goto err_code
starttime=Now
Dim session As New Notessession
Dim db As Notesdatabase
Dim doc As notesdocument
Dim view As NotesView
Dim c As NotesViewEntryCollection
Set db=session.currentdatabase
Set view=db.GetView("All Parts Doc")
Set c=view.AllEntries
If c.Count<>0 Then
T=c.Count
Call c.RemoveAll(False)
Print "Update SC01- ADO:Old records "+Cstr(T)+" removed"
End If
Dim pdoc As NotesDocument
Set pdoc=db.GetProfileDocument("Profile")
Set doc=New notesdocument(db)
doc.form = "Supplier"
Print "Update SC01- ADO:Initialize completed"
Dim conn As Variant
Set conn = CreateObject("ADODB.Connection")
ConnAdmin = "driver={SQL Server};server=ServerIP;database=DBName;uid=xxx;pwd=xxx"
conn.open ConnAdmin
Set rstt=createobject("adodb.recordset")
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载