strSQL = Select * From tb_01
dtAdapter = New SqlDataAdapter(strSQL, objConn)
dtAdapter.Fill(ds)
Count = ds.Table(0).Rows.Count
Dim a(Count) As String
If ds.Table(0).Rows.Count > 0 Then
For i As Integer = 0 To Count - 1
a(i) = ds.Table(0).Rows(i)("TEST01")
Next
End If
ข้อมูลในตัวแปร a ก็จะมี 200 ตัวใช่ไหมครับ
ทีนี้เข้าสู้คำถาม
ถ้าผมสร้าง a(1000) คือผมจะเก็บข้อมูลในตัวแปร a 1000 ตัวครับ a(0) - a(999) โดยใช้ข้อมูลจากตารางข้างต้นใส่เข้าไป
Public Class Form1
Dim a(0) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Run(10000000)'เยอะไปน๊ 5555
End Sub
Sub Run(iMax As Integer)
ReDim a(0)
For i As Integer = 0 To iMax
a(i) = i Mod 200
TextBox1.Text = TextBox1.Text & vbCrLf & "อาเรย์ตัวที่ " & i & " = " & a(i)
ReDim a(i + 1)
Next
End Sub
End Class