D
DaveF
How can I retrieve display_names
Dim custDS As DataSet = New DataSet
Dim mySQL, mySQL2, mySQL3 As String
mySQL = "SELECT id,GBL_NO,TCN,TRAC_NO,SHIP_NAME, CAT FROM(SELECT
id,GBL_NO,TCN,TRAC_NO,CAT,SHIP_NAME, ROW_NUMBER() OVER ( PARTITION BY TCN
ORDER BY TCN, TRAC_NO, CAT ) as row_num FROM TRACK.DTTS WHERE (CDATE BETWEEN
TO_DATE('7/18/2003','MM/DD/YYYY') AND TO_DATE('7/20/2004','MM/DD/YYYY')) AND
((gbl_no= qqqqqqqqqq)) ) WHERE row_num = 1 ORDER BY TCN"
' mySQL = "SELECT id,GBL_NO,TCN,TRAC_NO, CAT FROM(SELECT
id,GBL_NO,TCN,TRAC_NO,CAT, ROW_NUMBER() OVER ( PARTITION BY GBL_NO ORDER BY
GBL_NO, TCN, TRAC_NO, CAT ) as row_num FROM TRACK.V_LATESTPNTDTTS WHERE
(CDATE BETWEEN TO_DATE('7/18/2003','MM/DD/YYYY') AND
TO_DATE('7/20/2004','MM/DD/YYYY')) AND ((SCACNAME LIKE 'T%')) or ((SCACNAME
LIKE 'p%'))) WHERE row_num = 1 ORDER BY GBL_NO"
mySQL2 = "SELECT TCN,CDATE FROM TRACK.DTTS WHERE (CDATE BETWEEN
TO_DATE('7/18/2003','MM/DD/YYYY') AND TO_DATE('7/20/2004','MM/DD/YYYY')) AND
((gbl_no= 'A-1003601-01')) ORDER BY tcn,id"
mySQL3 = "SELECT display_names FROM TRACK.V_RPTTRACK WHERE ID = 6"
Dim myTable As DataTable
myTable = myData.GetTableData(mySQL)
custDS.Tables.Add(myTable)
custDS.Tables(0).TableName = "Table1"
myTable = myData.GetTableData(mySQL2)
custDS.Tables.Add(myTable)
custDS.Tables(1).TableName = "Table2"
myTable = myData.GetTableData(mySQL3)
custDS.Tables.Add(myTable)
custDS.Tables(2).TableName = "Table3"
***************************************************** How can I retrieve
display_names ******************************
'custDS = myData.GetData(mySQL)
'custDS1 = myData.GetData(mySQL2)
custDS.Relations.Add("table2", custDS.Tables("Table1").Columns("TCN"),
custDS.Tables("Table2").Columns("TCN"), False)
custDS.Relations("Table2").Nested = True
custDS.WriteXml(Server.MapPath("Relate.xml"), XmlWriteMode.WriteSchema)
If (custDS.Relations.Count < 1) Then
custDS.Relations.Add(custDS.Tables("Table1").Columns("TCN"),
custDS.Tables("Table2").Columns("TCN"))
Me.grdtest.DataSource = custDS ' = custDS.Tables("Table1").DefaultView
'grdtest.
grdtest.Visible = True
Me.DataBind()
--
David Fetrow
Helixpoint LLC.
http://www.helixpoint.com
(e-mail address removed)
Dim custDS As DataSet = New DataSet
Dim mySQL, mySQL2, mySQL3 As String
mySQL = "SELECT id,GBL_NO,TCN,TRAC_NO,SHIP_NAME, CAT FROM(SELECT
id,GBL_NO,TCN,TRAC_NO,CAT,SHIP_NAME, ROW_NUMBER() OVER ( PARTITION BY TCN
ORDER BY TCN, TRAC_NO, CAT ) as row_num FROM TRACK.DTTS WHERE (CDATE BETWEEN
TO_DATE('7/18/2003','MM/DD/YYYY') AND TO_DATE('7/20/2004','MM/DD/YYYY')) AND
((gbl_no= qqqqqqqqqq)) ) WHERE row_num = 1 ORDER BY TCN"
' mySQL = "SELECT id,GBL_NO,TCN,TRAC_NO, CAT FROM(SELECT
id,GBL_NO,TCN,TRAC_NO,CAT, ROW_NUMBER() OVER ( PARTITION BY GBL_NO ORDER BY
GBL_NO, TCN, TRAC_NO, CAT ) as row_num FROM TRACK.V_LATESTPNTDTTS WHERE
(CDATE BETWEEN TO_DATE('7/18/2003','MM/DD/YYYY') AND
TO_DATE('7/20/2004','MM/DD/YYYY')) AND ((SCACNAME LIKE 'T%')) or ((SCACNAME
LIKE 'p%'))) WHERE row_num = 1 ORDER BY GBL_NO"
mySQL2 = "SELECT TCN,CDATE FROM TRACK.DTTS WHERE (CDATE BETWEEN
TO_DATE('7/18/2003','MM/DD/YYYY') AND TO_DATE('7/20/2004','MM/DD/YYYY')) AND
((gbl_no= 'A-1003601-01')) ORDER BY tcn,id"
mySQL3 = "SELECT display_names FROM TRACK.V_RPTTRACK WHERE ID = 6"
Dim myTable As DataTable
myTable = myData.GetTableData(mySQL)
custDS.Tables.Add(myTable)
custDS.Tables(0).TableName = "Table1"
myTable = myData.GetTableData(mySQL2)
custDS.Tables.Add(myTable)
custDS.Tables(1).TableName = "Table2"
myTable = myData.GetTableData(mySQL3)
custDS.Tables.Add(myTable)
custDS.Tables(2).TableName = "Table3"
***************************************************** How can I retrieve
display_names ******************************
'custDS = myData.GetData(mySQL)
'custDS1 = myData.GetData(mySQL2)
custDS.Relations.Add("table2", custDS.Tables("Table1").Columns("TCN"),
custDS.Tables("Table2").Columns("TCN"), False)
custDS.Relations("Table2").Nested = True
custDS.WriteXml(Server.MapPath("Relate.xml"), XmlWriteMode.WriteSchema)
If (custDS.Relations.Count < 1) Then
custDS.Relations.Add(custDS.Tables("Table1").Columns("TCN"),
custDS.Tables("Table2").Columns("TCN"))
Me.grdtest.DataSource = custDS ' = custDS.Tables("Table1").DefaultView
'grdtest.
grdtest.Visible = True
Me.DataBind()
--
David Fetrow
Helixpoint LLC.
http://www.helixpoint.com
(e-mail address removed)