도서관 교육국을 지원하다
라이브러리 사양 지원
。 Subroutine _ button 1_ 클릭되었습니다.
。 로컬 변수 a, 정수 유형
난수 시드 설정 ()
A = 난수 (1, 레코드세트, 레코드 수)
디버그 출력 (a)
편집 상자 1. 내용 = 이름 텍스트 [a]
。 하위 프로그램 _ _ 시작 창 _ 생성됨
。 로컬 변수 연결 텍스트, 텍스트 유형
。 로컬 변수 파일 주소, 텍스트 유형
로컬 변수 SQL 문, 텍스트 유형
。 정수 로컬 변수의 주기 수입니다
파일 주소 = 실행 디렉토리 ()+"\ 이름. Xls "
。 (데이터베이스 연결) 인 경우 연결 ("드라이버 = {Microsoft excel 드라이버 (*). Xls))}; DriverId = 790dbq = "+ 파일 주소+"; Default dir = "+ 파일 주소+";" ) = 참)
디버그 텍스트 출력 ("링크가 성공했습니다!" " ) 을 참조하십시오
True 인 경우 (레코드세트). 연결 설정 (데이터베이스 연결) = false)
Return ()
정말 끝난다면.
SQL 문 = "select * from [sheet 1 $] "
레코드세트입니다. Open (SQL 문, #SQL 문)
루프 수 = 레코드세트입니다. 레코드 수
배열 재정의 (텍스트 변수, false, 레코드세트, 레코드 수)
。 첫 번째 기간 계산 (기간 수,)
레코드세트입니다. 텍스트 읽기 (0, 텍스트 변수 [1])
멤버 추가 (이름 텍스트, 텍스트 변수 [1])
레코드세트입니다. 다음 페이지 () 로 이동합니다
。 카운트 주기 끝 ()
디버그 텍스트 출력 ("읽기 표시 성공!" " ) 을 참조하십시오
그렇지 않으면.
디버그 텍스트 출력 (데이터베이스 연결). 마지막 오류)
끝나면