Skip to main content

AccessTr.neT


MSFlexGrid'deki alanlarda accessdeki verileri gösterme ?

MSFlexGrid'deki alanlarda accessdeki verileri gösterme ?

#3
Kod:
Private Sub firmalari_listele()

Dim listele As New ADODB.Recordset

listele.Open "select * from firma_kayit", "dsn=kendistp", adOpenStatic, adLockOptimistic

MSFlexGrid1.ScrollBars = (1)

MSFlexGrid1.Cols = 13

MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 5000
MSFlexGrid1.ColWidth(2) = 4000
MSFlexGrid1.ColWidth(3) = 3500
MSFlexGrid1.ColWidth(4) = 3000
MSFlexGrid1.ColWidth(5) = 3000
MSFlexGrid1.ColWidth(6) = 4000
MSFlexGrid1.ColWidth(7) = 4000
MSFlexGrid1.ColWidth(8) = 5000
MSFlexGrid1.ColWidth(9) = 3000
MSFlexGrid1.ColWidth(10) = 1000
MSFlexGrid1.ColWidth(11) = 5000
MSFlexGrid1.ColWidth(12) = 5000

MSFlexGrid1.Width = 18500


MSFlexGrid1.TextMatrix(0, 0) = "Firma No"
MSFlexGrid1.TextMatrix(0, 1) = "Firma Adı"
MSFlexGrid1.TextMatrix(0, 2) = "Firma Yetkilisi"
MSFlexGrid1.TextMatrix(0, 3) = "Firma Telefonu"
MSFlexGrid1.TextMatrix(0, 4) = "Fax"
MSFlexGrid1.TextMatrix(0, 5) = "GSM"
MSFlexGrid1.TextMatrix(0, 6) = "E-Mail"
MSFlexGrid1.TextMatrix(0, 7) = "İnternet Adresi"
MSFlexGrid1.TextMatrix(0, 8) = "Vergi Dairesi"
MSFlexGrid1.TextMatrix(0, 9) = "Vergi No"
MSFlexGrid1.TextMatrix(0, 10) = "Tarih"
MSFlexGrid1.TextMatrix(0, 11) = "Adres"
MSFlexGrid1.TextMatrix(0, 12) = "Not"

MSFlexGrid1.Rows = listele.RecordCount + 1


For r = 1 To listele.RecordCount


MSFlexGrid1.TextMatrix(r, 0) = listele("firma_no")
MSFlexGrid1.TextMatrix(r, 1) = listele("firma_adi")
MSFlexGrid1.TextMatrix(r, 2) = listele("firma_yetkilisi")
MSFlexGrid1.TextMatrix(r, 3) = listele("firma_telefonu")
MSFlexGrid1.TextMatrix(r, 4) = listele("fax")
MSFlexGrid1.TextMatrix(r, 5) = listele("gsm")
MSFlexGrid1.TextMatrix(r, 6) = listele("e_mail")
MSFlexGrid1.TextMatrix(r, 7) = listele("internet_adresi")
MSFlexGrid1.TextMatrix(r, 8) = listele("vergi_dairesi")
MSFlexGrid1.TextMatrix(r, 9) = listele("vergi_no")
MSFlexGrid1.TextMatrix(r, 10) = listele("tarih")
MSFlexGrid1.TextMatrix(r, 11) = listele("adres")
MSFlexGrid1.TextMatrix(r, 12) = listele("not")

listele.MoveNext

Next

End Sub


Buradaki veri tabanı adını msflexgrid satır ve sütün sayısını adlarını kendi programına göre ayarlarsın.
Son Düzenleme: 03/02/2015, 18:03, Düzenleyen: sherlockholmes.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: MSFlexGrid'deki alanlarda accessdeki verileri gösterme ? - Yazar: sherlockholmes - 03/02/2015, 01:09
Task