"Initial Catalog='ProjectServerTest';Integrated Security='SSPI';"
Dim objConn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRs As New ADODB.Recordset
objConn.Open m_sConnStr
objCmd.CommandText = "select proj_name from dbo.MSP_PROJECTS " & _
"where proj_type<>3 and proj_ext_edited=0"
objCmd.CommandType = adCmdText
' Connect to the data source.
objCmd.ActiveConnection = objConn
' Execute once and display...
Set objRs = objCmd.Execute
objRs.MoveFirst
cnt = 0
Do While Not objRs.EOF
If (cnt = 2) Then Exit Do
tvTypePr.Nodes.Add Text:=objRs(0)
FileOpen "<>\" + objRs(0)
MailSendProjectMail MessageType:="ОпубликоватьДляГруппы", _
Subject:="Публикация новых и измененных назначений", _
Body:="Ознакомьтесь с последними изменениями календарного плана и сообщите, если новые даты вызывают какие-либо проблемы.", _
PublishScope:=1, showDialog:=False
FileClose (pjDoNotSave)
cnt = cnt + 1
objRs.MoveNext
Loop
q = Application.Quit()
End Sub' />
|
задача - открыть кучу проектов и опубликовать без участия юзера
люди - если кто знает скажите - как отключить вылезание различных окошек
проекты изменялись (назначение ресурсов) напрямую через базу, поэтому даже если все правильно - все равно ВСЕГДА при открытии вылазит окно несоответствия дат
и окошки при публикации - как нажать OK по умолчанию
Код:
Private Sub CommandButton1_Click()
m_sConnStr = "Provider='SQLOLEDB';Data Source='pmserver';" & _
"Initial Catalog='ProjectServerTest';Integrated Security='SSPI';"
Dim objConn As New [ссылка...]ction
Dim objCmd As New [ссылка...]nd
Dim objRs As New [ссылка...]dset
[ссылка...] m_sConnStr
[ссылка...]ndText = "select proj_name from [ссылка...]ROJECTS " & _
"where proj_type<>3 and proj_ext_edited=0"
[ссылка...]ndType = adCmdText
' Connect to the data source.
[ссылка...]eConnection = objConn
' Execute once and display...
Set objRs = [ссылка...]te
[ссылка...]irst
cnt = 0
Do While Not [ссылка...]
If (cnt = 2) Then Exit Do
[ссылка...] Text:=objRs(0)
FileOpen "<>\" + objRs(0)
MailSendProjectMail MessageType:="ОпубликоватьДляГруппы", _
Subject:="Публикация новых и измененных назначений", _
Body:="Ознакомьтесь с последними изменениями календарного плана и сообщите, если новые даты вызывают какие-либо проблемы.", _
PublishScope:=1, showDialog:=False
FileClose (pjDoNotSave)
cnt = cnt + 1
[ссылка...]ext
Loop
q = [ссылка...]()
End Sub
|