Удаление записи из таблицы VBA, ошибка ODBC

@agps-5 · Регистрация: 21.03.2020

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

День добрый! Есть база данных учета количества сотрудников и техники на сутках, изначально работала просто в Access, таблицы перенес в SQL сервер, все работает, но удалить запись не получается, подскажите в чем ошибка
код кнопки для удаления такой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub btnDelete_Click()
On Error GoTo Err_btnDelete_Click
    
    SilentDeleteRecord Me.DateKey_Date, Me.Unit_ID
    DoCmd.Close acForm, Me.Name, acSaveNo
    Form_Dates.Refresh
 
Exit_btnDelete_Click:
    Exit Sub
 
Err_btnDelete_Click:
    MsgBox Err.Description
    Resume Exit_btnDelete_Click
    
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SilentDeleteRecord(ByVal data As Date, ByVal UnitID As Long)
' удаление записи
Dim dbs As Database
Dim rec As Recordset
 
    Set dbs = CurrentDb
    Set rec = dbs.OpenRecordset("Records", dbOpenDynaset)
 
    rec.FindFirst "DateKey_Date=#" & FixDate(data) & "# AND Unit_ID=" & UnitID
    rec.Delete
 
    Set rec = Nothing
    Set dbs = Nothing
 
End Sub

@tkrainyk · 03.02.2021, 17:00

Сообщение от agps-5

теперь надо решить как правильно написать запрос

А вы наведите здесь текст запроса. Добрые люди помогут его вам оптимизировать.

@Andrey-MSK · 03.02.2021, 17:10

agps-5, И еще

Если MS SQL Server настроить на русскую локаль, то работа с датами становится оченно простой:

T-SQL
1
2
3
SELECT ...
FROM ...
WHERE SelectDate BETWEEN N'01.02.2021' AND N'28.02.2021'

Как-то так

@agps-5 · 03.02.2021, 17:16 **[ТС]**

Andrey-MSK,

тут проблема не с самой датой, а в том, что исходная база данных написана на локальное испоьзование, но есть необходимость переместить таблицы на SQL сервер, но работать не хочет, вся загводка в формате даты и ее представлении в коде и запросах

@Andrey-MSK · 03.02.2021, 17:22

agps-5, То что я написал выше, это применимо для запроса к серверу. Можно забирать в переменную VBA прямо из текстового поля на форме.
Вот пример запроса к серверу из Access, который меняет RecordSource форм в зависимости от периода дат в главной форме

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub btnShow_Click()
    
    Me![фрмРМСводныеПериод_02].Form.RecordSource = "SELECT tblMiMWorks.ID_MiMWorks, tblMiMWorks.NumPP, " _
            & "tblMiMWorks.Kod, tblMiMWorks.Naimenovanie, tblMiMWorks.EdIzm " _
        & "FROM tblMiMWorks " _
        & "INNER JOIN tblMiMProgress ON tblMiMWorks.ID_MiMWorks = tblMiMProgress.ID_MiMWorks " _
        & "WHERE tblMiMProgress.DateOfWork BETWEEN N'" & Me.frmDateStart & "' AND N'" & Me.frmDateEnd & "' " _
        & "GROUP BY tblMiMWorks.ID_MiMWorks, tblMiMWorks.NumPP, tblMiMWorks.Kod, tblMiMWorks.Naimenovanie, tblMiMWorks.EdIzm " _
        & "ORDER BY tblMiMWorks.NumPP"
        
    Me![фрмРМСводныеПериод_03].Form.RecordSource = "SELECT ID_MiMWorks, RegNum, Naimenovanie, SUM(TimeOfWork) AS SumTime " _
        & "FROM tblMiMProgress " _
        & "WHERE DateOfWork BETWEEN N'" & Me.frmDateStart & "' AND N'" & Me.frmDateEnd & "' " _
        & "GROUP BY ID_MiMWorks, ITR, RegNum, Naimenovanie"
        
    Me![фрмРМСводныеПериод_04].Form.RecordSource = "SELECT   tblMiMMechanism.ID_MiMMechanism, tblMiMMechanism.RegNum, " _
            & "tblMiMMechanism.Naimenovanie, SUM(tblMiMProgress.TimeOfWork) AS TimeSum " _
        & "FROM tblMiMMechanism " _
        & "INNER JOIN tblMiMProgress ON tblMiMMechanism.ID_MiMMechanism = tblMiMProgress.ID_MiMMechanism " _
        & "WHERE tblMiMProgress.DateOfWork BETWEEN N'" & Me.frmDateStart & "' AND N'" & Me.frmDateEnd & "' " _
        & "GROUP BY tblMiMMechanism.ID_MiMMechanism, tblMiMMechanism.RegNum, tblMiMMechanism.Naimenovanie"
    
