oracle veritabanı bağlantı

[merakli_72]

Selam
Arkadaşlar Connenct satırı dahil(önemli)
oracle veritabanına bağlanıp bir tablodan veri süzecek bir örneğe ihtiyacım var,
yardımcı olacaklara teşekkür ederim

NOT:Excel/Access olabilir

 

[Necdet]

Merhaba,

PERSONEL diye bir table olduğunu varsayarak basit bir sql oluşturmaya çalıştım. Koddaki koyu kırmızı renkli sözcükleri kendinize göre ayarlayınız.

Ayrıca Referanslardan Microsoft Activex Data Object 2.X Library seçili olmalı.

'Ref : Microsoft Activex Data Object 2.X Library
Sub Oracle_Bilgi_Getir()
    Set s1 = Sheets("Sayfa1")
    s1.Select
 
    Application.ScreenUpdating = False
 
    Cells.ClearContents
 
    [A1] = "Sicil No"
    [B1] = "Adı"
    [C1] = "Soyadı"
    [D1] = "Bölümü"
    [E1] = "Ücreti"
 
    Dim i As Long
 
    Dim CN
    Dim RS
 
    Dim sql As String
    Set CN = New ADODB.Connection
    Set RS = New ADODB.Recordset
    CN.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};UID=[B][COLOR=red]necdet[/COLOR][/B];PWD=[COLOR=red][B]necdetsifrem[/B][/COLOR];SERVER=[B][COLOR=red]oracle8[/COLOR][/B]"
    CN.Open
     sql = " SELECT PER_SICIL, PER_ADI, PER_SOYADI, PER_BOLUM, PER_UCRET " & _
            "FROM PERSONEL " & _
            "WHERE PER_BOLUM = 'MUHASEBE' " & _
            "ORDER BY PER_ADI, PER_SOYADI"
 
        Set RS = CN.Execute(sql)
 
        Range("A2").CopyFromRecordset RS
    RS.Close
    Set RS = Nothing
    CN.Close
    Set CN = Nothing
 
End Sub