AccessTr.neT

Vb formdan rapor nasıl alınır

Bende nasıl yapacağımı öğrenmek istiyorum

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.

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")