선택장애

복사할 데이터베이스 마우스오른쪽 -> 태스크 -> 스크립트생성 -> 다음다음 -> 고급 ‘서버 버전에대한 스크립트’, ‘스크립팅할 데이터 형식’ 확인 -> 다음하면 sql이 생김. 붙여놓을 곳 데이터베이스 만들고 쿼리 실행

Function getRandomKey() str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" '랜덤 문자열에 포함될 문자들 strlen = 10 '랜덤 문자열의 자릿수 Randomize '랜덤 초기화 Dim r, i For i = 1 to strlen r = Int((36 - 1 + 1) * Rnd + 1) strRandomCode = strRandomCode & CSTR(Mid(str,r,1)) If InStr(strRandomCode,"EXEC")>0 Then strRandomCode="" i=0 End If Next getRandomKey = strRandomKey End Function