Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 DTS ActiveX (SQL2DBF)  [new]
Wrun
Member [заблокирован]

Откуда:
Сообщений: 126
Перекачиваю данные из таблицы с сервера в DBF файл.
Имя файло - динамическое (от даты) (это я сделал)
Вот код ActiveX:
Function Main()

Dim fso, WorkDirName, DestDirName, WorkFileName, NewFileName, oPkg, oConn

WorkDir = "\\10.32.9.1\Distrib$\for_export\"
WorkFileName = "F1_blank.DBF"

NewFileName = "F1"  & _
String(2 + -Len(Month(Now)), "0") & Month(Now) & _
String(2 + -Len(Day(Now)), "0") & Day(Now) & ".dbf"

Set oPkg = DTSGlobalVariables.Parent
Set oConn = oPkg.Connections("Connection 2")
oConn.DataSource = NewFileName

Set fso = CreateObject("Scripting.FileSystemObject")
Main = DTSTaskExecResult_Failure

If fso.FileExists(WorkDir + NewFileName) Then
	fso.DeleteFile WorkDir + NewFileName, True
End if
If fso.FileExists(WorkDir + WorkFileName) Then
	fso.CopyFile WorkDir + WorkFileName, WorkDir + NewFileName
	If fso.FileExists(WorkDir + NewFileName) Then
	Main = DTSTaskExecResult_Success
	End if
End if
End Function

но:
oConn.DataSource = NewFileName
не правильно (ведь oConn.DataSource - это путь)
А как передать имя файла!???
3 авг 05, 19:52    [1761686]     Ответить | Цитировать Сообщить модератору
 Re: DTS ActiveX (SQL2DBF)  [new]
Glory
Member

Откуда:
Сообщений: 104760
не правильно (ведь oConn.DataSource - это путь)
Ну если путь то тогда oConn.DataSource = WorkDir
А имя файла надо задавать у DataPump Task
3 авг 05, 20:04    [1761702]     Ответить | Цитировать Сообщить модератору
 Re: DTS ActiveX (SQL2DBF)  [new]
Wrun
Member [заблокирован]

Откуда:
Сообщений: 126
Извеняюсь, но не очень понял.
Если можно, то хоть один пример его использования
(я понимаю, что это не правильно, но нет времени на изучение и это единоразовая задача, поймите правильно!)
4 авг 05, 13:42    [1763524]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить