I want to print a reciept but i face a problem

Question

0.00/5 (No votes)

See more:

In this project I am using datareport and dataenvironment for printing the receipt.

Please check the below code

VB

Private Sub cmdprint_Click()
    'Set rpt = New ADODB.Recordset
    'rpt.Open "select * from reception_detail where ID=" & Val(txtid.Text), Con, adOpenStatic, adLockOptimistic, adCmdText

    DataEnvironment1.Commands(1).CommandText = "select ID,patient_name,patient_age,referedby,test,amount from reception_detail where ID=" & Val(txtid.Text)
    rptreciept.PrintReport
    rptreciept.Show
End Sub

When I click on the print command it shows the following the error given below

Run-time error '5':<br />
<br />
Invalid procedure call or argument

and it highlights the following line when I click on debug

DataEnvironment1.Commands(1).CommandText = "select ID,patient_name,patient_age,referedby,test,amount from reception_detail where ID=" & Val(txtid.Text)

Posted 8-Sep-11 20:28pm

Mudasar Ahmad

Updated 8-Sep-11 21:16pm

Dalek Dave

v2

Add a Solution

Comments

Dalek Dave 9-Sep-11 3:16am

Edited for Grammar and Syntax.

2 solutions

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)

**Dalek Dave** · Answer 1 · 2011-09-08T21:18:00

Solution 2

Your main problem is VB6.
Don't!

Get VB.Net, apart from it being supported, unlike VB6, there is a lot more functionality.

As for your code, have all the declarations been made prior to this section?
Is Commands an Array?

Posted 8-Sep-11 21:18pm

Dalek Dave

OriginalGriff · Answer 2 · 2011-09-08T21:14:00

Solution 1

Difficult to tell from that, but try checking it in stages. Put a breakpoint in, and look at

DataEnvironment1 - is it valid?
DataEnvironment1.Commands - ok?
DataEnvironment1.Commands(1) - This is probably the problem.
DataEnvironment1.Commands(1).CommandText - should be ok.

If all of that looks good, check the value in txtid and then txtid.Text.

Posted 8-Sep-11 21:14pm

OriginalGriff

Updated 8-Sep-11 21:16pm

v2

Comments

Mudasar Ahmad 9-Sep-11 6:44am

I solve the previous problem but a new error occurs which is:

Failed getting Rowset(s) from current data source

highlights the follwoing line;

rptreciept.PrintReport True

please solve them