Dim w As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=w.currentdocument
Dim Conn As Variant
Dim EmpRS As Variant
Dim DBConStr As String
Dim SQLCmd As String
Dim NewUser As Variant
Dim tempstr As String,tempstr1 As String,tempstr2 As String,tempstr3 As
String,tempstr5 As String
Dim time1 As String,time2 As String
Dim i1 As Integer
'ADO Constants
Const adStateOpen = 1
Const adCmdText = 1
Const adOpenStatic = 3
Const adLockOptimistic = 3
'Connection String (Use DSN-Less connection string)
DBConStr = "Provider=SQLOLEDB.1;Persist Security Info=True" & _
";Data Source=192.168.10.110;User Id=sa;Password=weijia3624<>;Connect Timeout
= 10;" & _
"Initial Catalog=hrms_db_20091214;"
'打开连接数据库
Set Conn = CreateObject("ADODB.Connection")
Conn.Open DBConStr
'调用存储过程
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection =Conn
cmd.CommandType = 4
cmd.CommandText = "p_getautoid"
cmd.Parameters(1) ="t_kq_manulbookbrush"