Dim dr As OleDbDataReader
Dim code As String = TextBox1.Text
Dim s As String = "select * from DB_Rent where m_id='" & code & "' "
Dim b As Integer
Dim btm() As Button = {Button1, Button2, Button3, Button4, Button5, Button6}
dr = Executereader(s)
dr.Read()
For a = 0 To 100
K(a, 1) = dr.Item("ID_book").ToString
Next
คือว่าผมติดตรงเวลาวนลูป for แล้วค่าที่ได้จากดาต้าเบสมาเก็บในอาเรย์ครับ แต่ว่าพอวนรอบที่2นั้นค่าที่เอามาจากดาต้าเบสก็ยังเป็นค่าตัวแรกที่มาเก็บในตอนแรกครับ
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim bstmp As New BindingSource
Dim code As String = Textbox1.Text
Dim s As String = "select * from DB_Rent where m_id='" & code & "' "
Dim b As Integer
Dim btm() As Button = {Button1, Button2, Button3, Button4, Button5, Button6}
da.SelectCommand = New OleDbCommand(s, Conn)
da.Fill(ds, "table")
bstmp.DataSource = ds.Tables("table")
Dim K(ds.Tables("table").Rows.Count - 1, 1)
For a = 0 To ds.Tables("table").Rows.Count - 1
ReDim Preserve K(a, 1)
K(a, 1) = bs(a)("ID_book").ToString
Next
ประวัติการแก้ไข 2014-12-09 01:39:32
Date :
2014-12-09 00:47:30
By :
zarooman
No. 3
Guest
ลองนำไปใช้แล้วเกิดเออเร่อครับ Code (VB.NET)
Dim (K(ds.Tables("table").Rows.Count - 1, 1))
อันนี้ขึ้นว่า Identifier expected.
Code (VB.NET)
K(a, 1) = bs(a)("ID_book").ToString
อันนี้ขึ้นนว่า 'bs' is not declared. It may be inaccessible due to its protection level.
ประกาศตัวแปล K อย่างงี้ครับ
Dim K(ds.Tables("table").Rows.Count - 1, 1)
ส่วน 'bs' is not declared. It may be inaccessible due to its protection level.
คุณประกาศตัวแปล bs as new bindingsorce ไว้ข้างบนรึยัง แล้วเอา bs.DataSource = ds.Table("table") หน่ะ
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim bstmp As New BindingSource
Dim code As String = Textbox1.Text
Dim s As String = "select * from DB_Rent where m_id='" & code & "' "
Dim b As Integer
Dim btm() As Button = {Button1, Button2, Button3, Button4, Button5, Button6}
da.SelectCommand = New OleDbCommand(s, Conn)
da.Fill(ds, "table")'นี่ก็ถือว่าสร้าง datatable มาแล้วครับ ชื่อ table
bstmp.DataSource = ds.Tables("table") '
Dim K(ds.Tables("table").Rows.Count - 1, 1)
For a = 0 To ds.Tables("table").Rows.Count - 1
ReDim Preserve K(a, 1)
K(a, 1) = bs(a)("ID_book").ToString
Next
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim s As String = "select * from DB_Rent where m_id='" & code & "' "
Dim btm() As Button = {Button1, Button2, Button3, Button4, Button5, Button6}
da.SelectCommand = New OleDbCommand(s, Textbox1.Text)
da.Fill(ds, "table")'นี่ก็ถือว่าสร้าง datatable มาแล้วครับ ชื่อ table
Dim arr As String() = (From myRow In ds.Tables(0).AsEnumerable
Select myRow.Field(Of String)("ID_book")).ToArray
เห็นว่ามันสั้นดี แต่ผมยังไม่เคยลอง
http://stackoverflow.com/questions/18766270/generate-an-array-from-dataset-vb-net
Load balance : Server 04
