[Gambas-user] indexes in database

[javier romero]

I need to create a table named "Tabla010" in this table i need to indexed by name, I have this in my proyect:


WITH Mdb
       .HCliente=.MysqlDB.Tables.Add(nombre)
       .HCliente.Fields.Add("010ruc", gb.String, 11,0)
       .HCliente.Fields.Add("010nom", gb.String, 45)
       .Hcliente.Fields.Add("010dir", gb.String, 45)
       .Hcliente.Fields.Add("010loc", gb.String, 20)
       .Hcliente.Fields.Add("010te1", gb.String, 7, 0)
       .Hcliente.Fields.Add("010te2", gb.String, 7, 0)
       .Hcliente.Fields.Add("010cor", gb.String, 30)
       .Hcliente.Fields.Add("010www", gb.String, 30)
       .Hcliente.Fields.Add("010fac", gb.String, 1)
       .Hcliente.Fields.Add("010rhp", gb.string, 1)
       .Hcliente.Fields.Add("010con", gb.String, 45)
       .Hcliente.Fields.Add("010car", gb.String, 45)
       .Hcliente.Fields.Add("010tce", gb.String, 1, 0)
       .Hcliente.Fields.Add("010cel", gb.String, 8, 0)
       .Hcliente.Fields.Add("010nex", gb.String, 8, 0)
       .Hcliente.Fields.Add("010cop", gb.String, 30)
       .Hcliente.Fields.Add("010pdt", gb.String, 14)
       .Hcliente.Fields.Add("010usu", gb.String, 8)
       .Hcliente.Fields.Add("010cla", gb.String, 9)
       .Hcliente.PrimaryKey=["010ruc"]
       .Hcliente.Indexes.Add("Alt010_1", "010nom", FALSE)
       .HCliente.Update  
  END WITH

When run an error sent me and says "Index already exist: Tabla010.Alt010_1" Why if its a new Table?, when i comment the line
".Hcliente.Indexes.Add("Alt010_1", "010nom", FALSE)" the Table is created ok.

Thanks
Javier
_________________________________________________________________
Sé el primero de tu grupo que ve el futiro de Hotmail: prueba la versión beta de Windows Live Mail
http://ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d