End Sub

Я тут не парился с ADODB, потому просто ссылки на поля форрмы

@tkrainyk · 03.02.2021, 17:23

У меня почему-то выражение:

Visual Basic
1
Between [Формы]![ПериодОтчета]![НачальнаяДата] And [Формы]![ПериодОтчета]![КонечнаяДата]

периодически неправильно воспринимало период и выдавало непредсказуемые результаты.

Потом я его переделал так:

Visual Basic
1
Between CDate([Формы]![ПериодОтчета]![НачальнаяДата]) And CDate([Формы]![ПериодОтчета]![КонечнаяДата])

и ошибки прекратились.

Я лично не понимаю, в чем дело, просто константирую факт. Настройки в SQL стоят русские.

@Andrey-MSK · 03.02.2021, 17:28

tkrainyk, У вас запрос выполняется не на сервере, а в Access.
В T-SQL нет CDate и MS SQL Server не знает что такое [Формы]![ПериодОтчета]![НачальнаяДата]

@agps-5 · 03.02.2021, 17:34 **[ТС]**

Andrey-MSK,

это чуть не то, на сколько мне понятно

Visual Basic
1
2
3
4
5
6
7
8
9
Public Function FixDate(dDate As Date, Optional bForSQLServer As Boolean) As String
    If bForSQLServer = True Then 'Для MS SQL
'        FixDate = Format$(dDate, "'mm\.dd\.yyyy'")
        'или можно так:
        FixDate = Format$(dDate, "'yyyy\-mm\-dd'")
    Else ' Для MS Access
        FixDate = Format$(dDate, "\#mm\/dd\/yy\#")
    End If
End Function

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub btn_OpenRecord_Click()
    On Error GoTo EX
    'Отрываем для изменения
    Dim stLinkCriteria As String
    
    
    Select Case DataRecordGrope
        Case Is = DataRecordsGroups.drgUnits
            stLinkCriteria = "[DateKey_Date]=" & _
                "#" & FixDate(Me.SF_Records.Form.Controls("DateKey_date")) & "# And [Unit_ID]=" & Me.SF_Records.Form.Controls("Unit_ID")
            DoCmd.OpenForm "Records", acNormal, , stLinkCriteria
            Form_Records.IsAdd = False
            
            SetRecordFormCaption Form_Records, Me.SF_Records.Form.Controls("DateKey_date"), Me.SF_Records.Form.Controls("UnitName")
            Form_Records.KTG = Round(GetTGV(Me.SF_Records.Form.Controls("DateKey_date"), Me.SF_Records.Form.Controls("Unit_ID")) * 100, 1) & "%"
    End Select
    
    
EX:
End Sub

подскажите, как тут поправить правильно

@Andrey-MSK · 03.02.2021, 17:40

agps-5, Если править для SQL Server, то дата записывается как текст, и знак # нужно заменить на ' (это нижний апостроф на букве Э на клавиатуре). И если региональные настройки на сервере не менялись, стоит по умолчанию US, то дата должна быть записана в формате YMD - '20210203' - это у нас 03.02.2021. Апострофы обозначают текст.

@tkrainyk · 03.02.2021, 17:40

Сообщение от Andrey-MSK

tkrainyk, У вас запрос выполняется не на сервере, а в Access.
В T-SQL нет CDate и MS SQL Server не знает что такое [Формы]![ПериодОтчета]![НачальнаяДата]

Извините, но это не так. Если бы запрос выполнялся на стороне Access, то тогда: надо бы тянуть из сервера таблицу Жители около 50 Мб, а это приблизительно 1 секунда, и еще выполнение запроса, значит где-то 1,3 - 1,5 секунды.

А запрос выполняется за 0,2 секунды.

Отсюда вывод: он выполняется на сервере, а в Access мы получаем уже результат. Драйвер ODBC отправляет запрос на сервер и там он выполняется.

@Andrey-MSK · 03.02.2021, 17:47

tkrainyk, Еще раз вам повторяю

В T-SQL нет CDate и MS SQL Server не знает что такое [Формы]![ПериодОтчета]![НачальнаяДата] - это не запрос к серверу. Запустите MS SQL Server Profiler и посмотрите какой запрос летит на сервер во время выполнения вашего и сравните ваш и тот

У вас ведь нет в запросе функций Dxxxxx, потому он и выполняется быстро.

@tkrainyk · 03.02.2021, 17:59

Сообщение от Andrey-MSK

это не запрос к серверу.

