영어청취와 사업아이디어, 컴퓨터무료강의가 있는 곳

SPOOL 명령

SQLPLUS에서 쿼리문과 그 실행결과를 저장할 때 요긴함.

사용방법

SQL>SPOOL 파일명

SQL처리

SQL>SPOOL OFF

저장된 파일 보기

SAVE 명령

버퍼의 내용을 외부 파일에 저장함.

사용방법

SQL>SAVE 파일명 [REPACE | APPEND]

 

여기서 REPLACE는 위의 파일명과 똑 같은 파일이 기존에 존재하면 교체하고

APPEND는 기존의 파일이 존재하면 기존의 파일 뒤에 추가한다.

 

SAVE에서 REPLACE 이용

   
   원래 생성된 파일
  

   RELACE를 수행하고 난 후 파일    

SAVE에서 APPEND 이용

원래 생성된 파일

APPEND 후 변경된 파일

 

EXIT 명령

SQLPLUS 사용을 종료한다.

 

사용방법

SQL>EXIT

 

정리하자면 SPOOL은 SQL문과 그 실행결과까지를 저장하지만 SAVE는 단지 SQL문만을

저장함을 알 수 있습니다.

 

다음에는 GET, ED, START, … 에 대해서 알아보도록 하지요.
아참.. 위에서 SQL>cl buff; 이라는 부분이 있는데 이것은 버퍼내용을 비우라는 의미입니다.

TO_CHAR()

TO_CHAR(NUMBER, ‘포맷형식’)

 

형식	의미
9	숫자로 표시
0	숫자의 앞부분을 0으로 표시
$	달러표시
L	지역 화폐 단위 표시
.	소수점 표시
,	1000단위 구분자 표시

 

예) EMP 테이블에서 SAL 값을 표시하면 앞에 화폐 표시가 되지 않는데.

아래와 같이 쿼리를 작성하여 실행하면

SELECT ENAME, TO_CHAR(SAL, 'L99,999.0') FROM EMP;

다음과 같이 된다.

 

 

CASE

CASE 함수는 SQL 문장 내에서 IF … THEN … ELSE … END 와 같은 제어문을 쓸 수

있도록 해준다.

 

형식 

CASE  표현식1 WHEN 비교 표현식 1 THEN 리턴값1

                       WHEN 비교 표현식 2 THEN 리턴값2

                       WHEN 비교 표현식 3 THEN 리턴값3

                        ELSE  리턴값4

END 별칭

 

예) EMP 테이블에서 JOB에 대해 영어로 되어 있는 명칭을 JOB이 ANALYST, CLEAK은 한글로 나머지는 ‘기타’로 하고 ENAME, JOB를 기본으로 처리 결과를 출력하도록 하시요.

 

SELECT ENAME, JOB,

       CASE JOB WHEN 'ANALYST' THEN '분석가'

                WHEN 'CLERK'   THEN '점원'

                ELSE '기타 직종' 

END "직종"

 

FROM EMP;

이상으로 TO_CHAR(), CASE에 대해서 알아보았음.
실제로 쿼리문을 작성하다보면 CASE문을 써야 할 경우가 종종 있는데 이 기회에
잘 익혀 두시길 바랍니다.

General Declarations에 추가
Imports System

Imports System.IO

 

값 얻기 위한 코드

For Each drive_info As DriveInfo In DriveInfo.GetDrives()

            Console.Write(drive_info.Name & "   ")

            Console.WriteLine(drive_info.DriveType().ToString)

Next drive_info

결과 확인

결과 관련 참조

 

결과값	설명
Unknown	드라이브 타입은 모름
NoRootDirectory	루트 디렉토리를 갖고 있지 않은 드라이브
Removable	USB 플레쉬 드라이브나 플로피 디스크처럼착탈이 가능
Fixed	하드 디스크처럼 고정형 디스크
Network	네트웍 드라이브임
CDROM	CD롬이나 DVD롬처럼 광학 디스크 장치
Ram	램디스크

즐공들 하시길...

NET Framework Library에 있는 StreamReader Class를 이용했음.

 

StreamReader Class

 

StreamReader 클래스를 이용하기 위해서는 코드 맨 상단에 Imports System.IO 를
추가해 준다.

폼디자인

 

코딩하기

Imports System.IO

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click

 

        Dim StreamToDisplay As StreamReader

 

        '읽을 txt 파일을 할당

        StreamToDisplay = New StreamReader("E:\test.txt")

 

        '파일 끝까지 읽어서 그 데이터를 txtRead.Text에 입력하라

        txtRead.Text = StreamToDisplay.ReadToEnd

 

        'StreamReader 객체를 닫고 관련 리소스를 release하라.

        StreamToDisplay.Close()

 

 

    End Sub

End Class

