Sub verial(p_tarih As Date)
'İll olarak VB editörden Tools/Preferences den ADO lib.leri
'bir kereye mahsus yükleyelim.
Dim conn As New Connection
Dim rs As New Recordset
Dim kom As New Command
'İlk olarak connection string i yazıyoruz.
With conn
.ConnectionString = "Provider=MSDAORA.1;User ID=heb;password = heb;Data Source=beta;Persist Security Info=False"
.Open
End With
'Daha sonra ORACLE veritabanında heb/heb username/password için
'bir select statement yazıyoruz.
'heb_tablo tablosunda tarih = '31.03.2003' e ait kayıtları seçiyoruz.
'tablo; tarih,excel,tutar alanlarından oluşuyor.
sql1 = "select * from heb_tablo where tarih = '31.03.2003'"
rs.Open sql1, conn, adOpenDynamic
rs.MoveFirst
For i = 1 To 50
excelsira = rs.Fields("excel").Value
p_tutar = rs.Fields("tutar").Value
Cells(excelsira, 3).Select
ActiveCell.FormulaR1C1 = p_tutar
rs.MoveNext
Next i
End Sub