Копировать полную строку из базы данных таблицы

Я использую VB.Net, и у меня есть база данных, содержащая две таблицы «Personne» и «PersonneCopy» (та же схема, что и у Personne [4 столбца = N°, FirstName, LastName, B_Day])

Я загружаю первую таблицу в Datagridview, все в порядке, вот код:

Dim Connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= .\BD.mdb")
Dim SqlRequete As String = "Select * From Personne"
Dim Adapter As New OleDbDataAdapter(SqlRequete, Connection)
Dim DataSet As New DataSet
Adapter.Fill(DataSet, "Tb1")
Dim DataTable As New DataTable
DataTable = DataSet.Tables("Tb1")
DataGridView1.DataSource = DataTable

Есть ли способ добавить полную строку, выбранную из DataGridView1, в таблицу «PersonneCopy»?

И, кстати, я попробовал этот код с другим Datagridview, чтобы получить индекс выбранной строки, и он работает.

Dim Index As Integer = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value
Dim SqlRequete As String = "Select * From Personne where N°=" & Index.ToString
Dim Adapter As New OleDbDataAdapter(SqlRequete, Connection)
Dim Ds As New DataSet
Adapter.Fill(Ds, "Tb")
DataGridView2.DataSource = Ds.Tables(0)

vb.net oledb
person Community    schedule 27.05.2013    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Попробуйте так

Dim drCopy as DataRow
Dim tbCopy as Datatable 

tbCopy = .... 'PersonneCopy table

drCopy=tbCopy.NewRow()
For i as integer=0 to drCopy.columns.count-1
  drCopy(i)=Ds.Tables(0).rows(0).items(i)   '---------> or you can change rows(0)
Next
tbCopy.Rows.Add(drCopy)
person matzone    schedule 27.05.2013
comment
Спасибо за ваш ответ. Но drCopy как Datarow не имеет элемента столбца. А dstRow здесь означает drCopy? - person ; 28.05.2013
comment
Упс .. извините ! Это должно быть «drCopy»... и drCopy будет иметь ту же структуру, что и tbCopy, если вы заполните tbCopy = ......... - person matzone; 28.05.2013