피벗을 수행하기 전에 레코드 세트를 수정하십시오.

Question

ASP 페이지에서 vbscript를 통해 액세스하는 액세스 데이터베이스가 있습니다. 데이터베이스를 쿼리하고 레코드 세트를 반환하고 레코드 세트의 일부 데이터를 수정 한 다음 피벗을 수행해야합니다. 수정 된 레코드 세트에서 피벗을 수행하려면 어떻게해야합니까?

레코드 세트가 반환되고 데이터 수정이 완료되었지만 현재 피벗을 수행하는 방법에 대해서는 알지 못합니다. 데이터 수정에는 레코드 세트의 각 항목 (일정 요청)을 검사하여 필터 날짜 범위에 걸쳐 있는지 확인해야합니다. 시작 및/또는 종료 시간이 조정되고 요청 시간이 다시 계산됩니다. SQL 쿼리 자체에서 수행 할 수있는 것은 아닙니다.

Answer 1

일부 SQL 변형에는 고유 한 PIVOT 기능이 있지만 ACCESS에 대해서는 알지 못하지만 여기에는 vbscript의 일반적인 피벗 팅 기능이 있습니다. 사용자 배열은 배열에 있고 여기에는 vbscript 다차원 배열이 없습니다. 그런 버전이 필요한지 알려주세요.

arr = Array(_ 
    Array(1,2,3),_ 
    Array(4,5,6)_ 
) 

for each line in arr 
    wscript.echo join(line) 
next 

'1 2 3 
'4 5 6 

pivotted = pivot(arr) 

function pivot(arr) 
    dim arr2(), temp() 
    redim arr2(ubound(arr(0))) 
    for col = 0 to ubound(arr(0)) 
    redim temp(ubound(arr)) 
    for row = 0 to ubound(arr) 
     temp(row) = arr(row)(col) 
    next 
    arr2(col) = temp 
    next 
    pivot = arr2 
end function 

for each line in pivotted 
    wscript.echo join(line) 
next 

'1 4 
'2 5 
'3 6