Board index Database Programming

ABOUT DEFINE DATA SHAPE PROBLEM

ABOUT DEFINE DATA SHAPE PROBLEM

Post by leo kwo » Tue, 16 Jul 2002 19:33:47



how to Define a Multi key Relation ??
..
Child2 RELATE VEHICLE_NO TO VEHICLE_NO , INVOICE_NO TO INVOICE_NO
POSSIBLE??

I WANT ADD ONE INVOICE_NO HAVE RELATE WITH CHILD2 AND CHILD1 HOW TO
DEFINE?

strShape = SHAPE APPEND
New adVarWChar(11) As INVOICE_NO,
New adDate As TRANS_DATE,
New adVarWChar(8) As MEMBER_CODE,
New adVarWChar(40) As MEMBER_NAME,
New adVarWChar(40) As MEMBER_ADDR1,
New adVarWChar(40) As MEMBER_ADDR2,
New adVarWChar(40) As MEMBER_ADDR3,
New adVarWChar(40) As MEMBER_ADDR4,
New adVarWChar(20) As MEMBER_CONTACT,
New adCurrency As INVOICE_AMOUNT,
     New adCurrency As DUE_DAYS,
     New adCurrency As OVERDUE_AMOUNT,
     New adCurrency As INVOICE_BALANCE,
     New adCurrency As CREDIT_TERM,
    ((SHAPE APPEND
             New adVarWChar(11) As INVOICE_NO,
             New adVarWChar(7) As VEHICLE_NO,
   ((SHAPE APPEND
             New adVarWChar(11) As INVOICE_NO,
New adVarWChar(8) As CARD_NO,
New adVarWChar(7) As VEHICLE_NO,
New adVarWChar(8) As STATION_SHORT_NAME,
New adDate As TRANS_DATE,
New adDate As TRANS_TIME,
New adCurrency As SALES_VOLUME,
New adCurrency As SALE_RATE,
New adCurrency As SALES_AMOUNT)
AS Child2 RELATE VEHICLE_NO TO VEHICLE_NO))
AS Child1 RELATE INVOICE_NO To INVOICE_NO)

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 
 
 
Top

ABOUT DEFINE DATA SHAPE PROBLEM

Post by Val Mazu » Tue, 16 Jul 2002 20:28:50


Hi,

See my reply on your original posting.
Also check next KBs about shaped recordsets

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q189657

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q191744

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q194516

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q213856

--
Val Mazur
Microsoft MVP


Quote:> how to Define a Multi key Relation ??
> ..
> Child2 RELATE VEHICLE_NO TO VEHICLE_NO , INVOICE_NO TO INVOICE_NO
> POSSIBLE??

> I WANT ADD ONE INVOICE_NO HAVE RELATE WITH CHILD2 AND CHILD1 HOW TO
> DEFINE?

> strShape = SHAPE APPEND
> New adVarWChar(11) As INVOICE_NO,
> New adDate As TRANS_DATE,
> New adVarWChar(8) As MEMBER_CODE,
> New adVarWChar(40) As MEMBER_NAME,
> New adVarWChar(40) As MEMBER_ADDR1,
> New adVarWChar(40) As MEMBER_ADDR2,
> New adVarWChar(40) As MEMBER_ADDR3,
> New adVarWChar(40) As MEMBER_ADDR4,
> New adVarWChar(20) As MEMBER_CONTACT,
> New adCurrency As INVOICE_AMOUNT,
>      New adCurrency As DUE_DAYS,
>      New adCurrency As OVERDUE_AMOUNT,
>      New adCurrency As INVOICE_BALANCE,
>      New adCurrency As CREDIT_TERM,
>     ((SHAPE APPEND
>              New adVarWChar(11) As INVOICE_NO,
>              New adVarWChar(7) As VEHICLE_NO,
>    ((SHAPE APPEND
>              New adVarWChar(11) As INVOICE_NO,
> New adVarWChar(8) As CARD_NO,
> New adVarWChar(7) As VEHICLE_NO,
> New adVarWChar(8) As STATION_SHORT_NAME,
> New adDate As TRANS_DATE,
> New adDate As TRANS_TIME,
> New adCurrency As SALES_VOLUME,
> New adCurrency As SALE_RATE,
> New adCurrency As SALES_AMOUNT)
> AS Child2 RELATE VEHICLE_NO TO VEHICLE_NO))
> AS Child1 RELATE INVOICE_NO To INVOICE_NO)

> *** Sent via Developersdex http://www.developersdex.com ***
> Don't just participate in USENET...get rewarded for it!


 
 
 
Top

1. VB6 Question re: Data Shaping relations and Shape query

Hi, all.

I'm reading through the MSDN library teaching myself ADO and VB 6.0 new
features.  I am trying to build a hierarchical recordset using the example
on the "Accessing Rows in a Hierarchical Recordset" page.  I am able to
establish a connection to the biblio.mdb, but am getting an error on my
first rst.open statement.

Here is the code . . .

Sub datashape()

   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim rsChapter As Variant

   cnn.Provider = "MSDataShape"
   cnn.Open DataEnvironment1.Biblio

   ' Step 1
   rst.StayInSync = False
   rst.Open "SHAPE {SELECT * FROM Authors} APPEND ({SELECT * FROM 'Title
Author'} AS Chapter RELATE au_id TO au_id)", cnn

!!!!!!!!!!
The above line produces the following error:  "Run-time error '-2147217900
(80040e14)': {yeah, whatever}  Invalid SQL statement; expected 'DELETE',
'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'."

It obviously is not accepting a "Shape" query.  I am running Pro edition,
but I don't think that's an issue.  I have ADO2.0 added to my references, so
I don't think that's an issue.  I've triple-checked my syntax.  Can someone
please help me.  I think this is a great new feature and I know it will be
well used in our existing apps.  Thank you ahead of time.
!!!!!!!!!!!!

   ' Step 2
   While Not rst.EOF
      Debug.Print rst("au_fname"), rst("au_lname"), rst("state"),
rst("au_id")

   ' Step 3
      Set rsChapter = rst("chapter")

   ' Step 4
      While Not rsChapter.EOF
         Debug.Print rsChapter(0), rsChapter(1), rsChapter(2), rsChapter(3)
         rsChapter.MoveNext
      Wend
      rst.MoveNext
   Wend
End Sub

2. Velocis Performance Question

3. Shapes shapes shapes

4. fill and retrieve data from an optionfield tablefield-column

5. SHAPE in SHAPE problem........

6. Oracle, Citrix contract opportunity

7. SHAPE in SHAPE problem...

8. Locate or Create System DSN for SQL 2000

9. Data Shaping Problem

10. Problem with data shaping APPEND command against SQL Server 2000

11. Data shaping problem using stored procedures!

12. ADO Data Shaping Problem...

13. Problem with data shaping APPEND command against SQL Server 2000


All times are UTC
Board index