hara

Sub callDB() '//변수선언Dim conn As ADODB.ConnectionDim server_name As StringDim database_name As StringDim user_id As StringDim password As String Dim dbRecset As New ADODB.RecordsetDim sSQL As StringDim iRow As Long, n As LongDim intPublisherCount As Integer '//서버정보 입력server_name = "서버이름"database_name = "디비이름"user_id = "유저아이디"password = "유저비번" '//connection openSet conn = New ADODB.Connectionconn...

Sub arrayy() arr = Array(1, 2, 3, 4) For Each element In arr Debug.Print element Next End Sub

Sub random() MsgBox (Int(Rnd() * 10) + 1) End Sub

Function getPlus(val_01, val_02) getPlus = val_01 + val_02End Function Sub test_getPlus() result = getPlus(10, 20) MsgBox (result) End Sub

Sub printt(p_name) MsgBox ("hello " & p_name)End Sub Sub test_print() Call printt("hara") End Sub

Sub printHello() MsgBox ("hello") End Sub Sub test_printHello() Call printHello End Sub