Not getting the records from query

Question

1.00/5 (1 vote)

See more:

Dear all,

I am trying to export the date from datatable to excel. But i am not getting the records.

This is where i am passing the values:

VB

Dim cons As String = My.Settings.DBRestroConnectionString

Dim rdate As String = Format(DateTimePicker1.Value, &quot;dd-MM-yyyy&quot;)

st = &quot;SELECT BillMaster_1.Date, BillMaster_1.BillNo, BillMaster_1.TableNo, BillMaster_1.WaiterNo,  BillMaster_1.CoverNo, BillMaster_1.BillAmount, PayModeMaster.PayMode, (SELECT SUM(BillAmount) AS TotalAmount FROM BillMaster) AS &#39;Total&#39; FROM BillMaster AS BillMaster_1 LEFT OUTER JOIN PayModeMaster ON BillMaster_1.PaidMode = PayModeMaster.PayModeId&quot;

FN = &quot;BillSummary&quot;

moh = valq.excelexport(cons, st, FN, &quot;BillMaster_1.Date&quot;, rdate)

function:

VB

Dim Xlapp As New Microsoft.Office.Interop.Excel.Application
       Dim TOTALcount As Integer
       &#39; Dim DT As Date
       Dim sqlcon As New SqlConnection(constr)
       Dim sqlcommd As New SqlCommand
       sqlcommd.Connection = sqlcon
       sqlcommd.CommandText = sqlstr + &quot; where &quot; + filter &gt;= +&quot;@x&quot;
       sqlcommd.Parameters.AddWithValue(&quot;@x&quot;, para)
       &#39;sqlcommd.Parameters.AddWithValue(&quot;Date&quot;, DT)
       Dim sqlda As New SqlDataAdapter(sqlcommd)
       Dim sqldt As New DataTable
       sqlda.Fill(sqldt)
       TOTALcount = sqldt.Rows.Count
       If sqldt.Rows.Count &gt; 0 Then

I am getting zero records everytime.

Regards,
Mohinder Singh

Posted 5-Jul-12 18:42pm

mvengaqua

Updated 5-Jul-12 19:25pm

Sandeep Mewara

v3

Add a Solution

Comments

Sebastian T Xavier 6-Jul-12 2:52am

please review your query and use improve question to correct it

Sergey Alexandrovich Kryukov 6-Jul-12 3:07am

How do you know that this command should query some results? Maybe the number of matching records is really zero?
--SA

Simon_Whale 6-Jul-12 5:51am

have you run the query in the database? does it return values there?

mvengaqua 6-Jul-12 7:28am

Yes i have run the query in the database and it is showing records

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sebastian T Xavier · Accepted Answer · 2012-07-05T20:56:00

Solution 1

Remove the join and see what happens.

p.s. Your query has some unwanted characters. Use Preview button before hit Post.

Regards
Sebastian

Posted 5-Jul-12 20:56pm

Sebastian T Xavier

Comments

mvengaqua 6-Jul-12 3:19am

Dear Sebastian,

This is where i am passing the values:

Dim cons As String = My.Settings.DBRestroConnectionString

Dim rdate As String = Format(DateTimePicker1.Value, "dd-MM-yyyy")

st = "SELECT BillMaster_1.Date, BillMaster_1.BillNo, BillMaster_1.TableNo, BillMaster_1.WaiterNo, BillMaster_1.CoverNo, BillMaster_1.BillAmount, PayModeMaster.PayMode, (SELECT SUM(BillAmount) AS TotalAmount FROM BillMaster) AS Total FROM BillMaster AS BillMaster_1 LEFT OUTER JOIN PayModeMaster ON BillMaster_1.PaidMode = PayModeMaster.PayModeId

FN = "BillSummary"

moh = valq.excelexport(cons, st, FN, "BillMaster_1.Date", rdate)

Function:

Dim Xlapp As New Microsoft.Office.Interop.Excel.Application
Dim TOTALcount As Integer
Dim DT As Date
Dim sqlcon As New SqlConnection(constr)
Dim sqlcommd As New SqlCommand
sqlcommd.Connection = sqlcon
sqlcommd.CommandText = sqlstr + " where " + filter + ">= @x"
sqlcommd.Parameters.AddWithValue("@x", para)
Dim sqlda As New SqlDataAdapter(sqlcommd)
Dim sqldt As New DataTable
sqlda.Fill(sqldt)
TOTALcount = sqldt.Rows.Count
If sqldt.Rows.Count > 0 Then

It was nothing but the marks inserted my the window itself.
Now have a look. I run this query in sql it returns rows. But not here.

Regards,
MOhi