ComboList Doldurma

"ComboDoldur" isimli bir fonksiyon oluşturuldu. Bu fonksiyon, RS32 kütüphanesindeki özellikleri kullanarak bir SELECT sorgusu yapmaktadır. Elde edilen veriler "f.combo_sehir.AddToList()" komutu ile "combo list" alanına eklenmektedir.

Function ComboDoldur(f As Object)
Dim Rs As RecordSet
  
  Rs:=PrepareStmDirect("SELECT id,sehir_adi FROM default_servis_sehir")
  If Not Rs.ExecuteStm() Then
    OutM("<<< HATA OLUŞTU >>> Sorgulama Çalıştırılamadı.")
    Return
  EndIf
  f.combo_sehir.SelectTextInList("Seçim Yapın") 
  While Rs.MoveNext()
    f.combo_sehir.AddToList(Rs.sehir_adi)
  Wend
  Rs.Close()
EndFunction

AddToListSelectTextInListPrepareStmDirect