首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

如何把每次循环的结果都现在datagridview下

2012-08-09 
怎么把每次循环的结果都现在datagridview上?Dim Conn As OleDbConnectionDim da As OleDbDataAdapterDim d

怎么把每次循环的结果都现在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")

热点排行