 |
| |
สอบถามเรื่องการคิวรีข้อมูลค่ะ.... คือต้องการคิวรีข้อมูลอกมาจากตาราง ปกติคิวรีข้อมูลออกมา ก็จะนำมา binding กับ textbox หรือ label.. |
| |
 |
|
|
 |
 |
|
สอบถามเรื่องการคิวรีข้อมูล คือต้องการคิวรีข้อมูลอกมาจากตาราง ปกติคิวรีข้อมูลออกมา ก็จะนำมา binding กับ textbox หรือ label แต่ว่าต้องการคิวรีออกมาเก็บไว้ที่ตัวแปร แล้วนำมาใช้งานอย่างอื่นได้อีก ต้องเขียนโค๊ดยังไงคะ เช่น
sqlCustomers = "SELECT * FROM Customers"
da = New OleDbDataAdapter(sqlCustomers, Conn)
da.Fill(ds, "Customers")
dvm = ds.DefaultViewManager
cboCustomerID.DataSource = dvm
cboCustomerID.DisplayMember = "Customers.CustomerID"
lblCustomerID.DataBindings.Add("Text", dvm, "Customers.CustomerID")//
lblCompanyName.DataBindings.Add("Text", dvm, "Customers.CompanyName")
lblAddress.DataBindings.Add("Text", dvm, "Customers.Address")
// ค่าที่เป็นตัวหนาต้องการนำมาเก็บไว้ตัวแปรที่เราประกาศมาต้องทำไงคะ
Tag : .NET, Ms SQL Server 2005, Crystal Report, Win (Windows App), VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2010-09-19 03:40:16 |
By :
jdai |
View :
1375 |
Reply :
5 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Code (VB.NET)
Dim strCustomerID As String = ds.Table(0).Rows(0)("CustomerID")
|
| |
|
|
| |
| Date :
2010-09-19 06:46:27 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากค่ะ เด๋วลองไปทำดูนะคะ
|
| |
|
|
| |
| Date :
2010-09-19 14:55:34 |
By :
jdai |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แล้วถ้าเป็นโค๊ดแบบนี้เขียนไงคะ
sb.Remove(0, sb.Length())
sb.Append(" SELECT PID,DateMove,TimeMove,KeepID,His_status,Move_Name ")
sb.Append(" FROM DisMove,TRANSFERMOVE")
sb.Append(" WHERE (DisMove.MoveID=TRANSFERMOVE.MoveID)")
sb.Append(" AND (DisMove.PID=@PID)")
sb.Append(" ORDER BY PID")
Dim sqlSearchNk As String
sqlSearchNk = sb.ToString()
dt = New DataTable()
Com = New SqlCommand()
With Com
.Parameters.Clear()
.Parameters.Add("@PID", SqlDbType.NVarChar).Value = lblID.Text.Trim()
.CommandText = sqlSearchNk
.CommandType = CommandType.Text
.Connection = Conn
dr = .ExecuteReader
If dr.HasRows Then
dt.Load(dr)
Dim bs As BindingSource = New BindingSource()
bs.DataSource = dt
Dim bn As New BindingNavigator
bn.BindingSource = bs
dtmDateMove.DataBindings.Add("value", bs, "DateMove")
txtTime2.DataBindings.Add("Text", bs, "TimeMove")
End With
dr.Close()
ลองเขียนแบบนี้แล้วมัน error ค่ะ Dim strCustomerID As String = ds("CustomerID").tostring มันฟ้องประมานว่าเรีกใช้ metadata หลังจาก dr.close
|
| |
|
|
| |
| Date :
2010-09-22 01:48:27 |
By :
jdai |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Dim strCustomerID As String = ds("CustomerID").tostring ds มันคือ object ไม่ใช่ตัวแปร เอามา .tostring ไม่ได้
แบบที่พี่win บอกดูไม่รู้เรื่องหรอ
Dim strCustomerID As String = ds.Table(0).Rows(0)("CustomerID")
.Rows(0)("CustomerID") แถวที่ 0 ชื่อคอลัม CustomerID
|
| |
|
|
| |
| Date :
2010-09-22 11:15:32 |
By :
nooknoname |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อ๋อ ๆๆ รู้เรื่องค่ะ ไอ้ที่บอกว่า Dim strCustomerID As String = ds("CustomerID").tostring พิมผิดค่ะ ที่ลองเขียนเป็นแบบนี้ Dim strCustomerID As String = dr("CustomerID").tostring เพราะโค๊ดที่ select มาเป็นแบบ พารามิเตอ เลยไม่รู้ว่าต้องเขียนยังไง โทดทีค่ะ เพราะว่าจะเขียนแบบ Dim strCustomerID As String = dr.Table(0).Rows(0)("CustomerID") เปลี่ยนจาก ds เป็น dr ไม่ได้ค่ะ
|
| |
|
|
| |
| Date :
2010-09-22 12:17:16 |
By :
jdai |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
