Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / File Name / 6 сообщений из 6, страница 1 из 1
18.07.2002, 07:47:57
    #32037352
crot
crot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
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
| Ответить | Цитировать | Написать  
18.07.2002, 08:28:21
    #32037355
crot
crot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
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
| Ответить | Цитировать | Написать  
18.07.2002, 10:05:48
    #32037364
Glory
Glory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
Ну так а в чем проблема-то ?

Код: 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
| Ответить | Цитировать | Написать  
22.07.2002, 04:01:12
    #32037920
crot
crot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
Spasibo Glory,

a eto rabotaet dlia EXCEL filov?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2002, 09:32:36
    #32037928
crot
crot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
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
| Ответить | Цитировать | Написать  
22.07.2002, 12:58:08
    #32038011
Glory
Glory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
File Name
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / File Name / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 446ms
Закрыть
start [/forum/topic.php?fid=46&mobile=1&tid=1821662]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 155ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 2ms
others: 222ms
total:  446ms
x
x
Закрыть


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