Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.GetDatabase("abcserver", "lgs/ittask")
Dim view As NotesView
Set view = db.GetView( "gdzddbd" )
Dim Conn As Variant
Dim EmpRS As Variant
Dim DBConStr As String
Dim SQLCmd As String
Dim p As Integer
'ADO Constants
Const adStateOpen = 1
Const adCmdText = 1
Const adOpenStatic = 3
Const adLockOptimistic = 3
'Connection String (Use DSN-Less connection string)
DBC & _
";Data Source=192.168.0.10;User Id=sa;Password=sa;Connect Timeout = 10;" & _
"Initial Catalog=itinfo;"
'创建和打开连接对象
Set Conn = CreateObject("ADODB.Connection")
Conn.Open DBConStr
'SQL命令
SQLCmd ="select djh,xh,goodsdm,jzr,goodsname,gg,dw,pp,sl,dj,je,syr,cw_id,memo,zdrq from bill_rk where left(djh,2)='DB' and isnull(jzr,'')<>'' order by djh,xh"
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载