comboya veri bağlama

[Fuat Şirin]

değerli hocalarım saygılar

konun yeri burası değil biliyorum bu konuda bilgisi olan hocalarımdan yardım bekliyorum

vb6 kullanıyorum

combo1 e adodc1 le bağlandığım access veri tabanından
5inci sütunu bağlamak istiorum


exceldeki

combobox1.rowsource = "veri"a1:a300"

gibi
şimdiden çok teşekkür

 

[modalı]

Sayın Fuat Şirin,

Fprmun en başına:

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Formun Load olayına:

cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dosyaadi.mdb"

[FONT=Verdana][SIZE=2][FONT=Verdana][SIZE=2]rst.Open " select distinct 5.alanadi from tabloadi", cnn, adOpenForwardOnly, adLockReadOnly
Do Until rst.EOF
Combo1.AddItem rst(0)
[/SIZE][/FONT][/SIZE][/FONT][FONT=Verdana][SIZE=2][FONT=Verdana][SIZE=2]


 rst.MoveNext
Loop
rst.Close

Formun unload olayına ise


[/SIZE][/FONT][/SIZE][/FONT]

Private Sub Form_Unload(Cancel As Integer)
cnn.Close
End Sub

İyi çalışmalar

 

[Fuat Şirin]

hocam kusura bakmayın
az önceki hatayı düzelttim

hocam yeni bir topik açmak istemedim
burda yanıtlarsanız çok makbule geçer

ekteki dosyamda
sorgu 1 de sırayı dikkate alarak
giriş çıkışları sorguda görüntülemek istiyorum
yardımcı olursanız sevinirim

"kilo" giriş çıkış kalan
"top" giriş çıkış kalan

olarak sorgularsa çok makbule geçer

 

[modalı]

rst(1) yazmışsınız da ondan. Siz sql cümlesinde tek alan çakmişsiniz o zaman rst(0) olarak kullanmanız gerekir. VB de indexleme 0 dan başlıyor.

 

[Fuat Şirin]

hocam az önceki konuyu düzelttim ama
geçti mi acaba siteye

 

[Fuat Şirin]

syn modalı birde konu ile alakalı
combo1
combo2 diye arttırmak istersek nasıl yapmamız lazım

 

[Fuat Şirin]

hocam yardımcı olnursa sevinirim

 

[Fuat Şirin]

3 numaralı sorumda yardımcı olnursa sevinirim