Значение данных VBA не обновлено в базе данных - PullRequest
0 голосов
/ 04 марта 2019

У меня есть макрос, который будет загружать данные из нескольких рабочих книг в базу данных.Таблица будет отличаться в зависимости от того, какой тип значения / данных вставляется.У меня есть таблицы.Я могу просто вставить значение в первую таблицу, но когда дело доходит до второй таблицы, значение не вставляется, и я использую тот же код, что и первый, но с другими переменными.

Set conn = CreateObject("ADODB.Connection")
Dim connection, insertData As String

connection = "Provider=; Database= Database; Integrated Security=SSPI;"

'open connection
 conn.Open connection

insertData = "INSERT INTO Table2 ([Name], [AScore], [BScore], [CScore], [DScore], [EScore], [FScore]) " & _
             " VALUES ('" & _
             SummWb.Sheets("Sheet 2").Cells(13, "I").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(11, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(6, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(7, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(3, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(9, "J").Value & "' , '" & _
             SummWb.Sheets("Sheet 2").Cells(10, "J").Value & "')"
conn.Execute insertData
conn.close

Я попытался проверить, не является ли мой код неправильным, и я также попытался удалить таблицу и создать новую таблицу, а также использовать новую книгу для проверки кода, но результат остается тем же.Не могли бы вы помочь увидеть, что не так с моим кодом?Я использую SQL Server Management Studio.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...