Копирайте цял ред от базата данни на таблица

Използвам 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
Ups .. съжалявам! Трябва да е „drCopy“ .. и drCopy ще има същата структура като tbCopy, ако попълните tbCopy = ......... - person matzone; 28.05.2013