	AllExperts > Visual Basic
	Search

About S.Aziz
Expertise
All questions related to vb6 only. Excuse me for vb.net.

Experience
12 years as a programmer.

Organizations
Print Media

Publications
Math Skill Test VB6 Game Source Code published at Planet-Source --------------------------------------------------------------- http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72322&lngWId=1 Holy Quran Source Code published at Planet-Source ------------------------------------------------- http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=72343&txtForceRefresh=82020091635140766 Right to Left Treeview & Listview Source Code published at Planet-Source ------------------------------------------------------------------------ http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72376&lngWId=1

Education/Credentials
Commerce Graduate ICWAI

Awards and Honors
Wizard certificate from experts-exchange.com ============================================= http://www.experts-exchange.com/M_1214708.html Level 4 certificate from Yahoo!Answers ======================================= http://answers.yahoo.com/my/my;_ylt=AkjObjoI7Cr1x01J9syQ5RZ17hR.;_ylv=3

You are here: Experts > Computing/Technology > Basic > Visual Basic > Crystal report printing Problem

Visual Basic - Crystal report printing Problem

Expert: S.Aziz - 11/2/2009

Question
I M using this code for Printing all datagrid colomn in my desiging crystal report bt when i run this project and click Print Command button Crystal report is blank appear

crys.DiscardSavedData = True
   crys.ReportFileName = App.Path + "\Report\" + "HeightReport" + ".rpt"
   crys.SQLQuery = ""
   crys.SQLQuery = "SELECT NOC_Master.`NOCId`, NOC_Master.`NocLNo`," & _
                   "NOC_Master.`TypeOfNOC`,NOC_Master.`TotalNoofFloors`," & _
                   " NOC_Master.`AppName`,NOC_Master.`PlotNo`,NOC_Master.`NOCDate`," & _
                   "NOC_Master.`RenewalDate`,NOC_Master.`HeightofBuilding`," & _
                   " From `NOC_Master` NOC_Master" & _
                   " where NOC_Master.`HeightofBuilding`='" & Val(txtSearch) & "'or NOC_Master.`TypeOfNOC`='" & Val(cmbTypeOfSearch) & "'"
   crys.Action = 1

Answer
if you are using Val function then no need to add ' Try to change the sql part from

" where NOC_Master.`HeightofBuilding`='" & Val(txtSearch) & "'or NOC_Master.`TypeOfNOC`='" & Val(cmbTypeOfSearch) & "'"
  crys.Action = 1

TO

" where NOC_Master.`HeightofBuilding` =" & Val(txtSearch) & " or NOC_Master.`TypeOfNOC`=" & Val(cmbTypeOfSearch)

Add to this Answer Ask a Question