[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
This commit is contained in:
parent
68bdf71d6f
commit
98046e8d15
3 changed files with 1379 additions and 1377 deletions
|
@ -1282,13 +1282,13 @@ Public Sub btnNewTable_Click()
|
||||||
If CheckCurrent() Then Return
|
If CheckCurrent() Then Return
|
||||||
|
|
||||||
If $hConn.Type = "mysql" Then
|
If $hConn.Type = "mysql" Then
|
||||||
aType = ["MyISAM", "MERGE", "HEAP", "InnoDB", "BDB", "ISAM"]
|
aType = ["MyISAM", "MERGE", "MEMORY", "InnoDB", "BDB", "ISAM", "ARCHIVE"]
|
||||||
Endif
|
Endif
|
||||||
|
|
||||||
If FNewTable.Run($hConn, "", "InnoDB", aType) Then Return
|
If FNewTable.Run($hConn, "", "InnoDB", aType) Then Return
|
||||||
sName = FNewTable.TableName
|
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.Add("T" & sName, sName, Picture["img/16/table.png"])
|
||||||
'lvwTable["T" & sName].Selected = True
|
'lvwTable["T" & sName].Selected = True
|
||||||
|
|
|
@ -61,8 +61,8 @@ Public Sub btnOK_Click()
|
||||||
Return
|
Return
|
||||||
Endif
|
Endif
|
||||||
|
|
||||||
If TableName Then TableType = cmbType.Text
|
|
||||||
TableName = sName
|
TableName = sName
|
||||||
|
If TableName Then TableType = cmbType.Text
|
||||||
|
|
||||||
Me.Close(True)
|
Me.Close(True)
|
||||||
|
|
||||||
|
|
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue