分享
 
 
 

[Lotus Domino] 用LotusScript连接MSSQL2000实例(ADO)

王朝mssql·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

用ADO连接SQL是比较好的,不用象ODBC一样建DSN,速度快,稳定。这次给的是一个我实际工作中的一段代码,作用是从公司的ERP系统中抓取零件的主信息,更新到Lotus中。

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")

SQL="SELECT SC01001,SC01002,SC01010,SC01042,SC01043,SC01044,SC01045,SC01053,SC01056,SC01058,SC01059,SC01066,SC01087,SC01097,SC01099 from SC010100 where SC01066=6 or SC01066=7"

rstt.open SQL,conn,1,3

Print "Update SC01- ADO:Database connected"

r=0

Do While Not rstt.eof

For i=0 To 14

field=rstt.Fields(i).name

value=rstt.Fields(i).value

Set item = doc.AppendItemValue(field,value)

Next

rstt.MoveNext

Call doc.save(True,True)

Set db = session.CurrentDataBase

Set doc = New NotesDocument(db)

doc.form = "Supplier"

R=R+1

Loop

rstt.close

Print "Update SC01- ADO:Update completed"

endtime=Now

Set mail = New NotesDocument(db)

mail.form="Memo"

mail.principal="WUX Price Adjust 2"

mail.Subject="ADO:Success Import "+Cstr(R)+" Records from SC01[start at "+Cstr(starttime)+"], Old records "+Cstr(T)+" Deleted. [end at"+Cstr(endtime)+"]"

Call mail.send(True,pdoc.SystemMessage)

Exit Sub

err_code:

Dim erm As New NotesDocument(db)

erm.form="Memo"

erm.subject=db.title+": Error in 'Update SC01 from scala ADO' agent . "+Str(Err)+" At "+Str(Erl)+". "+Error$

txt="Server: "+db.server+Chr(10)+"File: "+db.FilePath

If er<>"" Then

txt=txt+"sending to"+er

End If

erm.body=txt

Call erm.send(False,"yang li")

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有