Member 13433977 Ответов: 2

Как исправить ошибку времени выполнения, связанную с cnn. execute?

Я новичок в этом деле, и мне нужно вставить данные из словесной формы в мою таблицу доступа. Я использую word и access 2016
"INSERT INTO Shippers" _
& "(Company, BusinessPhone) " _
& "VALUES (" _
& strCompany & ", " _
& strBusinessPhone & ")"
Debug.Print strSQL
'Substitute path and connection string with DSN if available.
strPath = "C:\Users\Admin\Documents\northwind.accdb"
strConnection = "Provider=Microsoft.ace.OLEDB.16.0;" _
& "Data Source = " & strPath
Debug.Print strConnection
Set cnn = New ADODB.Connection
cnn.Open strConnection
cnn.Execute strSQL, lngSuccess 'this is the problem
cnn.Close


Что я уже пробовал:

Я комментирую строку и нет никакой ошибки но она не вставляет данные

cvogt61457

Что вы видите с отладочными операторами?
Какое значение возвращается в lngSuccess?
Можете ли вы правильно получить данные? (чтобы проверить, действительно ли вы достигаете базы данных)

2 Ответов

Рейтинг:
1

Maciej Los

В дополнение к раствору 1 от OriginalGriff...

Вы должны использовать метод EXECUTE[^] для ADODB.Команда вместо того, чтобы метод EXECUTE[^] для подключения ADODB. Основное отличие заключается в том, что в 1. случае вы можете передавать параметры.

Пожалуйста, прочтите это: Коллекция параметров (ADO) | Microsoft Docs[^] чтобы узнать, как передать параметры в ADODB.Команда.

Один CommandText должно выглядеть так:

Dim oCommand As ADODB.Command, oRst As ADODB.Recordset
Dim sCommand As String

sCommand = "INSERT INTO Shippers(Company, BusinessPhone) VALUES(@pCompany, @pBPhone);"
Set oCommand = New ADODB.Command
With o Command
    .CommandType = 1 'adCmdText
    .CommandText = sCommand
    .Parameters.Append ccmd.CreateParameter("@pCompany", adVarChar, adParamInput, 150, "CompanyNameHere")   
    .Parameters.Append ccmd.CreateParameter("@pBPhone", adVarChar, adParamInput, 150, "PhoneNumberHere") 
    Set oRst = .Execute
End With


Примечание: приведенный выше код исходит непосредственно из моей головы. Таким образом, он может содержать ошибки (но я считаю, что это не так).

Рейтинг:
0

OriginalGriff

Только не так! Никогда не объединяйте строки для построения SQL-команды. Это оставляет вас широко открытыми для случайной или преднамеренной атаки SQL-инъекции, которая может уничтожить всю вашу базу данных. Вместо этого используйте параметризованные запросы.

Когда вы объединяете строки, вы вызываете проблемы, потому что SQL получает такие команды, как:

SELECT * FROM MyTable WHERE StreetAddress = 'Baker's Wood'
Цитата, добавленная пользователем, завершает строку с точки зрения SQL, и вы получаете проблемы. Но могло быть и хуже. Если я приду и наберу вместо этого: "x'; DROP TABLE MyTable;--", то SQL получит совсем другую команду:
SELECT * FROM MyTable WHERE StreetAddress = 'x';DROP TABLE MyTable;--'
Которые SQL видит как три отдельные команды:
SELECT * FROM MyTable WHERE StreetAddress = 'x';
Совершенно правильный выбор
DROP TABLE MyTable;
Вполне допустимая команда "удалить таблицу" 
--'
А все остальное-это комментарии.
Так оно и происходит: выбирает любые совпадающие строки, удаляет таблицу из базы данных и игнорирует все остальное.

Поэтому всегда используйте параметризованные запросы! Или будьте готовы часто восстанавливать свою БД из резервной копии. Вы ведь регулярно делаете резервные копии, не так ли?

Исправление этого, вероятно, также вылечит проблему, которую вы заметили ... это вызвано тем, что SQL принимает название компании за имя переменной, а не за строку.