Vb formdan rapor alma
Tarih
22/05/2009 09:07
Konu Sahibi
emin_111
Yorumlar
3
Okunma
2224
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



emin_111
Üye
Kullanici Avatari
Üye
10
8
09/04/2009
0
Denizli
Ofis 2003
20/06/2009,23:30
Çözüldü 
Vb formdan rapor nasıl alınır
emin_111, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


aliyem
Üye
Kullanici Avatari
Üye
1
0
21/05/2009
0
Adana
Ofis 2003
31/10/2009,18:16
Çözüldü 
[b]Bende nasıl yapacağımı öğrenmek istiyorum
aliyem, 21-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
Merhaba.
VB formları veri barındırmazlar, ancak veriyi kaynağından çağırıp raporlarlar, ki bu kaynak herhangi bir dosya ve ya veritabanı olabilir.
Sizin sorunuza gelince çok genel ve yeterince açık değil.
Tam olarak ne yapmak istoyrsunuz? Herhangi bir veritabanından veri çekip form üzerinde herhangi bir nesnede(örneğin ListBox) listelemek mi istiyorsunuz?
Soruyu net ve anlaşılır şekilde sorun ki doğru cevap alabilesiniz.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
resim
Cevapla


crykoray
Üye
Kullanici Avatari
Üye
1
0
08/01/2010
0
Adana
Ofis 2003
23/05/2010,18:04
Çözüldü 
Private Sub Command12_Click()
Dim I As Integer
If Adodc1.Recordset.Recor DCount = 0 Then
MsgBox "KAYIT YOK"
Exit Sub
End If
Dim ExcelNesne As Object
Set ExcelNesne = CreateObject("Excel.SHEET")
ExcelNesne.Application.Visible = True



ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(1, 1).Font.Color = vbBlue
ExcelNesne.Application.Cells(1, 1).ColumnWidth = 40
ExcelNesne.Application.Cells(1, 1).Value = "EXCEL DENEME PROGRAMI"

ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(2, 1).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 1).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 1).Value = "PLAKA"

ExcelNesne.Application.Cells(2, 2).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 2).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 2).Value = "MARKA"

ExcelNesne.Application.Cells(2, 3).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 3).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 3).Value = "RENK"

ExcelNesne.Application.Cells(2, 4).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 4).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 4).Value = "KimNo"
I = 2
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF = True
I = I + 1

ExcelNesne.Application.Cells(I, 1).Value = Adodc1.Recordset.Fields("PLAKA")


ExcelNesne.Application.Cells(I, 2).Value = Adodc1.Recordset.Fields("MARKA")

ExcelNesne.Application.Cells(I, 3).Value = Adodc1.Recordset.Fields("RENK")

ExcelNesne.Application.Cells(I, 4).Value = Adodc1.Recordset.Fields("KimNo")
Adodc1.Recordset.MoveNext
Loop
MsgBox "PROGRAMA DÖN"
End Sub
en mukemmel ornegı bunu sız kendınız gore duzenleyın not("alıntıdır")
crykoray, 08-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.357 12/03/2014, 11:05 ogulcan92
Çözüldü Visucal Basic Koşullu (Filtreleme) Rapor Alma |By|KiDnArUt| 2 2.605 17/12/2011, 01:02 mcmaho
Çözüldü Txt dosyasından accsess tablosuna veri alma vb kodu ucloy 3 2.122 18/08/2011, 21:08 DUAYEN
Çözüldü VB 6 Girilen Tarih İle Date Kontroluna Göre Rapor Alma |By|KiDnArUt| 6 3.422 24/05/2011, 18:06 |By|KiDnArUt|
Çözüldü Visula Basic ile Tarihler arası rapor alma kibrix 4 2.123 14/01/2010, 16:49 Seruz


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya