How create a Report in VB6.0.
pls send me detail as early as possible.
Swapnilkadam 0 Newbie Poster
Naveed_786 25 Posting Whiz in Training
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 526 Senior Poster
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 0 Newbie Poster
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
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.