[DEVELOPMENT ENVIRONMENT]

* BUG: Creating MySQL tables works now.
* NEW: Use the 'MEMORY' MySQL table engine instead of 'HEAP'.

[GB.DB.MYSQL]
* NEW: Replace 'MEMORY' table engine by 'HEAP' when MySQL version is lower
  than 4.1.


git-svn-id: svn://localhost/gambas/trunk@3805 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/src/gambas3/.src/Editor/Connection/FConnectionEditor.class

@@ -1282,13 +1282,13 @@ Public Sub btnNewTable_Click()
   If CheckCurrent() Then Return
   
   If $hConn.Type = "mysql" Then
-    aType = ["MyISAM", "MERGE", "HEAP", "InnoDB", "BDB", "ISAM"]
+    aType = ["MyISAM", "MERGE", "MEMORY", "InnoDB", "BDB", "ISAM", "ARCHIVE"]
   Endif
 
   If FNewTable.Run($hConn, "", "InnoDB", aType) Then Return
   sName = FNewTable.TableName
 
-  If MConnection.CreateTable($hConn, sName, FNewTable.Type) Then Return
+  If MConnection.CreateTable($hConn, sName, FNewTable.TableType) Then Return
   
   lvwTable.Add("T" & sName, sName, Picture["img/16/table.png"])
   'lvwTable["T" & sName].Selected = True

app/src/gambas3/.src/Editor/Connection/FNewTable.class

@@ -61,8 +61,8 @@ Public Sub btnOK_Click()
     Return
   Endif
 
-  If TableName Then TableType = cmbType.Text
   TableName = sName
+  If TableName Then TableType = cmbType.Text
 
   Me.Close(True)