怎么把每次循环的结果都现在datagridview上?
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(ComboBox1.Text)
b = Val(ComboBox2.Text)
c = Val(ComboBox3.Text)
Conn = New OleDbConnection()
Conn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;" & _
"Data Source=f:\Database1.accdb"
For i = a To b Step c
'执行select语句查询数据库
da = New OleDbDataAdapter("SELECT * FROM test1 WHERE id=" & i & "", Conn)
'实例化DataSet对象
ds = New DataSet()
'将da中的数据放到DataSet中,并起一个别名test2,这个别名任意起
da.Fill(ds, "test2")
'设置DataGridView数据源。用DataGridView显示数据库表grade内容
DataGridView1.DataSource = ds.Tables("test2")
Next i
End Sub
现在只显示最后一次运行的结果,我需要把每次查询到的数据都显示出来,这段程序该怎么改?添加行怎么添加?
[解决办法]
For i = a To b Step c
'执行select语句查询数据库
da = New OleDbDataAdapter("SELECT * FROM test1 WHERE id=" & i & "", Conn)
'实例化DataSet对象
ds = New DataSet()
'将da中的数据放到DataSet中,并起一个别名test2,这个别名任意起
da.Fill(ds, "test2")
'设置DataGridView数据源。用DataGridView显示数据库表grade内容
Next i
循环完后再绑定。
DataGridView1.DataSource = ds.Tables("test2")