Пытается использовать переменные в качестве значений vba для sql

Dim connection As New adodb.connection Dim sql As String Dim years As Integer years = 2011 

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

 sql = "insert into crimeData(reportYear) values(2011)" connection.Execute sql 

Заметьте, что я жестко запрограммирован в этом году. Теперь, если я попробую:

 sql = "insert into crimeData(reportYear) values(years)" connection.Execute sql 

Подставляя имя переменной в качестве значения, я получаю ошибку: No value given for one or more required parameters

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

Если у вас есть более сложная потребность в конкатенации SQL, вы можете воспользоваться этой функцией:

 ' Converts a value of any type to its string representation. ' The function can be concatenated into an SQL expression as is ' without any delimiters or leading/trailing white-space. ' ' Examples: ' SQL = "Select * From TableTest Where [Amount]>" & CSql(12.5) & "And [DueDate]<" & CSql(Date) & "" ' SQL -> Select * From TableTest Where [Amount]> 12.5 And [DueDate]< #2016/01/30 00:00:00# ' ' SQL = "Insert Into TableTest ( [Street] ) Values (" & CSql(" ") & ")" ' SQL -> Insert Into TableTest ( [Street] ) Values ( Null ) ' ' Trims text variables for leading/trailing Space and secures single quotes. ' Replaces zero length strings with Null. ' Formats date/time variables as safe string expressions. ' Uses Str to format decimal values to string expressions. ' Returns Null for values that cannot be expressed with a string expression. ' ' 2016-01-30. Gustav Brock, Cactus Data ApS, CPH. ' Public Function CSql( _ ByVal Value As Variant) _ As String Const vbLongLong As Integer = 20 Const SqlNull As String = " Null" Dim Sql As String Dim LongLong As Integer #If Win32 Then LongLong = vbLongLong #End If #If Win64 Then LongLong = VBA.vbLongLong #End If Select Case VarType(Value) Case vbEmpty ' 0 Empty (uninitialized). Sql = SqlNull Case vbNull ' 1 Null (no valid data). Sql = SqlNull Case vbInteger ' 2 Integer. Sql = Str(Value) Case vbLong ' 3 Long integer. Sql = Str(Value) Case vbSingle ' 4 Single-precision floating-point number. Sql = Str(Value) Case vbDouble ' 5 Double-precision floating-point number. Sql = Str(Value) Case vbCurrency ' 6 Currency. Sql = Str(Value) Case vbDate ' 7 Date. Sql = Format(Value, " \#yyyy\/mm\/dd hh\:nn\:ss\#") Case vbString ' 8 String. Sql = Replace(Trim(Value), "'", "''") If Sql = "" Then Sql = SqlNull Else Sql = " '" & Sql & "'" End If Case vbObject ' 9 Object. Sql = SqlNull Case vbError ' 10 Error. Sql = SqlNull Case vbBoolean ' 11 Boolean. Sql = Str(Abs(Value)) Case vbVariant ' 12 Variant (used only with arrays of variants). Sql = SqlNull Case vbDataObject ' 13 A data access object. Sql = SqlNull Case vbDecimal ' 14 Decimal. Sql = Str(Value) Case vbByte ' 17 Byte. Sql = Str(Value) Case LongLong ' 20 LongLong integer (Valid on 64-bit platforms only). Sql = Str(Value) Case vbUserDefinedType ' 36 Variants that contain user-defined types. Sql = SqlNull Case vbArray ' 8192 Array. Sql = SqlNull Case Else ' Should not happen. Sql = SqlNull End Select CSql = Sql & " " End Function 
  • Как использовать параметры в VBA в разных контекстах Microsoft Access?
  • Копирование из одной книги и вставка в другую
  • Как добавить VBA в MS Office?
  • Какова функция FormulaR1C1?
  • Выполнить панель состояния Excel?
  • Захват выходного значения из команды оболочки в VBA?
  • Как объединить строки в столбце в одну ячейку в excel?
  • Быстрый метод сравнения из 2 столбцов
  • VBA Macro для сравнения всех ячеек двух файлов Excel
  • Как использовать регулярные выражения (регулярное выражение) в Microsoft Excel как внутри ячейки, так и в цикле
  • Возвращает значения RGB из Range.Interior.Color (или любого другого свойства цвета)
  • Давайте будем гением компьютера.