Sto cercando di utilizzare, per la prima volta, la tecnica dei PreparedStatement con Database SQL Server.
Guardando un po’ nella guida in linea e un po’ nell’esempio, ho scritto questo codice
Dim SQL As String
Dim prepStm As MSSQLServerPreparedStatement
SQL = "INSERT INTO ORDFOR "
SQL = SQL + "(OF_NumOrd, OF_Agent, OF_Dealer, OF_DatOrd, OF_DatCon, OF_NumFat, OF_DatFat, "
SQL = SQL + " OF_ImpFat, OF_CosLog, OF_DatSca, OF_DatPag) VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) "
prepStm = DB.Prepare(SQL)
prepStm.BindType(0, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_INT)
prepStm.Bind(0, OF_NumOrd)
prepStm.BindType(1, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_STRING)
prepStm.Bind(1, OF_Agent)
prepStm.BindType(2, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_STRING)
prepStm.Bind(2, OF_Dealer)
prepStm.BindType(3, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE)
prepStm.Bind(3, OF_DatOrd)
prepStm.BindType(4, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE)
prepStm.Bind(4, OF_DatCon)
prepStm.BindType(5, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_INT)
prepStm.Bind(5, OF_NumFat)
prepStm.BindType(6, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE)
prepStm.Bind(6, OF_DatFat)
prepStm.BindType(7, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DOUBLE)
prepStm.Bind(7, OF_ImpFat)
prepStm.BindType(8, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DOUBLE)
prepStm.Bind(8, OF_CosLog)
prepStm.BindType(9, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE)
prepStm.Bind(9, OF_DatSca)
prepStm.BindType(10, MSSQLServerPreparedStatement.MSSQLSERVER_TYPE_DATE)
prepStm.Bind(10, OF_DatPag)
prepStm.SQLExecute
Su SQLExecute il programma si blocca e non si schioda più: cosa sto sbagliando?
Grazie.
Nedi