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 WithEnd Sub'Bağlantıyı kapatan subSub 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
loopcall closeDBConnection(Cn,CP)
'********************************************************
'********************************************************
Umarım faydalı olmuştur. Bir başka yazıda görüşmek üzere...