• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 336
  • Last Modified:

VB6 Data Report Designer

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
KDSayers
Asked:
KDSayers
1 Solution
 
Éric MoreauSenior .Net ConsultantCommented:
0
 
Sage020999Commented:
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
 
KDSayersAuthor Commented:
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
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

 
Billy06Commented:
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
 
rovermCommented:
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
 
garrenbCommented:
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
 
KDSayersAuthor Commented:
Comment accepted as answer
0
 
KDSayersAuthor Commented:
This was the detail needed to get the job done.  Thanks for your help.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now