retrieve a record from a dataset?????

[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").Colum ns("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
da***@helixpoint.com

[Alvin Bruney [MVP]]

the dataset can be addressed like a matrix
ds.tables[0].rows[row][col].tostring() so you can use row,col co-ordinates
to find your item

--
Regards,
Alvin Bruney
[ASP.NET MVP http://mvp.support.microsoft.com/default.aspx]
Got tidbits? Get it here... http://tinyurl.com/27cok
"DaveF" <df*****@geodecisions.com> wrote in message
news:O5**************@tk2msftngp13.phx.gbl...

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").Colum ns("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
da***@helixpoint.com