Programalama > VISUAL BASIC

VISUAL BASIC / Excel De Visual Basic Kullanarak Oracle'dan Veri Alma

Excel,Vba,Oracle Sql 'In Birlikte Kullanimi

Etiketler: excel, visual, basic, kullanarak

Ort. 0

Puan ver:

hazirkod 04 June 19:34 0

0 kişiden 0 puan aldı

8941

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