Sub recalculation()'Declare variabl

Sub recalculation()

'Declare variables
Dim objConn_well As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objCmd_well As New ADODB.Command
Dim objRs_well As New ADODB.Recordset
Dim objConn_well1 As New ADODB.Connection
Dim objCmd1 As New ADODB.Command
Dim objCmd_well1 As New ADODB.Command
Dim objRs_well1 As New ADODB.Recordset
Dim mdate1 As Date
Dim mdate2 As Date
Dim well_name As String
Dim site_id As String

'Get Field and Date value

V_Start_Date = Format(Sheet8.DTPicker1.Value, "dd/mm/yyyy") 'For Oracle source
V_End_Date = Format(Sheet8.DTPicker2.Value, "dd/mm/yyyy")

objConn_well1.Open "Provider=OraOLEDB.Oracle;" & _
"Data Source=bol_pdms;" & _
"User ID=bol_data;" & _
"Password=merak;"

'Set Object Command
objCmd1.CommandType = adCmdText
objCmd_well1.ActiveConnection = objConn_well1


'UserForm1.Show

'UserForm1.WebBrowser1.Document.body.Scroll = "no"

Application.ScreenUpdating = True
SQL_PROD_TABLE_FINAL = "begin pcd_run_recalc(to_date('" & V_Start_Date & "', 'dd/mm/yyyy'), " & _
"to_date('" & V_End_Date & "', 'dd/mm/yyyy')); end; "


objCmd_well1.CommandText = SQL_PROD_TABLE_FINAL
Set objRs_well1 = objCmd_well1.Execute

Результаты (русский) 1:

Sub recalculation()' Объявление переменных Дим objConn_well как новый ADODB. Подключение Дим objCmd новой ADODB.Command как Дим objCmd_well новой ADODB.Command как Дим objRs_well как новый ADODB. Набор записей Dim objConn_well1 как новый ADODB. Подключение Dim objCmd1 как вопросам новой ADODB.Command Dim objCmd_well1 как вопросам новой ADODB.Command Dim objRs_well1 как новый ADODB. Набор записей Dim mdate1 как Дата Dim mdate2 как Дата Дим well_name как строку Скопируй тусклый как строку' Получить значение поля и ДатаV_Start_Date = формат (Sheet8.DTPicker1.Value, "дд/мм/гггг") ' источник для OracleV_End_Date = формат (Sheet8.DTPicker2.Value, "дд/мм/гггг") objConn_well1. Открыть «Provider=OraOLEDB.Oracle;» & _ «Источник данных = bol_pdms; "& _ «ID пользователя = bol_data; "& _ «Пароль = Мерак;» «Объект команды set objCmd1.CommandType = adCmdText objCmd_well1. ActiveConnection = objConn_well1' UserForm1.Show' UserForm1.WebBrowser1.Document.body.Scroll = «нет»Application.ScreenUpdating = TrueSQL_PROD_TABLE_FINAL = "начать pcd_run_recalc (to_date ('" & V_Start_Date & "', ' дд/мм/гггг ')," & _«to_date ('"& V_End_Date &"', ' дд/мм/гггг ')); конец; " objCmd_well1.CommandText = SQL_PROD_TABLE_FINAL Набор objRs_well1 = objCmd_well1. Выполнение

Результаты (русский) 2:

Суб перерасчет () 'Объявление переменных Dim objConn_well Как Новый ADODB.Connection Dim objCmd в качестве нового ADODB.Command Dim objCmd_well в качестве нового ADODB.Command Dim objRs_well в качестве нового ADODB.Recordset Dim objConn_well1 в качестве нового ADODB.Connection Dim objCmd1 As New ADODB.Command Dim objCmd_well1 Как Новый ADODB.Command Dim objRs_well1 в качестве нового ADODB.Recordset Dim mdate1 как дата Dim mdate2 как дата Dim well_name As String Dim Site_ID As String 'Get поле и дата значение V_Start_Date = Формат (Sheet8.DTPicker1.Value, "дд / мм / гггг ")" За источника Oracle V_End_Date = Format (Sheet8.DTPicker2.Value, "дд / мм / гггг") objConn_well1.Open "Provider = OraOLEDB.Oracle;" & _ "Источник данных = bol_pdms;" & _ "ID пользователя = bol_data;" & _ "Пароль = Merak;" "Установить Объект Команда objCmd1.CommandType = adCmdText objCmd_well1.ActiveConnection = objConn_well1" UserForm1.Show "UserForm1.WebBrowser1.Document.body.Scroll =" нет "Application.ScreenUpdating = True SQL_PROD_TABLE_FINAL =" начать pcd_run_recalc (to_date ("& V_Start_Date &" ',' дд / мм / гггг ")," & _ "to_date (" & V_End_Date & "',' дд / мм / гггг ')); конец;" objCmd_well1.CommandText = SQL_PROD_TABLE_FINAL Набор objRs_well1 = objCmd_well1.Execute

Результаты (русский) 3:

к recalculation()


дим objconn_well'declare переменных, как новые ADODB. связи
дим objcmd новых ADODB. команда
дим objcmd_well новых ADODB. команда
дим objrs_well новых ADODB. Recordset
дим objconn_well1 новых ADODB. связи
дим objcmd1 новых ADODB. команда
дим objcmd_well1 как новая команда
дим ADODB. objrs_well1 новых ADODB. Recordset
дим mdate1 дату
дим mdate2 дату
дим well_name как строки
дим site_id как строки

'get области и дата

v_start_date = формат (sheet8.dtpicker1.value, "день / месяц / год), 'for Oracle источник
v_end_date = формат (sheet8.dtpicker2.value," день / месяц / год)

objconn_well1.open "Provider = oraoledb."; "& _
" данные = bol_pdms; "& _
" User ID = bol_data; "& _
" Password = мерак; "

'set объект управления objcmd1.commandtype = adcmdtext

objcmd_well1.activeconnection = objconn_well1




"'userform1. шоу userform1.webbrowser1.document.body.scroll =" no "


application.screenupdating = true sql_prod_table_final =" начать pcd_run_recalc (to_date ("& v_start_date &" "," день / месяц / год), "& _
" to_date ("& v_end_date &" "," DD / MM / YYYY '); end; "



набор objcmd_well1.commandtext = sql_prod_table_final objrs_well1 = objcmd_well1.казнить