Code: Select all
--connect to database
put revOpenDatabase ("mysql","www.xxx.com","tableName","userName","password") into tDatabaseID
--create the table
put vBdRoom["table"] into tTableName
put "CREATE TABLE" && tTableName && "(id int(11), type int(11), pos int(11), name char(50), xdays int(11), last date, user1 int(11), user2 int(11), user3 int(11), user4 int(11), user5 int(11), user6 int(11), user7 int(11), user8 int(11), user9 int(11), user10 int(11))" into tSQL
revExecuteSQL tDatabaseID, tSQL
--insert the records
put vId into tId
put vBdRoomType into tType
put vBdRoom["pos"] into tPos
put vBdRoom["name"] into tName
put vBdRoom["xdays"] into tXdays
put tMyFormattedDate into tLast
put vBdRoom["user1"] into tUser1
put vBdRoom["user2"] into tUser2
put vBdRoom["user3"] into tUser3
put vBdRoom["user4"] into tUser4
put vBdRoom["user5"] into tUser5
put vBdRoom["user6"] into tUser6
put vBdRoom["user7"] into tUser7
put vBdRoom["user8"] into tUser8
put vBdRoom["user9"] into tUser9
put vBdRoom["user10"] into tUser10
put "id,type,pos,name,xdays,last,user1,user2,user3,user4,user5,user6,user7,user8,user9,user10" into tFields
put "INSERT INTO" && tTableName && "(" & tFields & ") VALUES (" & vId & ", " & tType & ", " & tPos & ", :4, :5, :6, :7, :8, :9, :10, :11, :12, :13, :14, :15, :16 );" into tSQL
put tSQL
revExecuteSQL tDatabaseID, tSQL, "tId", "tType", "tPos", "tName", "tXdays", "tLast", "tUser1","tUser2", "tUser3", "tUser4", "tUser5", "tUser6", "tUser7", "tUser8", "tUser9", "tUser10"