Vb formdan rapor alma
Tarih
22/05/2009 09:07
Konu Sahibi
emin_111
Yorumlar
3
Okunma
2244
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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.412 12/03/2014, 11:05 ogulcan92
Çözüldü Visucal Basic Koşullu (Filtreleme) Rapor Alma |By|KiDnArUt| 2 2.635 17/12/2011, 01:02 mcmaho
Çözüldü Txt dosyasından accsess tablosuna veri alma vb kodu ucloy 3 2.150 18/08/2011, 21:08 DUAYEN
Çözüldü VB 6 Girilen Tarih İle Date Kontroluna Göre Rapor Alma |By|KiDnArUt| 6 3.490 24/05/2011, 18:06 |By|KiDnArUt|
Çözüldü Visula Basic ile Tarihler arası rapor alma kibrix 4 2.160 14/01/2010, 16:49 Seruz


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