설명

VBscript를 사용하여 MS Access로 테이블 가져오기

카테고리 : 슬롯 사이트 데이터 유틸리티 라이브러리

메인 파일 : PopulateV.gms 포함: PopulateV.gms

$onText

    VBscript를 사용하여 MS Access로 테이블 가져오기

$offText

$if %system.filesys% == UNIX $abort.noError '이 모델은 Windows가 아닌 플랫폼에서 실행할 수 없습니다.';

$new.accdb가 존재하는 경우 $call del new.accdb

내가 /i1*i50/으로 설정;
별칭(i,j,k);
v /v1*v5/ 설정;
매개변수 p(i,j,k,v);
p(i,j,k,v) = 균일(0,1);
스칼라 s;
s = 합계((i,j,k,v),p(i,j,k,v));
디스플레이;

파일 f /data.csv/;
f.pc=5;
f,'i','j','k','v1','v2','v3','v4','v5'/를 넣습니다.
루프((i,j,k),
     i.tl, j.tl, k.tl을 넣습니다.
     루프(v, p(i,j,k,v):12:8;);
     넣어 /;
);
닫다;

* cscript는 DAO dll을 찾아야 하며, C:\Windows\SysWOW64\cscript.exe를 호출해야 할 수도 있습니다.
"=cscript access.vbs"를 실행합니다.
ExecuteTool 'win32.shellExecute new.accdb';

$onEcho > access.vbs
'이것은 VBscript 스크립트입니다
WScript.Echo "스크립트 실행 중: access.vbs"

dbLangGeneral = ";LANGID=0x0409;CP=1252;국가=0"
strSQL = "[Text;HDR=예;데이터베이스=%system.fp%;FMT=구분].[data#csv]에서 mytable로 SELECT *"
Wscript.Echo "쿼리:" & strSQL

oJet = CreateObject("DAO.DBEngine.36") 설정
Wscript.Echo "Jet 버전: " & oJet.version

oDB = oJet.createDatabase("new.accdb",dbLangGeneral) 설정
Wscript.Echo "생성됨: " & oDB.name

oDB.strSQL 실행
TableDef = oDB.TableDefs("mytable") 설정
Wscript.Echo "mytable에 삽입된 행: " & TableDef.RecordCount

oDB.닫기

Wscript.Echo "완료"
$offEcho