Code: Select all
Protected SqlStmt.s = "INSERT INTO Registration(FirstName, LastName, Company, RegistrationNumber, TrialStartDate, RegistrationDate, VersionInfo) VALUES(?, ?, ?, ?, ?, ?, ?)"
Protected DbResult.q
SetDatabaseString(DbCnn::Cnn, 0, "Unregistered")
SetDatabaseString(DbCnn::Cnn, 1, "Unregistered")
SetDatabaseString(DbCnn::Cnn, 2, "Unregistered")
SetDatabaseString(DbCnn::Cnn, 3, "Unregistered")
SetDatabaseQuad(DbCnn::Cnn, 4, Date())
SetDatabaseQuad(DbCnn::Cnn, 5, 0)
SetDatabaseString(DbCnn::Cnn, 6, "V0.1.0")
DbResult = DatabaseUpdate(DbCnn::Cnn, SqlStmt)
If DbResult <= 0
Debug DatabaseError()
EndIf

