vb.net中怎样从DataGridView的数据插入到ACCESS中

Question

vb.net2010中怎样从MSsql中查询出来的数据显示到DataGridView中（前面这个我已经做了如果能给出全部代码就更好了）然后插入到ACCESS表里，
如果查询出来表的字段名和ACCESS的字段名不一样的话，代码怎么写，

Answer 1

Dim strConn As String = "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" &
Application.StartupPath & "\ACCESS.MDB"

Dim cn As New OdbcConnection(strConn)
cn.Open()
Dim da As New OdbcDataAdapter("Select * From 表名", cn)
Dim ds As New DataSet
da.Fill(ds, "表名")
Dim cmdBuilder As New OdbcCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand

With ds.Tables("表名")
For i = 0 to DataGridView1.Rows.Count - 1
Dim dr As DataRow = .NewRow
dr("列名1") = DataGridView1中的值
.
.
.
dr("列名n") = DataGridView1中的值
.Rows.Add(dr)
next
End With
da.Update(ds.Tables("表名"))
cn.Close()
如果不明白继续问

追问

先谢谢的的解答，

我还要问一下，

数据我是从ms sql数据库查询出来的，

每一行的值不一样，DataGridView1中的值要怎么写

刚接触不太懂

追答

1、有循环循环每一行
2、保证DataGridView中有列名
dr("列名1") = DataGridView1.Rows(i).Cells("列名1").Value .
|
dr("列名n") = DataGridView1.Rows(i).Cells("列名n").Value
，如果还不清楚可以用一个笨办法
dr("列名1") = DataGridView1.Rows(i).Cells(index).Value .

index为数字，例如DataGridView1.Rows(i).Cells(0).Value一定对应某个值