Advertisement
Advertisement
| 08.01.2008 at 07:24AM PDT, ID: 23614269 |
|
[x]
Attachment Details
|
||
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: 38: 39: 40: 41: |
DECLARE
@LOC int,
@FolderPath varchar(255),
@TemplateFilePath varchar(255)
SET @TemplateFilePath = 'D:\ACCN EXCEL FILE TEST\i.xls'
SET @FolderPath = 'D:\ACCN EXCEL FILE TEST\'
DECLARE c_MyCurs CURSOR LOCAL FAST_FORWARD FOR
SELECT DISTINCT LOC
FROM dbo.LOC_1
WHERE (Excel_Status = 0)
OPEN c_MyCurs
FETCH NEXT FROM c_MyCurs INTO @LOC
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @OLEDBInitString varchar(8000),
@FilePath varchar(1000),
@CopyCmd varchar(1000)
SET @FilePath = @FolderPath + 'ExcelFile_' + CAST(@LOC as varchar) + '_' + cast(year(getdate()) as varchar) + '_'+ cast(month(getdate()) as varchar) + '_'+cast(day(getdate()) as varchar)+ '_'+ cast(datepart(hh,getdate()) as varchar)+ '_'+cast(datepart(mi,getdate()) as varchar)+'_'+cast(datepart(ss,getdate()) as varchar)+'.xls'
SET @CopyCmd = 'COPY /Y "' + @TemplateFilePath + '" "' + @FilePath + '"'
EXEC master.dbo.xp_cmdshell @CopyCmd, no_output
SET @OLEDBInitString = 'Data Source="' + @FilePath + '";Extended properties=Excel 5.0;'
DECLARE @Insert varchar(8000)
SET @Insert = 'INSERT INTO OPENDATASOURCE( ''Microsoft.Jet.OLEDB.4.0'', ''' + @OLEDBInitString + ''')...[Sheet1$]
SELECT Entity_Code, Name,State, TopParentNumber,TopParentName FROM LOC_1 WHERE EXCEL_STATUS = 0 AND LOC= ' + CAST(@LOC as varchar)
EXEC (@Insert)
UPDATE
dbo.ACCN_Final
SET
PATH = @FolderPath,
ATTACHMENT = 'ExcelFile_' + CAST(@LOC as varchar) + '_' + cast(year(getdate()) as varchar) + '_'+ cast(month(getdate()) as varchar) + '_'+cast(day(getdate()) as varchar)+ '_'+ cast(datepart(hh,getdate()) as varchar)+ '_'+cast(datepart(mi,getdate()) as varchar)+'_'+cast(datepart(ss,getdate()) as varchar)+'.xls'
WHERE
LOC= @LOC and Sent= 0
FETCH NEXT FROM c_MyCurs INTO @LOC
END
CLOSE c_MyCurs
DEALLOCATE c_MyCurs
|