Это не запрос к серверу, это обыкновенный запрос через присоединенные таблицы. Но выполняется он на стороне сервера. Драйвер ODBC умеет работать и с формами и функциями типа CDate.

И еще вопрос, нужно ли использовать запросы к серверу, когда при 60 тыс. записей и так все летает?

Добавлено через 3 минуты

Сообщение от Andrey-MSK

Запустите MS SQL Server Profiler и посмотрите какой запрос летит на сервер во время выполнения вашего и сравните ваш и тот

Такой же запрос непосредственно на сервере выполняется за 0,01 сек. Оно конечно в 20 раз быстрее, но все зависит от потребностой конкретного разроботчика.

@Andrey-MSK · 03.02.2021, 18:02

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

И еще вопрос, нужно ли использовать запросы к серверу, когда при 60 тыс. записей и так все летает?

Нужно, так как это более правильно

@tkrainyk · 03.02.2021, 18:11

Сообщение от Andrey-MSK

Нужно, так как это более правильно

То, что так более правильно, согласен.

@agps-5 · 03.02.2021, 18:33 **[ТС]**

Andrey-MSK,

это чуть не то, на сколько мне понятно

Visual Basic
1
2
3
4
5
6
7
8
9
Public Function FixDate(dDate As Date, Optional bForSQLServer As Boolean) As String
    If bForSQLServer = True Then 'Для MS SQL
'        FixDate = Format$(dDate, "'mm\.dd\.yyyy'")
        'или можно так:
        FixDate = Format$(dDate, "'yyyy\-mm\-dd'")
    Else ' Для MS Access
        FixDate = Format$(dDate, "\#mm\/dd\/yy\#")
    End If
End Function

Visual Basic
1
2
3
4
5
6
Select Case DataRecordGrope
        Case Is = DataRecordsGroups.drgUnits
            stLinkCriteria = "[DateKey_Date]=" _
               & FixDate(Me.SF_Records.Form.Controls("DateKey_date")) & " And [Unit_ID]=" & Me.SF_Records.Form.Controls("Unit_ID")
            DoCmd.OpenForm "Records", acNormal, , stLinkCriteria
            Form_Records.IsAdd = False

так правильно?

@Andrey-MSK · 03.02.2021, 19:07

agps-5, напишите на SQL какой вам нужен запрос, я вам даты правильно проставлю

tkrainyk, грузить работой нужно сервер, а не клиентский калькулятор

Гораздо проще сразу отправить на сервер 2 килобайта запроса, чем вначале преобразовать все форматы, сериализовать поля форм в параметры и создать параметрический запрос, и только после всего этого отправить те же 2 килобайта запроса. В первом случае это время близкое к нулю, во втором зависит от мощей калькулятора

Добавлено через 8 минут
tkrainyk, и еще, в первом случае вы сможете использовать всю мощь T-SQL, а во втором довольствоваться кастрированным Jet-SQL

@tkrainyk · 03.02.2021, 19:29

Andrey-MSK, могу поддержать ваше мнение, чтоб вы на меня не обижались

Я пробовал сравнивать время выполнения запросов через присоединенные таблицы и те же самые запросы непосредственно на сервере. Результаты показали, что запросы на выборку на сервере выполняются в 10 и больше раз быстрее. А множественные запросы на изменение вообще в 100 и больше раз.

Но только стоит ли заморачиваться, если и так работает.

Может быть, когда нибудь, когда у меня будет база на 1 млн. записей, последую вашему совету

@agps-5 · 03.02.2021, 20:08 **[ТС]**

Andrey-MSK,

с открытием формы и загрузкой разобрался, а вот тут не получается

