설명

이 예는 Access 데이터베이스 파일의 열 이름을 바꾸는 방법을 보여줍니다.
슬롯 머신를 사용하여 데이터를 덤프한 후 VBscript를 실행합니다.

이 모델은 슬롯 머신의 "필드 이름 바꾸기" 예제에서 참조됩니다.
문서.

키워드: 슬롯 머신, 데이터 교환, GAMS 언어 기능

메인 파일 : 슬롯 머신Example5.gms 포함: 슬롯 머신Example5.gms

$title 필드 이름 바꾸기 (GDX2ACCESSExample5,SEQ=129)

$onText
이 예에서는 Access 데이터베이스 파일의 열 이름을 바꾸는 방법을 보여줍니다.
GDX2ACCESS를 사용하여 데이터를 덤프한 후 VBscript를 실행합니다.

이 모델은 GDX2ACCESS의 "필드 이름 바꾸기" 예제에서 참조됩니다.
문서.

키워드: GDX2ACCESS, 데이터 교환, GAMS 언어 기능
$offText

$callTool win32.msapp액세스 가능
$if errorlevel 1 $abort.noError "사용 가능한 액세스 없음"

세트
   i '통조림 식물' / 시애틀, 샌디에고 /
   j 'markets' / 뉴욕, 시카고, 토피카 /;

매개변수
   a(i) '경우에 따라 식물 i의 용량'
        /시애틀 350
          샌디에이고 600 /

   b(j) '경우에 따라 시장 j의 수요'
        / 뉴욕 325
          시카고 300
          토피카 275 /;

테이블 d(i,j) '거리(천 마일)'
              뉴욕 시카고 토피카
   시애틀 2.5 1.7 1.8
   샌디에고 2.5 1.8 1.4;

스칼라 f '1,000마일당 케이스당 운임(달러)' / 90 /;

매개변수 c(i,j) '케이스당 운송 비용(단위: 수천 달러)';
c(i,j) = f*d(i,j)/1000;

* 매개변수 c를 슬롯 머신 파일로 내보냅니다.
Execute_unload 'c.슬롯 머신', c;

* 액세스 데이터베이스로 이동
* 열 이름은 기본적으로 i와 j입니다.
'gdx2access c.슬롯 머신 > %system.nullfile%'을 실행합니다.

* VBscript를 사용하여 열 이름 바꾸기
'cscript access.vbs > %system.nullfile%'을 실행합니다.

* 실행 시 스크립트를 실행하기 전에 컴파일 시 VBscript를 작성합니다.
$onEcho > access.vbs
'이것은 VBscript 스크립트입니다
WScript.Echo "스크립트 실행 중: access.vbs"
set oa = CreateObject("Access.Application")
oDAO = oa.DBEngine 설정
Wscript.Echo "DAO 버전: " & oDAO.version
oDB = oDAO.openDatabase("%system.fp%c.accdb") 설정
Wscript.Echo "열림: " & oDB.name
oTable = oDB.TableDefs.Item("c") 설정
Wscript.Echo "테이블: " & oTable.name
' 필드 이름 바꾸기
oTable.Fields.Item("i").name = "ifrom"
oTable.Fields.Item("j").name = "jto"
oTable.Fields.Item("Value").name = "운송 비용"
Wscript.Echo "이름이 변경된 필드"
oDB.닫기
Wscript.Echo "완료"
$offEcho