Sub
verial(p_tarih
As
Date
)
'İll olarak VB editörden Tools/Preferences den ADO lib.leri
'bir kereye mahsus yükleyelim.
Dim
conn
New
Connection
rs
Recordset
kom
Command
'İlk olarak connection string i yazıyoruz.
With
.ConnectionString =
"Provider=MSDAORA.1;User ID=heb;password = heb;Data Source=beta;Persist Security Info=False"
.Open
End
'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"
Cells(excelsira, 3).
Select
ActiveCell.FormulaR1C1 = p_tutar
rs.MoveNext
Next
i