Reports Generation

[Swapnilkadam]

How create a Report in VB6.0.
pls send me detail as early as possible.

[Naveed_786]

If you want to create data report in vb then please click on this link to view a complete tutorial on data reports in vb

http://visualbasic.freetutes.com/learn-vb6/lesson22.15.html

Please mark the thread as solved if it helps you.

[AndreRet]

What kind of report?
What database, access, sql, Mysql?
What code and what data?

You need to give us more information if you want a solution.:)

[romel.bunag]

How create a Report in VB6.0.
pls send me detail as early as possible.

Private Sub PrintPreviewMainWarehouse()
Dim RS As New Recordset
Dim strPass As String

If cmbCategory.Text = "Select All..." Then
strPass = "SELECT tbl_products.product_code, tbl_products.description, tbl_products.pieces_qty, tbl_products.net_amount, tbl_products.vat_amount, tbl_products.gross_amount" & _
" From tbl_products" & _
" GROUP BY tbl_products.product_code, tbl_products.description, tbl_products.pieces_qty, tbl_products.net_amount, tbl_products.vat_amount, tbl_products.gross_amount;"
RS.Open strPass, CN, adOpenStatic, adLockOptimistic
Set MainWarehouse.DataSource = RS
MainWarehouse.Show vbModal
Set RS = Nothing
Else
strPass = "SELECT tbl_products.product_code, tbl_products.description, tbl_products.pieces_qty, tbl_products.net_amount, tbl_products.vat_amount, tbl_products.gross_amount" & _
" From tbl_products" & _
" Where (((tbl_products.category_id) = '" & cmbCategory.Text & "'))" & _
" GROUP BY tbl_products.product_code, tbl_products.description, tbl_products.pieces_qty, tbl_products.net_amount, tbl_products.vat_amount, tbl_products.gross_amount;"
RS.Open strPass, CN, adOpenStatic, adLockOptimistic
Set MainWarehouse.DataSource = RS
MainWarehouse.Show vbModal
Set RS = Nothing
End If
End Sub