 |
|
รบกวนสอบถามเรื่อง.NET Smart Device เขียนโปรแกรมบน HandHeld |
|
 |
|
|
 |
 |
|
Dim ds As Data.DataSet
Dim da As System.Data.SqlClient.SqlDataAdapter
ให้คุณมองภาพว่า dataset เป็นที่เก็บของ datatable ได้หลายๆ ตัว
ใช้เหมือนกันครับ
da.Fill(ds) แบบนี้ ก็ Fill ลง dataset แบบไม่ระบุ datatable มันก็จะ add table ลงไปให้เลย
da.Fill(ds, "tableName") แบบนี้ ก็ Fill ลง dataset แล้วก็ระบุชื่อ table ด้วย ว่าจะให้ชื่อว่าอะไร
เวลาจะใช้ก็แบบนี้
tableStyle.MappingName = ds.Tables("tableName").TableName ว่าจะเอา table ไหน
|
 |
 |
 |
 |
Date :
2010-12-08 14:06:31 |
By :
numenoy |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
คือผมลองตามคำแนะนำแล้ว ข้อมูลไม่ออกอ่ะคับ ออกเฉพาะ header row ของ datagrid
ที่ผมทำ คือ มีสองส่วน
ส่วนแรกคือ ผมสร้างเป็น service ไว้บน server
Code (VB.NET)
<WebMethod()> _
Public Function GetLocation() As DataSet
SQLCmd = ""
SQLCmd = "select loc_id from dhlit.tbl_rtvloc where loc_status = 'ACTIVE' and loc_id not in (select loc_id from dhlit.tbl_rtvstock) order by loc_id"
CMD = New OracleCommand(SQLCmd, ConDB)
ADP = New OracleDataAdapter(CMD)
ConDB.Open()
ADP.Fill(DBSet, "Info")
ConDB.Close()
If CInt(DBSet.Tables(0).Rows.Count) > 0 Then
Return DBSet
Else
Return Nothing
End If
End Function
และส่วนที่อยู่บนหน้าจอ handheld ที่ผมดึงข้อมูลขึ้นมาตอน Load
Code (VB.NET)
Public RTVService As New RTVService.Service1
Private Sub RTVMovetoDockDoor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BindDataGrid()
End Sub
Private Sub BindDataGrid()
Dim datatest As New DataSet
datatest = RTVService.GetLocation()
Dim tableStyle As New DataGridTableStyle()
tableStyle.MappingName = datatest.Tables("Info").TableName
Dim column As New DataGridTextBoxColumn()
column.MappingName = "loc_id"
column.HeaderText = "Location"
column.Width = 100
tableStyle.GridColumnStyles.Add(column)
'column = New DataGridTextBoxColumn()
'column.MappingName = "name"
'column.HeaderText = "Name"
'column.Width = 40
'tableStyle.GridColumnStyles.Add(column)
'column = New DataGridTextBoxColumn()
'column.Width = 70
'column.MappingName = "email"
'column.HeaderText = "Email"
'tableStyle.GridColumnStyles.Add(column)
Me.DataGrid1.DataSource = datatest.Tables(0)
Me.DataGrid1.TableStyles.Clear()
Me.DataGrid1.TableStyles.Add(tableStyle)
datatest = Nothing
End Sub
รบกวนเทพๆทั้งหลายช่วยดูทีคับ
ขอบคุณครับ
|
 |
 |
 |
 |
Date :
2010-12-09 10:25:17 |
By :
xmen |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ลอง connect db ผ่าน mobile ดูก่อนครับ ว่าได้หรือป่าว
|
 |
 |
 |
 |
Date :
2010-12-09 10:58:16 |
By :
kanchen |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เหมือนเดิมอ่ะคับ ออกเฉพาะ header row แต่ไม่มีข้อมูลออกมา
|
 |
 |
 |
 |
Date :
2010-12-09 12:56:44 |
By :
xmen |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|