■ 서브 프로시저를 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Public Sub DisplayMessage(tbTarget, strMessage As String) On Error GoTo errorLabel If TypeOf tbTarget Is TextBox Then tbTarget.Text = strMessage End If Exit Sub errorLabel: Err.Raise vbError + 1001, Err.Description End Sub |
■ Do While ~ Exit Do ~ Loop문을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim I As Integer I = 1 Do While I < 11 Print I If I = 5 Then Exit Do End If I = I + 1 Loop |
■ While ~ Wend문을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Dim pArray As Variant Dim I As Integer pArray = Array(11, 12, 13, 14, 15, 6, 7, 8, 9, 10) I = 0 While I < 10 If pArray(I) > 10 Then Print Str(pArray(I)) & " is Big"; Else Print Str(pArray(I)) & " is Small"; End If Print I = I + 1 Wend |
■ Mod 함수를 사용해 나머지를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Dim I As Integer For I = 0 To 10 If (I Mod 2) = 0 Then Print I & "는 짝수이다." Else Print I & "는 홀수이다." End If Next I |
■ 배열을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Dim nSourceArray(5, 5) As Integer Dim I As Integer Dim J As Integer Dim nValue As Integer For I = 0 To 5 For J = 0 To 5 nSourceArray(I, J) = nValue nValue = nValue + 1 Next J Next I For I = 0 To 5 For J = 0 To 5 Print PadLeft(Str(nSourceArray(I, J)), 10); Next J Print Next I |
■ 문자열 왼쪽에 일정 크기 공백 문자열을 추가하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Public Function PadLeft(strSource As String, nWidth As Integer) As String PadLeft = Space(nWidth - Len(strSource) - 1) & strSource End Function Public Function PadRight(strSource As String, nWidth As Integer) As String PadRight = strSource & Space(nWidth - Len(strSource) - 1) End Function |
■ Do ~ Exit Do ~ Loop Until문을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim I As Integer I = 1 Do Print I If I = 5 Then Exit Do End If I = I + 1 Loop Until I > 10 |
■ Do ~ Exit Do ~ Loop While문을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim I As Integer I = 1 Do Print I If I = 5 Then Exit Do End if I = I + 1 Loop While I < 11 |
■ Form 클래스의 Line 메소드를 사용해 선을 그리는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 |
Dim I As Integer For I = 1 To 10 Me.Line (300, 300 + (I * 300))-(3000, 300 + (I * 300)) Next I |
■ Format 함수를 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 |
Print Format(Date, "yyyy-MM-dd") Print Format(Time, "hh:mm:ss") |
■ Select Case ~ Case ~ Case Else ~ End Select문을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim strGrade As String strGrade = "4" Select Case strGrade Case "1" To "3" Print "저학년" Case "4", "5", "6" Print "고학년" Case Else Print "해당 무" End Select |
■ Chr 함수에서 개행 문자를 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Chr(13) + Chr(10) |
■ ADO를 사용하는 방법을 보여준다. 1. 프로젝트 / 참조 메뉴를 클릭한다. 2. 참조 대화 상자에서 "Microsoft ActiveX Data Objects 2.8 Library" 항목을
■ INSERT SQL을 실행하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Dim pConnection As ADODB.Connection Dim pCommand As ADODB.Command Dim pParameter As ADODB.Parameter Dim nRecordAffected As Long Set pConnection = GetMDBConnection("c:\test.mdb") ' "MDB 연결 구하기" 참조 If pConnection Is Nothing Then MsgBox "데이터베이스 파일 연결을 실패했습니다." Exit Sub End If Set pCommand = GetCommand(pConnection, adCmdText, True, "INSERT INTO Sample (ID, Name) VALUES (아이디, 명칭)") ' "명령 구하기" 참조 Set pParameter = AddParameter(pCommand, "아이디", adInteger, adParamInput, 2) ' "파라미터 추가하기" 참조 pParameter.Value = 4 Set pParameter = AddParameter(pCommand, "명칭", adVarChar, adParamInput, 50) pParameter.Value = "라" pCommand.Execute nRecordAffected Print nRecordAffected Set pCommand = Nothing pConnection.Close Set pConnection = Nothing |
■ SELECT SQL을 실행하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Dim pConnection As ADODB.Connection Dim pCommand As ADODB.Command Dim pParameter As ADODB.Parameter Dim pRecordset As ADODB.Recordset Set pConnection = GetMDBConnection("c:\test.mdb") ' "MDB 연결 구하기" 참조 If pConnection Is Nothing Then MsgBox "데이터베이스 파일 연결을 실패했습니다." Exit Sub End If Set pCommand = GetCommand(pConnection, adCmdText, True, "SELECT * FROM Sample WHERE Name > 성명") ' "명령 구하기" 참조 Set pParameter = AddParameter(pCommand, "성명", adVarChar, adParamInput, 10) ' "파라미터 추가하기" 참조 pParameter.Value = "가" Set pRecordset = pCommand.Execute Do Until pRecordset.EOF Print pRecordset!Name ' 또는 Print pRecordset("Name").Value pRecordset.MoveNext Loop Set pCommand = Nothing pRecordset.Close Set pRecordset = Nothing pConnection.Close Set pConnection = Nothing |
■ 파라미터를 추가하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Public Function AddParameter(pCommand As ADODB.Command, strParameterName As String, pDataType As DataTypeEnum, pParameterDirection As ParameterDirectionEnum, pSize As ADO_LONGPTR) As ADODB.Parameter Dim pParameter As ADODB.Parameter Set AddParameter = Nothing On Error GoTo ErrorLabel Set pParameter = pCommand.CreateParameter(strParameterName, pDataType, pParameterDirection, pSize) pCommand.Parameters.Append pParameter Set AddParameter = pParameter Exit Function ErrorLabel: End Function |
■ 명령을 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Public Function GetCommand(pConnection As ADODB.Connection, pCommandType As CommandTypeEnum, bPrepared As Boolean, strCommandText As String) As ADODB.Command Dim pCommand As ADODB.Command Set GetCommand = Nothing On Error GoTo ErrorLabel Set pCommand = New ADODB.Command With pCommand .ActiveConnection = pConnection .CommandType = pCommandType .Prepared = bPrepared .CommandText = strCommandText End With On Error GoTo 0 Set GetCommand = pCommand Exit Function ErrorLabel: End Function |
■ SELECT SQL을 실행하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
Dim pConnection As ADODB.Connection Dim pRecordset As ADODB.Recordset Set pConnection = GetMDBConnection("c:\test.mdb") ' "MDB 연결 구하기" 참조 If pConnection Is Nothing Then MsgBox "데이터베이스 파일 연결을 실패했습니다." Exit Sub End If Set pRecordset = GetRecordset(pConnection, "SELECT * FROM Sample") ' "레코드셋 구하기" 참조 If pRecordset Is Nothing Then MsgBox "SQL 실행시 에러가 발생했습니다." Exit Sub End If Do Until pRecordset.EOF Print pRecordset!Name ' 또는 Print pRecordset("Name").Value pRecordset.MoveNext Loop pRecordset.Close Set pRecordset = Nothing pConnection.Close Set pConnection = Nothing |
■ 레코드셋을 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Public Function GetRecordset(pConnection As ADODB.Connection, strSQL As String) As ADODB.Recordset Dim pRecordset As ADODB.Recordset Set GetRecordset = Nothing On Error GoTo ErrorLabel Set pRecordset = pConnection.Execute(strSQL) On Error GoTo 0 Set GetRecordset = pRecordset Exit Function ErrorLabel: End Function |
■ 애플리케이션 경로를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Print App.Path |
■ MDB 연결을 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
Public Function GetMDBConnection(strMDBFilePath As String) As ADODB.Connection Dim pConnection As ADODB.Connection Dim strConnectionString As String Set GetMDBConnection = Nothing On Error GoTo ErrorLabel Set pConnection = New ADODB.Connection strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strMDBFilePath pConnection.Open strConnectionString On Error GoTo 0 Set GetMDBConnection = pConnection Exit Function ErrorLabel: End Function Public Function GetMDBConnection(strMDBFilePath As String, strUserID As String, strPassword As String) As ADODB.Connection Dim pConnection As ADODB.Connection Dim strConnectionString As String Set GetMDBConnection = Nothing On Error GoTo ErrorLabel Set pConnection = New ADODB.Connection strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strMDBFilePath + ";User ID=" + strUserID + ";Jet OLEDB:Database Password=" + strPassword pConnection.Open strConnectionString On Error GoTo 0 Set GetMDBConnection = pConnection Exit Function ErrorLabel: End Function |
■ SQL Server 데이터 타입을 사용하는 방법을 보여준다. ▶ 표
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
───────────────────────────────────────────────────────────────────────────── SQL Server 비주얼 베이직 설명 ──────── ─────── ──────────────────────────────────────────────────────────── BINARY Byte Array 고정 길이 바이너리 문자열, 8,000 바이트 길이까지 BIT 없음 한 자리 바이너리, 0이나 1 CHAR String 고정 길이 비 유니코드 문자열, 8,000자까지 DATETIME Date 1753년 1월 1일부터 9999년 12월 31일까지의 날짜와 시간을 지정할 수 있는 64비트 값, 3.33밀리초 정확성 DECIMAL 없음 -10^38 - 1에서 10^38 - 1 범위의 십진수 FLOAT Double -1.79E + 308에서 1.79E + 308 범위의 64비트 부동 소수점 숫자 IMAGE Byte Array 가변 길이 바이너리 문자열, 2^31 - 1(2,147,483,648) 바이트 길이까지 INT Long -2^31(-2,147,483,648)에서 2^31 - 1(2,147,483,647) 범위의 31비트 정수 MONEY Currency -2^63(-922,337,203,685,477.5808)에서 2^63 - 1(922,337,203,685,477.5807)로 소수점 이하 4자리의 고정 소수점을 갖는 달러 값 NCHAR String 고정 길이 유니코드 문자열, 4,000자까지 NTEXT String 가변 길이 유니코드 문자열, 2^30 - 1(1,073,741,823)문자까지 NVARCHAR String 가변 일이 유니코드 문자열, 4,000자까지 REAL Single -3.40E + 38에서 3.40E + 38 범위의 32비트 부동 소수점 숫자 SMALLDATETIME Date 1900년 1월 1일부터 2079년 6월 6일까지의 날짜와 시간을 지정할 수 있는 32비트 값, 1분 정확성 SMALLINT Integer -2^15(-32,768)에서 2^15 - 1(32,767) 범위의 16비트 정수 SMALLMONEY Currency -214,748.3648에서 214,748.3647 범위의 달러 값 TEXT String 가변 길이 비 유니코드 문자열, 2^31 - 1(2,147,483,647) 문자까지 TIMESTAMP 없음 데이터베이스 내 유일성이 보장되는 64비트 값 행이 삽입되고 업데이트될 때마다 값이 바뀐다. TINYINT Byte 0에서 255 범위의 8비트 정수 UNIQUEIDENTIFIER 없음 128비트 Global Unique Identifier(GUID) 값 VARBINARY Byte Array 가변 길이 바이너리 문자열, 8,000 바이트 길이까지 VARCHAR String 가변 길이 비 유니코드 문자열, 8,000자까지 ───────────────────────────────────────────────────────────────────────────── |
■ 클래스 작성기 유틸리티를 사용하는 방법을 보여준다. 1. 추가 기능 / 추가 기능 관리자 메뉴를 클릭한다. 2. 추가 기능 관리자 대화 상자에서
■ 속성을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private m_strAccountNumber As String Public Property Get AccountNumber() As String AccountNumber = m_strAccountNumber End Property Public Property Let AccountNumber(ByVal strAccountNumber As String) m_strAccountNumber = strAccountNumber End Property |
■ 함수 프로시저를 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Public Function DisplayMessage(tbTarget, strMessage As String) As Boolean DisplayMessage = False On Error GoTo errorLabel If TypeOf tbTarget Is TextBox Then tbTarget.Text = strMessage End If DisplayMessage = True Exit Function errorLabel: Err.Raise vbError + 1001, Err.Description End Function |