VB6 Atraksiyonu

Ne zamandan beri Visual Basic yazmıyodum kardeşin dönem ödevi üzerinde elim bulaştı. Bi çok şeyi unutmuşum tabi şu ComboBox’a tabloyu Fill edip id’sini çekemedim bi türlü :) kastım biraz oldu fonksiyonu yazayımda lazım olursa alırım burdan :)

Public Sub ComboLab(ByRef Comboadi)
        Dim DataSay As Integer
        DataSay = 0
        Set Bag = CreateObject("adodb.connection")
        Bag.Open BaglantiSozu()
        
        Set List = Bag.Execute("SELECT lab_ismi,id FROM LABRATUVARLAR")
            Do While Not List.EOF
                Comboadi.AddItem List("lab_ismi")
                Comboadi.ItemData(DataSay) = List("id")
                DataSay = DataSay + 1
            List.MoveNext
            Loop
        Set List = Nothing
        
        Bag.Close
        Set Bag = Nothing
End Sub

Kullanımıda şöyle :

Form1.ComboLab Combo1

Seçilen Item’ın id değerini almak içinse şunu deneyin:

Combo1.ItemData(Combo1.ListIndex)

Bu arada çok güzel bir Whois sitesi buldum. Çok güzel hareketler yapılabiliyor. Alan adınızın hangi root dns serverlarda hangi name server göründüğünü bile veriyor. Örneğin name server değiştirdiniz hemen hangi dns serverlarında yeni name serverlar görünüyor veriyor güzel bi dns server database’i lazım :)

• İlgili site http://www.whoisd.com/