Visual Basic
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
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub LoadPreviousData()
Dim sql As String
Dim dbs As Database
Dim rec As Recordset
Dim recTech As Recordset
Dim fld As Field
 
    Set dbs = CurrentDb
 
    'Загружаем данные записи прошлого дежурства данного караула
    sql = "SELECT Personnel_Stat, SIZODRasch, SIZODRezerv, ProtectsCostumes_L1, ProtectsCostumes_TOK, PTV_GASI_BR, PTV_GASI_Rezerv, ProtectsCostumes_Another, Personnel_ByList, Personnel_Act, Personnel_BR_Total, Personnel_BR_Disp, " & _
                "Personnel_BR_NK, Personnel_BR_PNKKO, Personnel_BR_FF, Personnel_BR_GDZS, Personnel_BR_Voditel, Personnel_Ots_Total, Personnel_Ots_Otp, Personnel_Ots_Bolezn, Personnel_Ots_Komandirovka, " & _
                "Personnel_Ots_Other, Personnel_Nekomplekt, PO_ByAuto, PO_ByRezerv, Benzin_ByAuto, Dizel_ByAuto, NK_Family, OperDezh, Disp_Family, VB " & _
                "FROM Records " & _
                "WHERE DateKey_Date=" & FixDate(DateAdd("d", -4, Me.DateKey_Date), False) & " AND Unit_ID=" & Me.Unit_ID & ";"
    Set rec = dbs.CreateQueryDef("", sql).OpenRecordset(dbOpenSnapshot)
    
    If rec.RecordCount = 0 Then Exit Sub
    rec.MoveFirst
    
    For Each fld In rec.Fields
        On Error Resume Next
        Me.Controls.Item(fld.Name) = fld
    Next fld
    
    'Загружаем данные по технике прошлых суток
    Set recTech = Me.SF_RecordMSP.Form.Recordset
    
    If recTech.RecordCount = 0 Then Exit Sub
    recTech.MoveFirst
    
    Do Until recTech.EOF
        'Данные из прошлых суток
        sql = "SELECT KomandToUnit_ID, InBR, InRez, InTO1, InTO2, InFix, SquadNumber, Personnel " & _
              "FROM RecordMSP " & _
              "WHERE DateKey_Date=" & FixDate("d", -4, (Me.DateKey_Date), False) & _
              "AND Unit_ID=" & Me.Unit_ID & " AND Technik_ID=" & recTech.Fields("Technik_ID") & ";"
        Set rec = dbs.CreateQueryDef("", sql).OpenRecordset(dbOpenSnapshot)
        
        If rec.RecordCount > 0 Then
            rec.MoveFirst
            recTech.Edit
                recTech.Fields("KomandToUnit_ID") = rec.Fields("KomandToUnit_ID")
                recTech.Fields("InBR") = rec.Fields("InBR")
                recTech.Fields("InRez") = rec.Fields("InRez")
                recTech.Fields("InTO1") = rec.Fields("InTO1")
                recTech.Fields("InTO2") = rec.Fields("InTO2")
                recTech.Fields("InFix") = rec.Fields("InFix")
                recTech.Fields("SquadNumber") = rec.Fields("SquadNumber")
'                recTech.Fields("Personnel") = rec.Fields("Personnel")
            recTech.Update
        End If
        
        'Данные из прошлого дежурства
        If Not IsNull(recTech.Fields("SquadNumber")) Then
            sql = "SELECT Personnel " & _
              "FROM RecordMSP " & _
              "WHERE DateKey_Date=" & FixDate("d", -1, (Me.DateKey_Date), False) & _
              "AND Unit_ID=" & Me.Unit_ID & " AND SquadNumber=" & recTech.Fields("SquadNumber") & ";"
            Set rec = dbs.CreateQueryDef("", sql).OpenRecordset(dbOpenSnapshot)
            
            If rec.RecordCount > 0 Then
                rec.MoveFirst
                recTech.Edit
                    recTech.Fields("Personnel") = rec.Fields("Personnel")
                recTech.Update
            End If
            
        End If
        
        recTech.MoveNext
    Loop
    
    Set recTech = Nothing
    Set rec = Nothing
    Set dbs = Nothing
End Sub

Добавлено через 29 минут
Получилось разобраться с этим тоже

Добавлено через 2 минуты
Andrey-MSK,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SilentDeleteRecord(ByVal data As Date, ByVal UnitID As Long)
'Тихое удаление записей
Dim dbs As Database
Dim rec As Recordset
 
    Set dbs = CurrentDb
    Set rec = dbs.OpenRecordset("Records", dbOpenDynaset)
 
    rec.FindFirst "DateKey_Date=" & FixDate(data) & " AND Unit_ID=" & UnitID
    rec.Delete
 
    Set rec = Nothing
    Set dbs = Nothing
 
End Sub

Осталось то с чего и начал тему, результат - ошибка ODBC

@Andrey-MSK · 03.02.2021, 20:31

agps-5, если я правильно понял, то для запроса к серверу делать нечто типа такого
строка 15

Visual Basic
1
"WHERE DateKey_Date=DATEADD(day, -4, " & Me.DateKey_Date & ") AND Unit_ID=" & Me.Unit_ID & ";"

строка 36

Visual Basic
1
"WHERE DateKey_Date=DATEADD(day, -4, " & Me.DateKey_Date & ") " & _ 'тут могу напутать с апострофами в конце

строка 58

Visual Basic
1
"WHERE DateKey_Date=DATEADD(day, -1, " & Me.DateKey_Date & ") " & _ 'тут могу напутать с апострофами в конце

DATEADD T-SQL