test.txt 파일의 내용은 RFC5090의 첫머리를 저장한 것이다.

Network Working Group                                   B. Sterman

Request for Comments: 5090                               Kayote Networks

Obsoletes: 4590                                            D. Sadolevsky

Category: Standards Track                                 SecureOL, Inc.

                                                             D. Schwartz

                                                         Kayote Networks

                                                             D. Williams

                                                           Cisco Systems

                                                                 W. Beck

                                                     Deutsche Telekom AG

                                                           February 2008

 

 

               RADIUS Extension for Digest Authentication

 

Status of This Memo

 

   This document specifies an Internet standards track protocol for the

   Internet community, and requests discussion and suggestions for

   improvements.  Please refer to the current edition of the "Internet

   Official Protocol Standards" (STD 1) for the standardization state

   and status of this protocol.  Distribution of this memo is unlimited.

 

 Abstract

 

   This document defines an extension to the Remote Authentication

   Dial-In User Service (RADIUS) protocol to enable support of Digest

   Authentication, for use with HTTP-style protocols like the Session

   Initiation Protocol (SIP) and HTTP.

실행하기

이상으로 StreamReader 클래스를 이용해서 간단하게 txt파일을 읽어오는 법을 알아보았다.

MSSQL2000, MySQL4.0 버전의 데이터 베이스를 이용하여 데이터 처리를 해 본 후 약 6년 만에 다시 MSSQL 2005를 접하게 되니 감개 무량일 따름임.

오늘은 MS의 예제 데이터베이스를 학습차원에서 DB에 붙이는 과정을 알아보고자 합니다.

다운로드받아야할 파일은 아래의 링크를 클릭해서
http://www.codeplex.com/MSFTDBProdSamples/Release/ProjectReleases.aspx?ReleaseId=4004

AdventureWorksDB.msi  이 파일을 받으면 된다.
참고로 MS의 사용동의서를 잘 읽어보시길..

다운로드 받아 실행하면 MSSQL 2005 Server 폴더의 DATA 파일에 저장된다.

자 이제 DB를 연결(붙이기)하기를 알아보자.
데이터베이스에서 오른쪽 마우스 클릭하면 위와 같은 메뉴가 나오는데 여기서 연결을 선택한다.


위에서 추가버튼을 클릭하면


Data 밑에 AdventureWorks_Data.mdf를 선택하고 확인


위에서 보는 바와 같이 데이터파일(.mdf)과 로그파일(.ldf)파일이 선택된 것을 알 수 있다.
확인을 누르고 실제 제대로 붙여졌는지 확인을 해보자.


위와 같이 제대로 붙어 있는 것을 확인할 수 있다. 이상으로 간단하게 알아보았다.
추후 다른 데이터베이스가 존재할 경우.. 이와 같은 방법으로 붙이면 될 것이다.

오늘은 원격 데스트탑 연결에 대해서 알아보고자 한다.
클라이언트 컴퓨터는 데스크톱 연결을 통해 웹으로 원격지의 서버로 연결이 가능하다.
물론 터미널 서비스를 이용해서도 가능하다.

먼저 [제어판]-[프로그램  추가/제거]에서 Windows 구성요소 추가/제거를 눌러서 필요한
프로그램을 설치해야 한다.

Windows 구성요소 추가/제거를 눌러서 아래와 같이 응용프로그램 서버를 체크하고 자세히를
누른다.

여기서 자세히를 누르면 아래와 같은 화면이 나오는데 여기서 World Wide Web 서비스에 체크하고
자세히를 누른다.


위에서 자세히를 클릭하면 아래와 같은 화면이 나오고 여기서 원격 데스크탑 웹연결 선택하고
확인하고 설치한다.

이렇게 설치를 마치고 난 후  관리도구에 인터넷 정보서비스(IIS) 관리를 클릭하면 아래와 같이 생성된 것을 볼 수 있다.

여기서 tsweb을 선택하면 아래와 같이 default.htm이라는 파일이 보이는데 이것을 등록해줘야한다.

클라이언트는  원격지의 서버에 있는 터미널 서버에 웹을 이용해서 default.htm이라는 파일을 실행하는 것이다.


웹브라우저에 위에서와 같이 원격지 서버의 주소/tsweb/default.htm을 입력하면


위와 같이 로그인 화면이 나오고 여기에 로그인 정보를 입력하고 확인을 누르면 로컬에 로그온한 것 같이 익스플로어를 이용해서 원격지 서버에 접근이 가능하다.


위와 같이 원격지 서버에 접속한 화면을 볼 수 있다.
이상으로 원격 데스크톱 웹 연결에 대해서 알아보았음.

