SQlite ErrorCode 1 UPDATE Prepaired Statement

General
1

Hello

I keep beating my head against solving this “Error Code 1 Unable to prepare statement” with my SQlite UPDATE Prepared statement. I am Updating a 30 column Table named SclArpFmla. I’ve been avoiding writing it all out here but I shortened it a little bit to keep the main idea. Can anybody see what I’m doing wrong?

Dim NtCnt As Integer
NtCnt = 7

Dim Abbrev As String
Abbrev = Mid(winCreateScl.txtCreateSclNm.Text, 1, 12)

Dim RowId As Integer
RowID = winCreateScl.ppmSclArpTyp.RowTag(winCreateScl.ppmSclArpTyp.ListIndex).IntegerValue

Dim sql As String
sql = "UPDATE SclArpFmla SET FmlaName = ?, ChartFmlaNm = ?, F_ 1 = ?, F_b2 = ?, F_2 = ?, F_b3 = ?, F_3 = ?, F_4 = ?, F_b5 = ?, F_5 = ?, F_b6 = ?, F_6 = ?, F_b7 = ?, F_7 = ?, F_b9 = ?, F_9 = ?, F_shp9 = ?, F_b11 = ?, F_11 = ?, F_shp11 = ?, F_b13 = ?, F_13 = ?, GroupType = ?, XNote = ?, sF_b3 = ?, sF_b5 = ?, sF_b6 = ?, sF_6 = ?, sF_b7 = ? WHERE ID = ?"

Dim ps As SQLitePreparedStatement = db.Prepare(sql)

ps.BindType(0, SQLitePreparedStatement.SQLITE_TEXT)   'FmlaName
ps.Bind(0, winCreateScl.txtCreateSclNm.Text)   'FmlaName

ps.BindType(1, SQLitePreparedStatement.SQLITE_TEXT)  'ChartFmlaNm
ps.Bind(1, Abbrev) 

ps.BindType(2, SQLitePreparedStatement.SQLITE_INTEGER)  'F_1
ps.Bind(2, 1) 

ps.BindType(3, SQLitePreparedStatement.SQLITE_INTEGER)  'F_b2  
ps.Bind(3, 1)

ps.BindType(4, SQLitePreparedStatement.SQLITE_INTEGER)  'F_2  
ps.Bind(4, 1) 

ps.BindType(5, SQLitePreparedStatement.SQLITE_INTEGER)  'F_b3
ps.Bind(5, 1)

ps.BindType(6, SQLitePreparedStatement.SQLITE_INTEGER)  'F_3
ps.Bind(6, 1)

ps.BindType(7, SQLitePreparedStatement.SQLITE_INTEGER)  'F_4
ps.Bind(7, 1)

ps.BindType(8, SQLitePreparedStatement.SQLITE_INTEGER)  'F_b5
ps.Bind(8, 1)

ps.BindType(9, SQLitePreparedStatement.SQLITE_INTEGER)  'F_5
ps.Bind(9, 1)

ps.BindType(10, SQLitePreparedStatement.SQLITE_INTEGER)  'F_b6
ps.Bind(10, 1)

ps.BindType(11, SQLitePreparedStatement.SQLITE_INTEGER) 'F_6
ps.Bind(11, 1)

ps.BindType(12, SQLitePreparedStatement.SQLITE_INTEGER) 'F_b7
ps.Bind(12, 1)

ps.BindType(13, SQLitePreparedStatement.SQLITE_INTEGER) 'F_7
ps.Bind(13, 1)

ps.BindType(14, SQLitePreparedStatement.SQLITE_INTEGER) 'F_b9
ps.Bind(14, 1)

ps.BindType(15, SQLitePreparedStatement.SQLITE_INTEGER) 'F_9
ps.Bind(15, 1)

ps.BindType(16, SQLitePreparedStatement.SQLITE_INTEGER) 'F_shp9
ps.Bind(16, 1)

ps.BindType(17, SQLitePreparedStatement.SQLITE_INTEGER) 'F_b11
ps.Bind(17, 1)

ps.BindType(18, SQLitePreparedStatement.SQLITE_INTEGER) 'F_11
ps.Bind(18, 1)

ps.BindType(19, SQLitePreparedStatement.SQLITE_INTEGER) 'F_shp11
ps.Bind(19, 1)

ps.BindType(20, SQLitePreparedStatement.SQLITE_INTEGER) 'F_b13
ps.Bind(20, 1)

ps.BindType(21, SQLitePreparedStatement.SQLITE_INTEGER) 'F_13
ps.Bind(21, 1)

ps.BindType(22, SQLitePreparedStatement.SQLITE_TEXT)  	'GroupType
ps.Bind(22, winCreateScl.lblGroupType.Text)      		

ps.BindType(23, SQLitePreparedStatement.SQLITE_INTEGER) 'XNote
ps.Bind(23, NtCnt) 

ps.BindType(24, SQLitePreparedStatement.SQLITE_TEXT) 'sF_b3
ps.Bind(24, "b3")                                    

ps.BindType(25, SQLitePreparedStatement.SQLITE_TEXT) 'sF_b5
ps.Bind(25, "b5")

ps.BindType(26, SQLitePreparedStatement.SQLITE_TEXT) 'sF_b6
ps.Bind(26, "b6")

ps.BindType(27, SQLitePreparedStatement.SQLITE_TEXT) 'sF_6
ps.Bind(27, "6")

ps.BindType(28, SQLitePreparedStatement.SQLITE_TEXT) 'sF_b7
ps.Bind(28, "b7")

ps.BindType(29, SQLitePreparedStatement.SQLITE_INTEGER) 'ID
ps.Bind(29, RowID)                                      

ps.SQLExecute()

    // CHECK FOR DATABASE ERROR
    If db.Error Then
      MsgBox("Error: " + Str(db.ErrorCode) + " - " + db.ErrorMessage)
      Return
    End If
2

typo near F_1?
looks like an extraneous space ?

3

Seems he took his ball and went home

4

Thank you Norman I just caught it right after I put it in here. The font in my Xojo Editor made it little harder to see it but it was right in font of my nose.