lotusScript 通过ADO访问sql
来源:互联网 发布:网络诗词精选 编辑:程序博客网 时间:2024/05/22 05:07
作者:liyang588
原帖地址:http://blog.csdn.net/liyang588/archive/2005/08/27/466642.aspx
用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
- lotusScript 通过ADO访问sql
- 通过ADO SQL 访问ACCESS
- lotusscript通过ado连接关系型数据库
- 通过ADO访问数据库
- ASP中通过ADO访问ACCESS和SQL SERVER
- ADO访问SQL SERVER
- ADO 访问SQL数据库
- 通过ADO.NET访问数据库
- 通过ADO.NET访问数据库
- VC通过ADO访问Excell
- 【数据库访问】C++通过ADO访问数据库
- ado 访问ms sql server
- C++通过ADO访问SQLSERVER/ORACLE数据库
- C# 通过ado.net 访问oracle
- 通过ADO控件访问数据库示例
- 通过ADO对象编程访问数据库
- C++通过ADO访问SQLSERVER/ORACLE数据库
- 通过LotusScript运行服务器命令
- Servle中调用js
- 子窗口刷新父窗口的问题
- dddddd
- LotusScript获得在线用户
- Outlook Express 錯誤碼一覽表
- lotusScript 通过ADO访问sql
- SAP中的消息
- 关于return函数的调用!
- JIURL玩玩Win2k内存篇 分页机制 (二)
- SQL0964C The transaction log for the database is full.
- 《LoadRunner性能测试实战》前言
- JIURL玩玩Win2k内存篇 分页机制 (三)
- 利用SQL2005数据库复制技术 实现数据同步更新
- 如何在电脑面前有效率工作