VB Script ile Oracle Veri tabanından Kayıt çekme

Merhaba arkadaslar

VB Script ile veri tabanında var olan bir kayıdı nasıl çakabileceğimiz konusunda bir soru ile karşılaştım yakın zamanlarda. Ben de bir başkasının daha işine yarayabiir düşüncesi ile Kodu burada paylaşmak istedim.

'********************************************************
'********************************************************
'Bağlantıyı sağlamamıza yarayan Sub
Sub getDBConnection(databaseName,user,pswrd)

'Şimdi Conn diyerek Connection String imizi tanımlayalım. Conn da User ID ve Password u parametre olarak dışardan yollayalım
Conn = "Provider=MSDAORA.1; " & _
"Data Source="&databaseName&"; " & _
"User ID="&user&"; Password="&pswrd&";"

Set Cn = CreateObject("ADODB.Connection") 'Cn diyerek Connection u set edelim

With Cn
.ConnectionString = Conn
.Open
End With

End Sub

'Bağlantıyı kapatan sub
Sub closeDBConnection(Cn,CP)

Cn.Close
Set Cn = Nothing
Set CP = Nothing

End Sub

'********************************************************
'********************************************************

Şimdi fonksiyonlarımızı yazdıktan sonra kod kısmına geri dönelim :)

'********************************************************
'********************************************************
Dim Conn, Rs, CP,v_sql, Cn,number1,number2,number3

call getDBConnection("dbl_deneme","deneme","deneme") 'Bağlantı aç

v_Sql =("select BG_STATUS from spd_db.bug where bg_bug_id='24156' ")
Set Rs = Cn.Execute(v_Sql)

Do until Rs.EOF=True
number1 = Rs.Fields("BG_STATUS").Value
Rs.Movenext
loop

call closeDBConnection(Cn,CP)
'********************************************************
'********************************************************


Umarım faydalı olmuştur. Bir başka yazıda görüşmek üzere...