|
Как INSERT несколько записей из DataGrid в mdb разом
#32733402
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Ekaterinburg
Сообщения: 4 130
|
|
Я вычисляю последний номер и присваиваю записи из DataGrid следующий, х+1. Одна запись вставляется безошибочно. А разом несколько не знаю как.
Используя уже написанный код
Вынесите определение нового ID, в отдельную процедуру, примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
public function GetLastID() as integer
Dim oRD As OleDb.OleDbDataReader
Dim x As Integer
oRD = oApp.DB.ExecCommandReader("SELECT ID FROM ActionPlanFact ORDER BY ID;")
Do While oRD.Read()
x = oRD.GetInt32( 0 )
Loop '
oRD.Close()
return x
end function
Вообще не используйте.
Делаем через CurrencyManager.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Private Sub btnIns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIns.Click
' Dim dtitem0 As Double = Convert.ToDouble(dt.Rows(dgData.CurrentRowIndex).Item(5)) 'rem by Sa
' Dim dtitem1 As Double = Convert.ToDouble(dt.Rows(dgData.CurrentRowIndex).Item(6)) 'rem by Sa
' Dim dtitem2 As Double = Convert.ToDouble(dt.Rows(dgData.CurrentRowIndex).Item(7)) 'rem by Sa
' Dim dtitem3 As Double = Convert.ToDouble(dt.Rows(dgData.CurrentRowIndex).Item(8)) 'rem by Sa
' Dim dtitem4 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(9)) 'rem by Sa
' Dim dtitem5 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(10)) 'rem by Sa
' Dim dtitem6 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(0)) 'rem by Sa
' Dim dtitem7 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(1)) 'rem by Sa
' Dim dtitem8 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(2)) 'rem by Sa
' Dim dtitem9 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(3)) 'rem by Sa
' Dim dtitem10 As Integer = Convert.ToInt32(dt.Rows(dgData.CurrentRowIndex).Item(4)) 'rem by Sa
Dim myDataGrid as DataGrid = dgData
Dim cm As CurrencyManager = Me.BindingContext(Me.myDataGrid.DataSource, Me.myDataGrid.DataMember)
Dim dv As DataView = CType(cm.List, DataView)
Dim i As Integer
For i = 0 To dv.Count - 1
Dim dtitem0 as integer = CType(dv(i)( 5 ), integer) ' Вместо индекса нагляднее использовать название столбца, например CType(dv("column1_name")
Dim dtitem1 as integer = CType(dv(i)( 6 ), integer)
Dim dtitem2 as integer = CType(dv(i)( 7 ), integer)
Dim dtitem3 as integer = CType(dv(i)( 8 ), integer)
Dim dtitem4 as integer = CType(dv(i)( 9 ), integer)
Dim dtitem5 as integer = CType(dv(i)( 10 ), integer)
Dim dtitem6 as integer = CType(dv(i)( 0 ), integer)
Dim dtitem7 as integer = CType(dv(i)( 1 ), integer)
Dim dtitem8 as integer = CType(dv(i)( 2 ), integer)
Dim dtitem9 as integer = CType(dv(i)( 4 ), integer)
Dim dtitem10 as integer = CType(dv(i)( 4 ), integer)
Dim x as Integer = GetLastID(); 'added by Sa
strSQL = "INSERT into ActionPlanFact values ("& x + 1 & ", @dt0, @dt1, @dt2, @dt3, " & dtitem4 & ", " & dtitem5 & ", " & dtitem6 & ", " & dtitem7 & ", " & dtitem8 & ", " & dtitem9 & ", " & dtitem10 & "); "
Try
If oApp.DB.ExecCommand(strSQL, New Object() {"@dt0", dtitem0, "@dt1", dtitem1, "@dt2", dtitem2, "@dt3", dtitem3}) > 0 Then
' dt.Rows(dgData.CurrentRowIndex).Item(11) = x + 1 ' rem by Sa
dv(i)( 11 ) = x + 1 ' added by Sa
dt.AcceptChanges()
dgData.DataSource = dt
dgData.Refresh()
tbRec.Text = CStr(dt.Rows.Count)
End If
Catch ex As Exception
MsgBox("ошибка обновления базы данных")
End Try
Next i
End Sub
|
|
|
