[Microsoft][ODBC SQL Server Driver]Error de sintaxis o infracción de acceso

[Luis Gutierrez]

realizo este query en el query analizer(sql 2000)

SHAPE{SELECT A.cus_no, B.cus_name, B.user_def_fld_1, A.doc_no, A.doc_type,
A.doc_dt, A.amt_1, A.amt_2, A.orig_trx_rt
FROM AROPNFIL_SQL AS A
INNER JOIN ARCUSFIL_SQL AS B ON A.cus_no = B.cus_no
INNER JOIN AROPNHST_SQL AS C ON A.cus_no = C.cus_no
AND A.doc_dt = C.doc_dt
AND A.doc_no = C.doc_no
AND A.doc_type = C.doc_type
AND A.apply_to_no = A.apply_to_no
WHERE A.doc_dt BETWEEN 20020901 AND 20020931
AND A.doc_type IN ('C','D','I','F')
AND C.jnl_cd <> 'ARLOAD'
AND A.cr_ar_fg = 'Y'
ORDER BY A.doc_dt, A.doc_no} AS RsInvFather
APPEND ({SELECT C.ord_no, C.line_seq_no, C.item_desc_1, C.qty_to_ship,
C.qty_return_to_stk, C.unit_price, C.tax_amt
FROM oelinhst_sql AS C
WHERE C.inv_no = A.doc_no
AND C.cus_no = A.cus_no
ORDER BY C.ord_no, C.line_seq_no}) AS RsInvNo
RELATE A.DOC_NO TO C.INV_NO

que me provoca este error:

[Microsoft][ODBC SQL Server Driver]Error de sintaxis o infracción de acceso

Que podra ser?

he buscado por toda la web y no he encontrado nada

quien por favor me daria una pista
se los agradeceria bastante!

Saludos!

Luis Mizraim Gutierrez Pedroza
Analista de Sistemas
INFRA S.A
+582122579910
lguti...@infrarad.com
Caracas/Venezuela
www.infrarad.com

[Miguel Egea]

Shape no es una instrucción T-Sql válida
Por eso te arroja ese error. Eso puedes usarlo desde un cliente, por ejemplo
para rellenar un mshflexgrid (Hierarchical flex), este es el código , he
usado controles enlazados a datos, que no me gustan, pero para el ejemplo es
lo más claro, el código que viene en la ayuda está comentado debajo.

Private Function sGetTitleAuthors() As String
Dim rstParent As ADODB.Recordset
Dim rstChild As ADODB.Recordset
Dim sBuf As String

Const CONNECT_PUBS = "PROVIDER=MSDataShape;DATA PROVIDER=SQLOLEDB;" & _
"SERVER=;DATABASE=pubs;Integrated security=SSPI"
Const SHAPE_TITLEAUTHORS = _
"SHAPE {SELECT au_id, au_lname, au_fname FROM authors} " & _
"APPEND ({SELECT au_id, title FROM titleauthor TA, titles TS " & _
"WHERE TA.title_id = TS.title_id} " & _
"AS title_chap RELATE au_id TO au_id)"

Set rstParent = New ADODB.Recordset
rstParent.Open SHAPE_TITLEAUTHORS, CONNECT_PUBS

Set msfh.DataSource = rstParent

'----- process parent rowset
' Do While Not rstParent.EOF
' sBuf = sBuf & rstParent("au_id") & vbTab & _
' rstParent("au_lname") & ", " & rstParent("au_fname") & vbCrLf
'
' '----- process chapter of child rowset
' Set rstChild = rstParent("title_chap").Value
' Do While Not rstChild.EOF
' sBuf = sBuf & vbTab & vbTab & rstChild("title") & vbCrLf
' rstChild.MoveNext
' Loop
' rstParent.MoveNext
' Loop
' sGetTitleAuthors = sBuf
End Function

--
Un saludo
Miguel Egea
http://www.portalsql.com
Microsoft SQL-SERVER MVP

"Luis Gutierrez" <lguti...@infrarad.com> escribió en el mensaje
news:O#Uo$MKYCHA.1432@tkmsftngp10...