34 lines
581 B
Text
34 lines
581 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
cmbCharset.List = modMain.$Connection.MySQL.Charsets
|
||
|
|
cmbCharset.Index = cmbCharset.Find("utf8")
|
||
|
|
Me.Center()
|
||
|
|
Catch
|
||
|
|
modMain.Error()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCancel_Click()
|
||
|
|
|
||
|
|
Me.Close()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCreate_Click()
|
||
|
|
|
||
|
|
modMain.$Connection.MySQL.DataBase.Add(txtNombre.Text, cmbCharset.Text, cmbCollations.Text)
|
||
|
|
modMain.$Connection.MySQL.Use(txtNombre.Text)
|
||
|
|
Me.Close()
|
||
|
|
Catch
|
||
|
|
modMain.Error()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub cmbCharset_Click()
|
||
|
|
|
||
|
|
cmbCollations.List = modMain.$Connection.MySQL.CharsetCollations(cmbCharset.Text)
|
||
|
|
|
||
|
|
End
|