adodb sorgusundan gelen comboda ilk değeri seçme hk.

[hsayar]

aşağıdaki kodlar ile adob sorgusunu comboya alıyorum.
yalnız 3 sütun gedliği için direkt value deyince hata veriyor ne önerebilirsiniz.

Private Sub adbKset_İsimler_Aç()
  Set CSfData = CKtp_Bu.Sheets("DATA")     'Verilerin alınacağı sayfa.
  Dim sqlFrom$, sqlSorg$, sqlSatr$

  'Adob RecordSet Değişkenleri
  sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
  sqlSorg = "Sayac_No IS NOT NULL"
  sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg

  'Adob RecordSet Sorgulaması
  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      ComboBox1.Clear
      If .RecordCount > 0 Then
[B][COLOR=Red]        ComboBox1.ColumnCount = .Fields.Count
        ComboBox1.Column = .GetRows
'        ComboBox1.Value = ComboBox1.List(0, 0)[/COLOR][/B]
      Else
        MsgBox "İsme ait Kayıt Bulunamadı.", 16, "Bilgi"
      End If
    If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If
End Sub

 

[Ferhat Pazarçevirdi]

İlk elemanı seçmek için ...

If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

kodunu kullanın ...

 

[hsayar]

teşekkür ederim hocam.