Excel İle Oracle Database Denetimi

' Her Hakkı Saklıdır. © webslave
' “Ne yanar kimse bana âteş-i dilden özge
' Ne açar kimse kapım bâd-ı sebâdan gayrı” (Fuzuli)

Const DBUSer As String = "DBKULLANICISI"

'Şifrenin sorgu esnasında sorulmasını istiyorsanız bu parametreyi boş bırakabilirsiniz.
'You can leave blank the password parameter to be prompted at run-time.
Const DBPassword As String = "ŞİFRE"

Const DBODBCDriver As String = "ODBC SÜRÜCÜSÜNÜN ADI"
Const DBServer As String = "SUNUCU"
Const DBDatabase As String = "VERİTABANI"

Public Function AddSheet(SheetName As String, _
                            PageTitle As String, _
                            Description As String, _
                            ColumnInfo As String, _
                            DataQuery As String, _
                            ExtendedQuery As String, _
                            Color As Long _
                            ) As Boolean

On Error GoTo Err

'Default
AddSheet = False

   
    'Add a page
   Sheets.Add
    'Sheets(1).Select
   ActiveSheet.Name = SheetName
   
    'Add the title
   Range("A1").Value = PageTitle
    Rows("1:1").Select
    Selection.Interior.ColorIndex = 9
    Selection.Font.ColorIndex = 2
    Selection.Font.Bold = True
   
    'Add the description
   Range("A2").Value = Description
    Rows("2:2").Select
    Selection.Font.Italic = True
   
    'Add column information
   Range("A3").Select
    Range("A3").Value = "Additional information about the output can be found at:"
    Selection.Font.Italic = True
    Range("a4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ColumnInfo, TextToDisplay:=ColumnInfo

   
    'Rows("3:3").Select
   'Selection.Font.Color = RGB(0, 100, 0)
   'Selection.Font.Italic = True
   
    'Show Query
   Rows("7:7").Select
    Selection.Font.Color = RGB(100, 0, 0)
    Range("A7").Value = "QUERY"
    Range("a7").Select
    Selection.Font.Bold = True
    Range("b7").Value = DataQuery
    Rows("8:8").Select
    Selection.Font.Color = RGB(100, 0, 0)
    Range("A8").Value = "EXTENDED"
    Range("a8").Select
    Selection.Font.Bold = True
    Range("b8").Value = UCase(ExtendedQuery)
 
     
    'Insert Query
 
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER=" + DBODBCDriver + ";SERVER=" + DBServer + ";UID=" + DBUSer + ";PWD=" + DBPassword + ";DBQ=" + DBDatabase + ";DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;" _
        ), Array( _
        "RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;" _
        )), Destination:=Range("A11"))
        .CommandText = Array(DataQuery)
        .Name = "Query from MyOraProd"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
   
   
    ActiveSheet.Move after:=Worksheets(Worksheets.Count)
    ActiveSheet.Tab.ColorIndex = Color
   
   
'Clean
AddSheet = True
Exit Function

Err:
AddSheet = False
MsgBox "An Error Occured: " + Err.Description

End Function

'Yama Yönetimini Test Etmek İçin
If AddSheet("Yama Yönetimi", "Yama Yönetimi", "Oracle Veritabanındaki ana kitaplıkların versiyonu hakkında bilgi verir. Her bileşen için ayrı bir satır vardır. Versiyonların güncel olduğunu ve yamaların uygulandığını kontrol edin.", "http://download.oracle.com/docs/cd/B12037_01/server.101/b10755/dynviews_2154.htm", "SELECT * FROM V$VERSION;", "select BANNER from v$version;", 1) Then cnt = cnt + 1