<μμ½>
1. λ°μ΄ν° ν¬κΈ°μ μ°¨μ΄μμ μ μ΅μ λ²μ ΌμΌλ‘ ν΄λ λͺ λ°±λ§κ±΄ μ λλ§ μ μ₯λλ κ±Έλ‘ μλλ€.λ°μ΄ν°λ² μ΄μ€λ μ€ν 리μ§λ§ μλ€λ©΄ μ΅λ¨μ μ΄μμΌλ‘ μ μ₯ν μ μμ΅λλ€.
2. λμμ±μ μ°¨μ΄μμ μ λμμ λλͺ μ΄μμ΄ μμ ν μ μμ΅λλ€.λ°μ΄ν°λ² μ΄μ€λ μ¬λ¬λͺ μ΄ κ°μ νλ§ μλλΌλ©΄ λμμ μμ ν μ μμ΅λλ€.
3. κ²μμ μ°¨μ΄λ°μ΄ν°κ° λ§μ΄ μ μ₯λμ΄ μμλ λ°μ΄ν°λ² μ΄μ€λ μμ λ³΄λ€ ν¨μ¬ λΉ λ₯Έ μλλ‘μνλ λ°μ΄ν°λ₯Ό κ²μν΄μ€λλ€.
4. SQLμ νμ©λ°μ΄ν° λ² μ΄μ€λ SQLμ νμ©νμ¬ μνλ λ·°λ‘ μΌλ§λ μ§ λ³΄μ¬μ€ μ μμ΅λλ€.
5. μμ©νλ‘κ·Έλ¨κ³Ό μ°λλ³΄ν΅ λ°μ΄ν°λ² μ΄μ€λ λ¨μΌλ‘ μ¬μ©λκΈ° 보λ€λ μ¬λ¬ μμ©νλ‘κ·Έλ¨κ³Όμ°λν΄μ μ¬μ©λλλ°μ μ΄λ, μμ©νλ‘κ·Έλ¨ λ΄μμ μΈν°νμ΄μ€ νκΈ°κ° ν¨μ¬ μμν©λλ€.
6. λ¬΄κ²°μ± μ μ½λ°μ΄ν°λ² μ΄μ€λ λ¬΄κ²°μ± μ μ½μ΄λΌλ κ²μ΄ μ‘΄μ¬νκ³ ,μ κ·ν κ³Όμ μ κ±°μ³ λ°μ΄ν°μ μ€λ³΅λ° μ€λ₯λ₯Ό λ°©μ§νλλ°μμ μ μ΄λ° λΆλΆμ΄ μ·¨μ½ν©λλ€.Β
<νΈνκ² μ’λ€>Β
μμ μ΄λ μμΈμ€λ μ¬μ©μκ° κ°μ₯ νΈν΄μΌ μ’μκ²μ΄ μλκΉμ?Β
λλ μμ λ‘ λͺ»νλ κ²μ΄ μλ€!!κ·Έλ¬λλλ μμΈμ€λ‘ λͺ»νλ κ²μ΄ μλ€.!! κ·Έλ μ΅λλ€.μμ μ΄λ μμΈμ€λ μ¬μ©μκ° μμ μ΄ ν μμλ μμ μ΄ νκ³ μΆμ λͺ¨λ κ²μ λ₯ν ν΄λΌμ μμΌλ©΄ κ·Έκ²μΌλ‘ μ’μ κ±° κ² μ£ !!Β
κ·Έλ¬λ MSμμ λκ°μ§ νλ‘κ·Έλ¨μ λ μ΄μ λ₯Ό κ³°κ³°ν μκ° ν΄λ΄μΌ ν©λλ€. λ νλ‘κ·Έλ¨μ λΉμ·νκ² κ°μΌλ©΄μ μ ν λ€λ₯΄κ³ λ€λ₯Έκ² κ°μΌλ©΄μλ κ°κ² μ¬μ©ν μ μλμλ‘μκ² μμΉμμ©μ μΌμΌν¬μ μλ μμ£Ό μ’μ κ΄κ³(?)λ₯Ό λ§Ίκ³ μλ€λ κ²μ λλ€.Β
μμ λ‘ λλ μλ£κ³μ°μ λͺμκ° κ±Έλ¦΄μΌμ μμΈμ€λ‘ μ κΉλ§μ ν΄λΌ μ μκ³ κ·Έ λ°λμ κ²½μ°λ μμ΅λλ€. μ΄λ€ λ°μ΄ν°λ₯Ό μ΄λ»κ² κ΄λ¦¬νλλμ λ°λΌ μμ μ΄ νΈν λλ μλ κ²μ΄κ³ μμΈμ€κ° νΈν λλ μλ κ²μ λλ€.Β
μμ λ‘λ μμΈμ€μ²λΌ λ°μ΄νλ² μ΄μ€λ₯Ό μ΄μ©ν νλ‘κ·Έλ¨μ λ§λ€ μ μμ΅λλ€.λ°λλ‘ μμΈμ€λ‘λ μμ μ€λ½κ² μ¬μ©μ΄ κ°λ₯νκ² ν μ μμ£ !! μ°λ¦¬κ° μ리μ¬λΌ κ°μ ν λ νλ νμΉΌλ‘ λ¬΄λ μμΉΌλ‘ κΌ μ°μ΄μΌ νλ€λ λ²μ μμ΅λλ€.λ€λ§ νλ νμΉΌλ‘ μ°λ νΈνκ³ λ¬΄λ μμΉΌλ‘ μ°λκ° νΈνλ€λ κ±°μ£ !!
μμ κ³Ό μμΈμ€λ κ·Έ λΉμ·νκ² μλκΉμ!! λκ³Ό μ€μ λ°μ§μλ©΄ μ΄λ»κ² μ¬μ©νλλμ λ°λΌ λ¬λΌ μ§λ€κ³ λ΄μΌκ² μ£ !!
νμΉΌλ‘ λ¬΄λ₯Ό μ°λ©΄ μμ νμ΄ λ§μ΄ λ€μ΄κ°μ§λ§ κ·Έλ λ€κ³ 무λ₯Ό λͺ»μ°κ±°λ νμ§λ μμ£ !!
λ°λλ‘ μμΉΌλ‘ νλ₯Ό λ¨λ©΄ λ§€λλ½μ§ λͺ»νκ² λ μ§κ² μ£ !!
νμ§λ§ κ·Έ νλ₯Ό λͺ»λ¨Ήλ κ²μ μλμ£ !! μλ₯Ό 무μνκ² λ€μλλ°...Β
μλ¬΄νΌ λκ³Ό μ€μ λ°μ§λ€λ κ² μμ²΄κ° μ°μ€μ΄μΌμ΄ μλκ° μΆμ΅λλ€.
λ¬Όλ‘ μμμ λ§ν κ² μ²λΌ μμΉΌλ‘ νλ₯Ό λ¨λλ° μ΄λΆμ μ΄μ μ κ³ μμ¬μ μΉΌμ μ’ λ₯λ₯Ό λ°μ§μ§ μλ λΆμ΄λ€!!
κ·Έλ΄λ μκ΄ μκ² μ§λ§ μ°λ¦¬μ²λΌ λ³΄ν΅ μ¬λλ€μ κ·Έλ₯ μ μ νκ² μ¬μ©νλ κ²μ΄ μ’κ² μ£ !!Β
μμ κ³Ό μ°κ³μ λν μ’μ μλ‘...μμΈμ€λ‘ νμκ΄λ¦¬λ₯Ό νλλ° λ¬Έμλ₯Ό μ μ‘νκ³ μΆλ€...κ·Έλ°λ° μΉμμ λ¬Έμλ°μ‘μ ν΄μ£Όλ μλμ€λΌλ μΈμ΄νΈλ κΈ°ν μ¬λ¬ μΈμ΄νΈλ€μ λͺ¨λμ£Όμλ‘μ μμ νμΌ κ°μ Έμ€κΈ° λΉμ·ν λ©λ΄κ° μμ΅λλ€.Β
κ·Έλμ μ£Όμλ‘μ κ°μ Έμ€κ³ λ¬Έμλ₯Ό λ°μ‘νμ£ !! λ¬Όλ‘ μ 체λ³λ‘ λͺ¨λμ μ 곡νμ¬ μμΈμ€μμλ μ°λμ΄ κ°λ₯νκ²μΌλ‘ μκ³ μμ΅λλ€λ§...μ°λ¦¬λ κ·Έλ° μ λ¬Έκ°κ° μλλ κ·Έλ₯ κ°λ¨νκ² ν μ μλ λ°©λ²μμμΈμ€μμ λ¬Έμλ₯Ό λ³΄λΌ νμμ μ νν΄μ κ·Έ μ£Όμλ‘μ μμ λ‘ λ΄λ³΄λ΄κ³ μΉμμ λ¬Έμλ₯Ό μ©....!!
μ΄λμ μμΈμ€μμ μμ λ‘..... Β λμμΈμ€λ μΈλ‘λ°©ν₯ μ¦ κ°μ νλμ ν©μ κ°λ¨νκ² κ΅¬ν΄μ§λλ€.
νμ§λ§ κ°λ‘λ°©ν₯(λ μ½λ)μΌλ‘μ κ³μ°μ μλΉν 볡μ‘νμ£ !!
κ·Έλ μ§λ§ μμ
μ κ°λ‘λ°©ν₯λ μ°μ΅κ² κ³μ°ν΄ λΈλ€λ κ±°μ£ !! Β
Β <λ°μ΄ν μμ νκΈ° μμ€>Β
μμ
μμ MDB λ°μ΄ν°λ² μ΄μ€μ λ΄μ©μ λΆλ¬μ€λ κ²μ [λ°μ΄ν°]->[μΈλΆλ°μ΄ν° κ°μ Έμ€κΈ°]κΈ°λ₯μ μ΄μ©νλ©΄ λλ€. νμ§λ§, MDB λ°μ΄ν°λ² μ΄μ€ μμ μλ£λ₯Ό μμ νλ κ²μ Accessλ₯Ό μ΄μ©ν μ λ°μ μλ€.
μ¬κΈ°μλ, Accessλ₯Ό μ΄μ©νμ§ μκ³ .MDBμ μλ μλ£λ₯Ό μμ ν μ μλ VBA μ½λλ₯Ό μμ±νμ¬ Acceessκ° μ€μΉλμ§ μμ κ³³μμ μμ
λ‘ λ°μ΄ν°λ² μ΄μ€λ₯Ό μ κ·Όνλ λ°©λ²μ μ 곡νλ€.
1. μ ννκ²½
- MS-Office μ€μΉμ Microsoft Queryλ ν¨κ» μ€μΉλμ΄ μμΌλ©΄ μ’λ€.
- μμ
μΆκ°κΈ°λ₯μ€μμ 'Access μ°κ²°' κΈ°λ₯μ΄ μ€μΉλμ΄ μμΌλ©΄ μ’λ€.
2. VBA μ½λλ‘ .MDB λ°μ΄ν°λ₯Ό μνΈλ‘ λΆλ¬μ€λ 루ν΄
μ¬κΈ°μ μ¬μ©ν .MDBλ νμμ 보λ₯Ό μ μ₯ν 'νμDB.MDB'λ₯Ό μλ‘ λ€μλ€.
λ°μ΄ν°λ² μ΄μ€μ κ²½λ‘μ νμΌλͺ
μ μμλ‘ μμ ν΄μ μ¬μ©ν μ μλ€.
Sub GetData()
Dim szDBPath As String
Dim szConnString As String
Dim szQuery As String
szDBPath = "C:νμDB.mdb"
szConnString = "ODBC;DSN=MS Access Database;"
szConnString = szConnString & "DBQ=" & szDBPath
szConnString = szConnString & ";DefaultDir=C:"
szConnString = szConnString & ";DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
szQuery = "SELECT νμν
μ΄λΈ.νμID, νμν
μ΄λΈ.νμμ±λͺ
, νμν
μ΄λΈ.μ£Όλ―Όλ±λ‘λ²νΈ FROM νμν
μ΄λΈ ORDER BY νμν
μ΄λΈ.νμID"
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:=Array(szConnString), Destination:=Range("A1"))
.CommandText = Array(szQuery)
.Name = "MS Access Database_Query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
3. VBA μ½λλ‘ .MDB μμ νλ μλ£λ₯Ό μμ νλ 루ν΄
Sub UpdateData()
Dim szDBPath As String
Dim szConnString As String
Dim szQuery As String
szDBPath = "C:νμDB.mdb"
szConnString = "ODBC;DSN=MS Access Database;"
szConnString = szConnString & "DBQ=" & szDBPath
szConnString = szConnString & ";DefaultDir=C:"
szConnString = szConnString & ";DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
szQuery = "UPDATE νμν
μ΄λΈ SET νμν
μ΄λΈ.νμμ±λͺ
= 'μ΄κΈΈλ' WHERE νμν
μ΄λΈ.νμμ±λͺ
='νκΈΈλ'"
With ActiveSheet.QueryTables.Add(Connection:=Array(szConnString), Destination:=Range("A1"))
.CommandText = Array(szQuery)
.Name = "MS Access Database_Query"
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.RefreshPeriod = 0
.Refresh BackgroundQuery:=True
End With
End SubΒ