powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / File Name
6 сообщений из 6, страница 1 из 1
File Name
    #32037352
crot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Podskazite kak mozno izmeniat imia fila (text, EXCEL)?
U menia iz DB data (ispolzuia DTS Package) sohraniaetsia v EXCEL . Odna iz kolonok soderzit datu konca nedeli, i mne nuzno nazvat EXCEL file imenno tak.
Data v etoi kolonke meniaetsia kazduu nedelu.

Ili proshe mozno li v DTS ukazat konkretnoe nazvania fila, naprimer "File_(getdate()-7)" ili chto-to v etom rode?
Ochen nado, srochno.
...
Рейтинг: 0 / 0
File Name
    #32037355
crot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nshol activeX script

"Dim oPKG
Dim cn
Set oPKG = DTSGlobalVariables.Parent
Set cn = oPKG.Connections("Text File (Source)")
cn.DataSource = DTSGlobalVariables("Global_Variable_Name").Value
"

Eshe odno
"
Dim oPKG
Dim cn
Set oPKG = DTSGlobalVariables.Parent
Set cn = oPKG.Connections("Text File (Source)")
cn.DataSource = "C:\File_" & Year(Now()) & ".dat"
"

Vot eto pochti to chto nado, tolko mne nuzno vot tak:
"C:\File_" & Year(Now()) & getdate()-7 ".dat"
Kak mozno peredat v global variable znachenie - resultat (getdate()-7) i f formate "20020710"
...
Рейтинг: 0 / 0
File Name
    #32037364
Glory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так а в чем проблема-то ?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Function Main()
	Dim dtsPackage
	Set dtsPackage = DTSGlobalVariables.Parent

	OutputFilename = DTSGlobalVariables( "OutputFileNameMask" ).Value + "_"  + CStr(Year(Now)) 
	If Month(Now) <  10  Then
		OutputFilename = OutputFilename +  "0 "
	End If
	OutputFilename = OutputFilename + Cstr(Month(Now))

	If Day(Now) <  10  Then
		OutputFilename = OutputFilename +  "0 "
	End If
	OutputFilename = OutputFilename + Cstr(Day(Now))
	
	OutputFilename = OutputFilename +  "_" 

	If Hour(Now) <  10  Then
		OutputFilename = OutputFilename +  "0 "
	End If
	OutputFilename = OutputFilename + Cstr(Hour(Now))

	If Minute(Now) <  10  Then
		OutputFilename = OutputFilename +  "0 "
	End If
	OutputFilename = OutputFilename + Cstr(Minute(Now))

	If Second(Now) <  10  Then
		OutputFilename = OutputFilename +  "0 "
	End If
	OutputFilename = OutputFilename + Cstr(Second(Now)) +  "."  + DTSGlobalVariables( "OutputFileExtension" ).Value

	DTSGlobalVariables( "OutputFileName" ).Value = OutputFilename
	DTSGlobalVariables( "OutputFileFullName" ).Value = DTSGlobalVariables( "WorkDirectory" ).Value + OutputFilename

	Main = DTSTaskExecResult_Success
End Function
...
Рейтинг: 0 / 0
File Name
    #32037920
crot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Spasibo Glory,

a eto rabotaet dlia EXCEL filov?
...
Рейтинг: 0 / 0
File Name
    #32037928
crot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Rabotaet normalno dlia segodniashnei dati, a esli nuzno uznat datau 30 dnei nazad, to kak mozno otniat?
Mozno li iz tablici brat eto chislo?
...
Рейтинг: 0 / 0
File Name
    #32038011
Glory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
a eto rabotaet dlia EXCEL filov?
Данный скрипт просто задает значение для глобальной переменной, исходя из значения других перемнных и какой-то логики (в данном случае из текущей даты/времени)

Для того, чтобы изменить какую-либо установку какого-либо объекта в DTS Package, необходимо
- получить указатель на данный объект
- знать какое свойство вы хотите поменять и можно ли это вообще сделать

Например, для замены имени файла в Connection с именем Output File можно использовать данный код (в дополнении к уже приведенному выше)

Код: plaintext
1.
2.
3.
4.
Dim dtsConnection
Set  dtsConnection = DtsPackage.Connections( "Output File" )

dtsTextConnection.DataSource = DTSGlobalVariables( "OutputFileFullName" ).Value 


Что именно собой представляет объект - Excel, Text файл или еще что-нибудь - в данном случае не важно.


a esli nuzno uznat datau 30 dnei nazad, to kak mozno otniat

Качайте с microsoft.com Microsoft Windows Script Help и изучайте VbScript. Нужная вам функция имеет имя DateAdd()


Mozno li iz tablici brat eto chislo?
Самый простой способ - использовать Execute SQL Task c Outpu Parameter, возвращающий значение в глобальную переменную
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / File Name
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]