MBS Real Studio Plugin Tutorial Videos

The source code of our web application

Class App
Inherits WebApplication
  // Properties
  Dim db As REALSQLDatabase
  
  
  
  // Event implementations
  Sub Open()
    dim appfolder as folderitem = GetFolderItem("")
    dim databaseFile as folderitem = appfolder.parent.child("comments.db")
    dim r as new REALSQLDatabase
    
    r.DatabaseFile = DatabaseFile
    
    if DatabaseFile.Exists then
      if not r.Connect then
        print "Failed to open database: "+r.ErrorMessage
        quit(1)
      end if
      
    else
      
      if not r.CreateDatabaseFile then
        print "Failed to create database: "+r.ErrorMessage
        quit(2)
      end if
      
      r.SQLExecute "CREATE TABLE Comments (Name VARCHAR, Email VARCHAR, Country VARCHAR, Content VARCHAR, Date DATETIME)"
      
      if r.Error then
        print "Failed to create table: "+r.ErrorMessage
        quit(3)
      end if
    end if
    
    // everything okay:
    
    db = r
    
  End Sub
End Class


 

All movies

Links
MBS Real Studio PDF Plugins - Nachhilfe in Nickenich

• Sitemap
• Feedback / Questions
• Links
• Kontakt / Impressum
• Contact us