Vb formdan rapor alma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: Vb formdan rapor alma (/konu-vb-formdan-rapor-alma.html) |
Vb formdan rapor alma - emin_111 - 22/05/2009 Vb formdan rapor nasıl alınır Cvp: Vb formdan rapor alma - aliyem - 31/10/2009 Bende nasıl yapacağımı öğrenmek istiyorum Cvp: Vb formdan rapor alma - maytas - 31/10/2009 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. Cvp: Vb formdan rapor alma - crykoray - 19/01/2010 Private Sub Command12_Click() Dim I As Integer If Adodc1.Recordset.RecordCount = 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") |