this morning as i was going through ABMaterial Helper i came across ABMGenerator and clicked on generate code button at the bottom of the page.I have studied the codes and I have created code module and called it DBM.
Sub ABMGenSQLInsert(SQL As SQL, Query As String, Args As List) As Int
Dim res As Int
Try
Select Case DatabaseType
Case 0
SQL.ExecNonQuery2(Query, Args)
res = ABMGenSQLSelectSingleResult(SQL, "SELECT last_insert_rowid()", Null)
Case 1
SQL.ExecNonQuery2(Query, Args)
res = ABMGenSQLSelectSingleResult(SQL, "SELECT LAST_INSERT_ID()", Null)
Case 2
Dim ABSQL As ABSQLExt
res = ABSQL.ExecNonQuery3(SQL, Query, Args)
End Select
Catch
Log(LastException)
res = DBERROR
End Try
Return res
End Sub
question in the above subroutine "ABSQLExt" am being informed it is missing as library
Sub ABMGenSQLInsert(SQL As SQL, Query As String, Args As List) As Int
Dim res As Int
Try
Select Case DatabaseType
Case 0
SQL.ExecNonQuery2(Query, Args)
res = ABMGenSQLSelectSingleResult(SQL, "SELECT last_insert_rowid()", Null)
Case 1
SQL.ExecNonQuery2(Query, Args)
res = ABMGenSQLSelectSingleResult(SQL, "SELECT LAST_INSERT_ID()", Null)
Case 2
Dim ABSQL As ABSQLExt
res = ABSQL.ExecNonQuery3(SQL, Query, Args)
End Select
Catch
Log(LastException)
res = DBERROR
End Try
Return res
End Sub
question in the above subroutine "ABSQLExt" am being informed it is missing as library