Solved

VB6 Data Report Designer

Posted on 2000-04-17
8
327 Views
Last Modified: 2008-02-26
OK... the question that keeps coming up.  HOW do I get the Data Report Designer to work with SQL statements?

I've read it all... In the DataEnvironment:

In Dataenvironment write a command

1)this is in General tab of dataenvironment

SELECT * from customer where custcode = ?

2) In the Paramentrs tab write dataype of ur table field(here datatype of
Custcode) And Host Data Type.

Well, I get that far and I can't even ACCESS the Parameters section under the Parameters tab.

How about this:

No dataenviroment is needed.

....
Set DataReport.DataSource = rs
Datareport.show

Place Unbound TextBoxes on your Datareport and type in the name of the field in the DataField Property.  That is it.

That hasn't worked either.  I either get a "Invalid DataSource" or "Type Mismatch (13)" error.  

So what is it that REALLY needs to be done?  What I need is to do is an SQL statement, which means going to a RecordSet.  Then once I have my RecordSet, I want to be able to use this as the source for my report.  Please tell me how and please be detailed.

Thanks.

KDSayers
0
Comment
Question by:KDSayers
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 70

Expert Comment

by:Éric Moreau
ID: 2724247
0
 
LVL 2

Expert Comment

by:Sage020999
ID: 2724560
Instead of placing the *, specify the field names.  You can also you the data connection to drag the tables you need into the data enviroment.
0
 
LVL 1

Author Comment

by:KDSayers
ID: 2724571
This does not answer the specified question.  Particularly that I have paid some serious points out looking at previously asked questions related to this topic that the help did not work, and was also vague.  So I am looking for detail and the person with the best help will get the points.

Thanks.

KDS
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Expert Comment

by:Billy06
ID: 2724814
hi,
well, I did a VB project using Data Environment. It worked fine.

1. Give the command name
2. Connection name
3. SQL statement

Parameter:
name - give it a name
Direction -  input
Data_type   - adVarChar
size   -   xx
Host Data Type  -  String (VT_BSTR)
Required   - true

For Integer:
Data Type  - adInteger
no size, scale, precision  (all 0)
Host Data_Type - integer(VT_I2)
Required  - True

it should work.
Inside Advanced Tab,
Cursor location is 3.


Good Luck
Bill
0
 
LVL 12

Expert Comment

by:roverm
ID: 2726106
You can use the DataEnvironment (DE):

make a command using your sql-statement, or make a stored procedure in sql server and point to it.

Then set the DataSource property of the DataReport (DR) to the DE and the DataMember to the command (let's say cmdMine).

Before invoking the DR close the DE connection:

If DE.Connection1.State = adStateOpen Then DE.Connection1.Close

Then re-open it and invoke the command including the parameter (parm1)

DE.connection1.Open
DE.cmdMine parm1

Then invoke the report:

DE.Show vbModal
Unload DE 'don't forget to unload it else it will remain in memory!!

After this close you can close the connection again to prevent memory loss:

DE.Connection1.Close

Good luck!

D'Mzzl!
RoverM
0
 
LVL 1

Accepted Solution

by:
garrenb earned 100 total points
ID: 2818271
Hi,
I had the same frustration as you a while back.
This is a tried, tested and frequently used
piece of code I use to solve that very problem.

Basicially setup the report the way you would like
it to appear, showing all the records.


Initially put a break on the line after the 'DEBUG' line (F9)
When you run this piece of code your Debug Screen will
show you what your 'Select String' should look like e.g.  "SHAPE {select * from te....."
Copy the line in the Debug Screen into your own code, (see the STRSQL line)
extend it with your own search parameters and
code it in like mine in the 'STRSQL' line below.

Hey presto, you have your "Select String" just like the older Data Control

For Each myCmd In DataEnvironment1.Commands
   If myCmd.Name = "Testing" Then  ' Put your own Command Name here
     Debug.Print myCmd.CommandText
     strsql = "SHAPE {select * from testing WHERE (((Testing.REF)=" & theref.text & "));} AS Testing APPEND (( SHAPE {SELECT Testing_Fails.Ref, Testing_Fails.VT5_ItemNo, VT5_Items.Item, Testing_Fails.Fail_ItemNo, Fail_Items.Fail FROM (Testing_Fails INNER JOIN VT5_Items ON Testing_Fails.VT5_ItemNo = VT5_Items.ItemNo) INNER JOIN Fail_Items ON Testing_Fails.Fail_ItemNo = Fail_Items.FailNo GROUP BY Testing_Fails.Ref, Testing_Fails.VT5_ItemNo, VT5_Items.Item, Testing_Fails.Fail_ItemNo, Fail_Items.Fail;}  AS Testing_Fails COMPUTE Testing_Fails BY 'Ref','VT5_ItemNo','Item') AS Testing_Fails_Grouping RELATE 'ref' TO 'Ref') AS Testing_Fails_Grouping"

      myCmd.CommandText = strsql
      myCmd.Execute
     DataReport1.Refresh
            Exit For
   End If
Next myCmd

DataReport1.Show
0
 
LVL 1

Author Comment

by:KDSayers
ID: 2898344
Comment accepted as answer
0
 
LVL 1

Author Comment

by:KDSayers
ID: 2898345
This was the detail needed to get the job done.  Thanks for your help.
0

Featured Post

Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question