如何将Datatable里的数据批量的插入表里

[Jimmyliu2004]

如题，以下是我单条的插入数据，如何批量的插入呢，请大家修改一下：
If MsgBox("是否要更新到数据库？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
If sqlconn.State <> ConnectionState.Open Then
sqlconn.Open()
End If

Dim MyAdapter As New SqlDataAdapter
Dim sql As String = "insert into attend(empid,in_date,in_time) values" _
& "( '" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 0) & "'," _
& "'" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 1) & "'," _
& "'" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 2) & "')"
MyAdapter.InsertCommand = New SqlCommand(sql, sqlconn)
MyAdapter.InsertCommand.ExecuteNonQuery()
End If

[IcyPlayer]

Dim myConn As New OleDbConnection(myConnection)
Dim myDataAdapter As New OleDbDataAdapter()
myDataAdapter.SelectCommand = New OleDbCommand(mySelectQuery, myConn)
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter)

myConn.Open()

Dim ds As DataSet = New DataSet
myDataAdapter.Fill(ds, myTableName)

' Code to modify data in DataSet here

' Without the OleDbCommandBuilder this line would fail.
myDataAdapter.Update(ds, myTableName)

myConn.Close()

[mooowx]

对DataGrid1进行数据绑定，直接UPDATE就行，很方便的。

[Jimmyliu2004]

我Datagrid的数据是一个文本文件取出来的，看源码，现在我想把datagrid里的数据插入到表里，按照 IcyPlayer兄弟的方法，始终没有出来。怎么办啊：
Dim intColCount As Integer = 0
Dim blnFlag As Boolean = True
Dim mydt As DataTable = New DataTable '("myTableName")
Dim mydc As DataColumn
Dim mydr As DataRow

Dim FilePath As String
If Openfile_dg.ShowDialog = DialogResult.OK Then
FilePath = Me.Openfile_dg.FileName
End If

Dim strline As String
Dim aryline As String()
Dim i As Integer

If FilePath <> Nothing Then
Dim mysr As System.IO.StreamReader = New System.IO.StreamReader(FilePath, System.Text.Encoding.Default)
strline = mysr.ReadLine()
While strline <> Nothing
aryline = strline.Split(vbTab)
'aryline = strline.Split("|".ToCharArray())
If blnFlag Then
blnFlag = False
intColCount = aryline.Length
For i = 0 To aryline.Length - 1
mydc = New DataColumn(aryline(i))
mydt.Columns.Add(mydc)
Next
Else
mydr = mydt.NewRow()
For i = 0 To intColCount - 1
mydr(i) = aryline(i)
Next
mydt.Rows.Add(mydr)
End If
strline = mysr.ReadLine()
End While
End If
Me.DataGrid1.DataSource = mydt

[Jimmyliu2004]

关键是这句Me.DataGrid1.DataSource = mydt,mydt是一个datatable，这里面没有定义dataset，取出的数据只有在datagrid里，如何插入到数据库呢？？？？

[kjq_vb]

用sqlcommandbuilder
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/cpref/html/frlrfsystemdatasqlclientsqlcommandbuilderclasstopic.asp

[Jimmyliu2004]

Help me ,please