Добавлено через 3 минуты

Сообщение от agps-5

результат - ошибка ODBC

Ошибки живут не сами по себе, у них есть номер и описание

Добавлено через 5 минут
agps-5, так стоп

вот так обрамлять поле с датой

Visual Basic
1
"WHERE DateKey_Date=DATEADD(day, -4, N'" & Me.DateKey_Date & "') AND Unit_ID=" & Me.Unit_ID & ";"

Либо переписать всё через ADODB с параметрами, что гораздо лучше и правильнее

@agps-5 · 03.02.2021, 23:56 **[ТС]**

Сообщение от Andrey-MSK

Либо переписать всё через ADODB с параметрами, что гораздо лучше и правильнее

мне бы тут разобраться сначала)

Добавлено через 3 часа 19 минут
Eugene-LS,

Вечер добрый, нагородил чего-то, но работает, а вот удалить я так и не сообразил как запись

@Eugene-LS · 04.02.2021, 07:13

Сообщение от agps-5

Вечер добрый, нагородил чего-то, но работает, а вот удалить я так и не сообразил как запись

Добро утро!
Не совсем понимаю что у вас происходит, но ответить попробую.
Раз уже, у вас, получается выборка:

SQL
1
SELECT ... FROM ... WHERE ...

То получится и удаление:

SQL
1
DELETE FROM ... WHERE ...

синтаксис WHERE - одинаковый в обоих случаях.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	03.02.2021, 17:16 [ТС]
	Andrey-MSK, тут проблема не с самой датой, а в том, что исходная база данных написана на локальное испоьзование, но есть необходимость переместить таблицы на SQL сервер, но работать не хочет, вся загводка в формате даты и ее представлении в коде и запросах 0

@Andrey-MSK 3397 / 2283 / 388 Регистрация: 14.08.2018 Сообщений: 7,765 Записей в блоге: 4
	03.02.2021, 17:28
	tkrainyk, У вас запрос выполняется не на сервере, а в Access. В T-SQL нет CDate и MS SQL Server не знает что такое [Формы]![ПериодОтчета]![НачальнаяДата] 0

@Andrey-MSK 3397 / 2283 / 388 Регистрация: 14.08.2018 Сообщений: 7,765 Записей в блоге: 4
	03.02.2021, 17:40
	agps-5, Если править для SQL Server, то дата записывается как текст, и знак # нужно заменить на ' (это нижний апостроф на букве Э на клавиатуре). И если региональные настройки на сервере не менялись, стоит по умолчанию US, то дата должна быть записана в формате YMD - '20210203' - это у нас 03.02.2021. Апострофы обозначают текст. 0

@Andrey-MSK 3397 / 2283 / 388 Регистрация: 14.08.2018 Сообщений: 7,765 Записей в блоге: 4
	03.02.2021, 17:47
	tkrainyk, Еще раз вам повторяю В T-SQL нет CDate и MS SQL Server не знает что такое [Формы]![ПериодОтчета]![НачальнаяДата] - это не запрос к серверу. Запустите MS SQL Server Profiler и посмотрите какой запрос летит на сервер во время выполнения вашего и сравните ваш и тот У вас ведь нет в запросе функций Dxxxxx, потому он и выполняется быстро. 0

@Andrey-MSK 3397 / 2283 / 388 Регистрация: 14.08.2018 Сообщений: 7,765 Записей в блоге: 4
	03.02.2021, 19:07
	agps-5, напишите на SQL какой вам нужен запрос, я вам даты правильно проставлю tkrainyk, грузить работой нужно сервер, а не клиентский калькулятор Гораздо проще сразу отправить на сервер 2 килобайта запроса, чем вначале преобразовать все форматы, сериализовать поля форм в параметры и создать параметрический запрос, и только после всего этого отправить те же 2 килобайта запроса. В первом случае это время близкое к нулю, во втором зависит от мощей калькулятора Добавлено через 8 минут tkrainyk, и еще, в первом случае вы сможете использовать всю мощь T-SQL, а во втором довольствоваться кастрированным Jet-SQL 0

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855
	03.02.2021, 19:29
	Andrey-MSK, могу поддержать ваше мнение, чтоб вы на меня не обижались Я пробовал сравнивать время выполнения запросов через присоединенные таблицы и те же самые запросы непосредственно на сервере. Результаты показали, что запросы на выборку на сервере выполняются в 10 и больше раз быстрее. А множественные запросы на изменение вообще в 100 и больше раз. Но только стоит ли заморачиваться, если и так работает. Может быть, когда нибудь, когда у меня будет база на 1 млн. записей, последую вашему совету 0