Как создать DataAdapter для возможности сохранения (обновления) данных

@cergew · Регистрация: 09.01.2011

Студворк — интернет-сервис помощи студентам

Делаю так, отдельной процедурой гружу таблицы в Dataset:

VB.NET
1
2
3
4
5
6
7
8
9
    Private Sub LoadTable(ByVal TableName As String)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        DA.FillSchema(DS, SchemaType.Mapped, TableName)
        DA.Fill(DS, TableName)
    End Sub

Загрузил. Связал с датагрид. Но теперь, чтобы сохранить изменения, надо вызвать DA.Update.
Вопрос: где мне DataAdapter для таблицы брать?
У меня есть только DS.Tables("Выплаты"). Получается, нужно сохранить где-то в отдельной переменной DataAdapter?

полный код ниже

VB.NET
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.Data.SqlClient
 
Public Class frmMain
    Dim ConnectionString As String
    Dim Connection As SqlConnection
    Dim DS As New DataSet
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        ConnectionString =
            "Data Source='server';" &
            "Initial Catalog='payto';" &
            "User Id='sa';" &
            "Password='sa';"
        Connection = New SqlConnection(ConnectionString)
 
        LoadTable("Списки")
        dgvСписки.DataSource = DS
        dgvСписки.DataMember = ("Списки")
 
        LoadTable("Выплаты")
        DS.Relations.Add("Списки2Выплаты", DS.Tables("Списки").Columns("id"), DS.Tables("Выплаты").Columns("Список"))
        dgvВыплаты.DataSource = DS
        dgvВыплаты.DataMember = "Списки.Списки2Выплаты"
 
        'устанавливаем формат для полей с деньгами 0.00
        dgvВыплаты.Columns("Сумма").DefaultCellStyle.Format = "0.00"
        dgvСписки.Columns("Сумма").DefaultCellStyle.Format = "0.00"
 
        'скрываем ненужные столбцы
        dgvВыплаты.Columns("id").Visible = False
        dgvСписки.Columns("id").Visible = False
    End Sub
 
    Private Sub LoadTable(ByVal TableName As String)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        DA.FillSchema(DS, SchemaType.Mapped, TableName)
        DA.Fill(DS, TableName)
    End Sub
 
    Private Sub tsAddList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAddList.Click
        Dim nr As DataRow = DS.Tables("Списки").NewRow
        DS.Tables("Списки").Rows.Add(nr)
    End Sub
 
    Private Sub tsAddPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAddPay.Click
        Dim nr As DataRow = DS.Tables("Выплаты").NewRow
        nr.Item("Список") = dgvСписки.CurrentRow.Cells("id").Value
        DS.Tables("Выплаты").Rows.Add(nr)
    End Sub
 
    Private Sub СохранитьToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSaveLists.Click
 
    End Sub
 
    Private Sub tsSavePays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSavePays.Click
        dgvВыплаты.EndEdit()
        DS.Tables("Выплаты")
    End Sub
End Class

Возможно кто-то более удобный способ подскажет. Поделитесь сурсами. Меня раздражает то, что нельзя в одном месте хранить все объекты для работы таблицей.

@nio · 16.11.2011, 09:42

Сообщение от cergew

Вопрос: где мне DataAdapter для таблицы брать?

ну так вот же ты создаешь адаптер

Сообщение от cergew

Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)

Только он у тебя объявлен в методе и универсален для всех таблиц, я бы рекомендовал использовать для каждой таблицы собственный адаптер.

Сообщение от cergew

Меня раздражает то, что нельзя в одном месте хранить все объекты для работы таблицей.

Кто тебе такое сказал?

@cergew · 16.11.2011, 14:35 **[ТС]**

Сообщение от nio

ну так вот же ты создаешь адаптер?

Спасибо. Я осознаю, что создаю ДатаАдаптер, только вот это локальная "переменная" и она уничтожается после end sub.

VB.NET
1
2
3
dgvВыплаты.DataSource = Выплаты.DT
...
Выплаты.DA.Update

Я видимо как-то неправильно объяснил что мне нужно. А наверное, я и сам не знаю, что мне нужно

Сделал пока так:
Создал структуру Table, чтобы хранить в ней и адаптер, и таблицу. Объявил соответствующие переменные с типом данных Table

VB.NET
1
2
3
4
5
6
7
    Private Structure Table
        Dim DT As DataTable
        Dim DA As SqlDataAdapter
    End Structure
 
    Dim Выплаты As Table
    Dim Списки As Table

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub LoadTable(ByVal TableName As String, ByRef Dest As Table)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        Dest.DA = DA
        Dest.DT = New DataTable
        Dest.DA.FillSchema(Dest.DT, SchemaType.Mapped)
        Dest.DA.Fill(Dest.DT)
        DS.Tables.Add(Dest.DT)
    End Sub

VB.NET
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
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        ConnectionString =
            "Data Source='srvsitex';" &
            "Initial Catalog='pavlov_payto';" &
            "User Id='sa';" &
            "Password='@dm!n#1rai';"
        Connection = New SqlConnection(ConnectionString)
 
        LoadTable("Списки", Списки)
        dgvСписки.DataSource = DS
        dgvСписки.DataMember = "Списки"
 
        LoadTable("Выплаты", Выплаты)
        DS.Relations.Add("Списки2Выплаты", DS.Tables("Списки").Columns("id"), DS.Tables("Выплаты").Columns("Список"))
        dgvВыплаты.DataSource = DS
        dgvВыплаты.DataMember = "Списки.Списки2Выплаты"
 
        'устанавливаем формат для полей с деньгами 0.00
        dgvВыплаты.Columns("Сумма").DefaultCellStyle.Format = "0.00"
        dgvСписки.Columns("Сумма").DefaultCellStyle.Format = "0.00"
 
        'скрываем ненужные столбцы
        dgvВыплаты.Columns("id").Visible = False
        dgvСписки.Columns("id").Visible = False
    End Sub

Это вообще, нормально? Или я изобрёл какой-то велосипед?
Вот теперь я могу вызвать спокойно Выплаты.DA.Update

VB.NET
1
2
3
4
    Private Sub tsSavePays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSavePays.Click
        dgvВыплаты.EndEdit()
        Выплаты.DA.Update(Выплаты.DT)
    End Sub

Всё хорошо: и в базу сохраняется, и я счастлив - потому что мне надо помнить в коде только название таблицы. Просто без таких танцев с бубном, когда много таблиц будет, что для каждой создавать три переменные?

Добавлено через 13 минут
Надо как-то ещё умнее это делать, ещё проще. А вот как...

Добавлено через 1 час 30 минут
Кстати, тему переименовал модератор, не знаю зачем. Как создать датаадаптер я знаю ))

@nio · 16.11.2011, 16:19

Сообщение от cergew

Кстати, тему переименовал модератор, не знаю зачем

почитай правила(п.2.3 и п.2.4), поймешь

@cergew · 21.11.2012, 13:22 **[ТС]**

Сообщение от cergew

Надо как-то ещё умнее это делать, ещё проще. А вот как...

Прошу прощения за некропостинг, но - я потом нашёл способ сделать всё гораздо проще и удобнее - это LINQ и Entity Framework. Рекомендую.

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .