Хочу добавить строку в базу Firebird, на запросе выдает ошибку,
Код |
---|
Public Sub Insert()
'On Error Resume Next
Dim ADOcon As Variant
Set ADOconn = CreateObject("ADODB.Connection")
With Application
.ScreenUpdating = False
With ADOcon
.ConnectionString = "ODBC;DSN=Shelter;Driver=Firebird/InterBase(r) driver;Dbname=C:\SHELTER.FDB;CHARSET=NONE;;UID=SYSDBA;"
.Open
End With
With Workbooks(ActiveWorkbook.Name).ActiveSheet
ADOconn.Execute ("INSERT INTO GUESTS(ID) VALUES('1157')")
End With
ADOconn.Close
Set ADOconn = Nothing
.ScreenUpdating = True
End With
End Sub |
Запрос на чтение "SELECT GUESTS.ID, GUESTS.NAME FROM GUESTS GUESTS" проходит без ошибок.
Кто знает правильный синтаксис запроса c INSERT?