프로그램을 작성하다 보면 반복해서 처리해 줘야하는 경우가 종종 있다. 예를 들면 적게는 수십명에서 많게는 수 만명의 사람에게 SMS 문자메시지나 이메일을 보내줘야 하는 경우같이 반복되는 작업을 처리해야 할 때 사용하면 좋은 반복문에 대해서 알아보기로 하자.

1. For ~ Next 문
For문과 Next문 사이의 코드를 조건에 따라서 반복 처리한다.

1.1  형식

For 변수 = 초기치 To 최종치 [Step 증감값]

…
실행코드들
[Exit For]

Next [변수]

 

è  Step문이 생략된 경우에는 증감값은 1이 된다.

 

1.2  예제

이중 For ~ Next문을 사용하여 “0123456789”가 10번 출력되도록 함.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

        Dim number, count As Integer

        Dim thisString As String = ""

 

        For number = 10 To 1 Step -1

            For count = 0 To 9

                thisString &= CStr(count)

            Next count

            thisString &= " "

            MsgBox("현재 number 값은 :" & CStr(number) & "현재
                    thisString값은 :" & thisString & "이다")

 

        Next number

 

        MsgBox("For Next문을 수행한 최종 결과는 : " & thisString &
                "이다.")

 

End Sub

[참고] For … Each문은 배열에 대해서 할 때 글을 올리도록 하겠습니다.

2. Do While … Loop문

For 반복문은 루핑 수행시 회수에 의존하므로 일반적인 조건들을 반영하기가 조금은 불편하다. 이럴 경우 어떤 조건이든 사용이 가능한 Do While문을 알아보자.

부연하자면 Do While문은 조건이 참인 동안(거짓일 될 때까지) 일정한 블록 내의 코드를 반복 처리한다.

2.1 형식

Do While 조건식

…
실행코드들

Loop

 

2.2 예제

TextBox1에 입력한 숫자로 합계가 10미만이 될때까지 반복하는 예제

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 

'CInt()함수는 문자를 숫자로 변환해주는 함수

 

        Dim sum As Integer = 0

        Dim counter As Integer = 0

        Do While sum < 10

            sum = sum + CInt(TextBox1.Text)

            counter = counter + 1

            MsgBox("반복수는 : " & CStr(counter) & "현재 sum 값은 : "
                   & CStr(sum) & "이다")

        Loop

        MsgBox("총 반복수는 :  " & CStr(counter) & " 번이다!")

 

End Sub

 

 

3. Do … Loop While 문

이 반복문은 Do While Loop문과 동일하지만 다른 점은 루프 내의 문장이 최소한 한 번은 수행된다는 점이다.


4. Do Until … Loop 문

Do Until문은 Do While문과는 달리 지정된 조건이 참이 될 때까지 루프 내의 코드들을 실행한다.

4.1 형식

Do Until 조건식

…
실행코드들

Loop

 

4.2 예제

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

 

        'TextBox1에 입력한 숫자로 sum<10 일때까지 반복한다.

        'CInt()함수는 문자를 숫자로 변환해주는 함수

 

        Dim sum As Integer = 0

        Dim counter As Integer = 0

 

        If TextBox1.Text <> "" Then

            Do Until sum = 10

                sum = sum + CInt(TextBox1.Text)

                counter = counter + 1

                MsgBox("반복수는 : " & CStr(counter) & "현재 sum
                          값은 : " & CStr(sum) & "이다")

 

                'sum 값이 10보다 클 경우 Do Until ... Lop 탈출

                If sum > 10 Then

                    Exit Do

                End If

            Loop

            MsgBox("총 반복수는 :  " & CStr(counter) & " 번이다!")

 

        Else

            MsgBox("숫자를 입력해주세요.")

        End If

End Sub

 

5. Do … Loop  Until 문

이 반복문은 Do Until .. Loop문과 동일하지만 다른 점은 루프 내의 문장이 최소한 한 번은 수행된다는 점이다.

예제 결과

실제로 폼디자인한 후  코드 입력하여 테스트를 해보시고 바꿔보시고 하시면 쉽게
익히실 수 있을 겁니다.

무료 창업교육 및 컨설팅

서울시는 서울신용보증재단과 소상공인지원센터를 통해 예비 창업자 및 업종 전환을 희망하는 사람들에게 무료창업교육과 컨설팅을 실시하고 있고 야간강좌와 주말강좌도 운영

서울시 소상공인지원센터(http://www.sbdc.or.kr/)

 

2008년 소상공인 창업아카데미 과정
야간창업과정(외식업, 도소매/서비스업, E-Biz, 경영개선), 주말창업과정(기본), 여성창업(미용 뷰티업, 전자상거래업, 도소매업), 청년창업과정(SOHO) 등이 있다.

교육 대상 : 예비 창업자 및 업종전환 희망 자영업자

교육 장소 : 강남교육장(역삼역 8번 출구 아주빌딩 19, 20층)
교육 신청 : http://www.sbdc.or.kr/지원서비스/소상공인교육/지원센터교육

수료 혜택 : 소상공인 창업자금 특별보증(업체당 2천만원 이내) 신청자격 부여

소상공인 사업장 임차자금특별보증(업체당 5천만원 이내) 신청자격 부여
문의처 : 1588-5302

[참고]  1. 근로복자공단에서 고용보험 실직자지원사업 실시
             대상 : 고용보험 피보험자였던 장기실업자(구직 등록 후 6개월 이상) 또는 실직
                     여성가장으로 창업을 희망하는 분
             지원방식 : 무담보, 무보증으로 최고 7천만원 한도까지 근로복지공단이 점포를
                          임차하여 대여하는 형식
             자세한 사항 : 근로복지공단 홈페이지
                              (http://www.kcomwel.or.kr/worker/worker_03_01.asp)

             연락처 : 1588-0075

          2. 소상공인 e-러닝센터(http://edu.sosang.kr/)
             온라인 상으로 창업 관련 교육을 받을 수 있음

출처:매일경제신문광고와 서울특별시 소상공인지원센터 웹사이트 참고

Select 문
Select 문은 하나의 식을 검사하여 여러 개의 실행 블록 중 하나를 선택하여 분기한다.

1.1 형식

Select Case 비교대상

Case 비교값 1

  처리코드 1

Case 비교값 2

  처리코드 2

…

Case Else

  처리코드

           End Select

1.2 예제

Select Case Val(TextBox1.Text)

 

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요..가")

 

      End Select

이번에는 실제 예제를 볼까요?

                                                 폼 디자인

                                       값이 입력되지 않았을 때

                                  숫자가 아닌 값이 입력되었을 때


사용된 함수 및 기능
Public Function IsNumeric(ByVal Expression As Object) As Boolean

Expression이 숫자형이면 참(True)을 숫자형이 아니면 거짓(False)을 나타낸다.

 

TextBox.Focus
텍스트박스의 입력창에 입력이 가능하도록 포인터를 위치시킨다.

If문 테스트 클릭시 코딩된 부분
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

 

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

        ElseIf Val(TextBox1.Text) < 90 Then

            MsgBox("당신은 공부를 더 열심히 해야겠군요.!!")

        End If

 

End Sub


Select문 테스트 클릭시 코딩된 부분
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

 

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

 

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

        End If

 

 

        If TextBox1.Text <> "" Then

            Select Case Val(TextBox1.Text)

 

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요. 가")

 

            End Select

        End If

 

End Sub

If 조건문
If 조건문은 프로그램을 짜다보면 너무도 자주 접하게 되는 프로그램의 흐름을 결정하는 중요한 부분으로 잘 알아두면 좋을 것입니다.

1. 단일 If 문

1.1 형식
           If 조건 Then 실행문
           End If

1.2 예제
           영어점수가 70점 미만일 때는 합격 취소하는 경우

Dim English As Integer
           If English < 70 Then
             Passed = False
           End If

 

2. 이중 선택 If 문
조건을 테스트한 결과가 참인지 혹은 거짓인지에 따라 서로 다른 문장 블록을 선택적으로 실행해야 하는 경우가 있는데 이때 다음과 같이 Else 문을 추가하여 프로그래밍한다.

2.1 형식

        If 조건 Then

             참인 경우 실행할 코드

        Else      

          거짓인 경우 실행할 코드

        End If

2.2 예제
           영어 점수가 70점 이상이면 합격이고 그 미만일 경우에는 불합격 메시지를 표시
           Dim English As Integer
           If English >=70 Then

MsgBox(“합격하셨습니다.”)
           Else

MsgBox(“불합격하셨습니다.”)
End If

3. 다중 조건 If 문

검사할 조건이 여러 개인 경우 ElseIf문을 사용한다.

 

3.1 형식

           If 조건 1 Then
             실행코드 1
           ElseIf 조건 2 Then
             실행코드 2

           Else

             실행코드 3

           End If

 

3.2 예제

하나의 숫자를 가지고 비교하여 각각에 다른 메시지 보여주기
Dim number As Integer
number = 155

           If number < 100 Then
  MsgBox(“100보다 작군요”)

ElseIf number < 200 Then

          MsgBox(“200보다 작군요”)

           Else

             MsgBox(“200보다 크군요”)

           End If

단순히 이해를 쉽게 하기 위해서 되도록 간단한 예제를 들었습니다. 실제 프로그래밍을 하다보면 이와 같이 간단한 경우도 있지만 복잡한 구조를 만나게 되는데 무엇보다 중요한 것을 기본에 충실해야겠죠.
실제 예제를 직접 입력해 보시면서 감각을 익히시길 바랍니다.
그럼 If 조건문에 대해서는 이 정도에서 마칩니다.