Hola a todos.
Estoy desarrollando una aplicación que me sirva como inventario de equipos. He creado una BD con SQLite3 y estoy usando gambas 2.21 en Debian Testing.
Soy nuevo en gambas y me pareció interesante tratar de crear esta aplicación en este entorno, pero me sucede lo siguiente:
Tengo un botón para eliminar 32 registros de la BD, sin embargo, cuando lo intento obtengo el error siguiente: "Too many arguments in DBControl.class".
Si dejo solamente 31 registros, este error desaparece-> (Si elimino el último campo, por ejemplo: TextBox24.Text, "xscf=&32", TextBox25.text)
¿Existe alguna manera de solucionar esto?
PUBLIC SUB ButtonEliminar_Click()
DIM VarResult AS Result
IF Message.Question("¿Desea eliminar el registro actual?", "Si", "No") = 1 THEN
VarResult = Conexion.Edit("equipos", "Hostname=&1", TextBox1.Text, "Serie=&2", TextBox2.Text, "Hostid=&3", TextBox3.Text, "Marca=&4", TextBox4.Text, "Modelo=&5", TextBox5.Text, "Ubicacion=&6", TextBox6.Text, "Vlan=&7", TextBox7.Text, "Proyecto=&8", TextBox8.Text, "Sistema_Operativo=&9", TextBox9.Text, "IP1=&10", TextBox10.Text, "IP2=&11", TextBox11.Text, "IP3=&12", TextBox12.Text, "IP4=&13", TextBox13.Text, "IP5=&14", TextBox14.Text, "IP6=&15", TextBox15.Text, "Rack=&16", TextBox16.Text, "ram=&17", TextBox18.Text, "swap=&18", TextBox20.Text, "ncpus=&19", TextBox21.Text, "tcpus=&20", TextBox22.Text, "iou=&21", TextBox27.Text, "iox=&22", TextBox28.Text, "dominio=&23", TextBox33.Text, "hds=&24", TextBox31.Text, "hbas=&25", TextBox32.Text, "iob=&26", TextBox19.Text, "mcpus=&27", TextBox23.Text, "ilo=&28", TextBox30.Text, "pci=&29", TextBox29.Text, "mp=&30", TextBox26.Text, "consola=&31", TextBox24.Text, "xscf=&32", TextBox25.tex)
VarResult["Hostname"] = TextBox1.Text
VarResult["Serie"] = TextBox2.Text
VarResult["Hostid"] = TextBox3.Text
VarResult["Marca"] = TextBox4.Text
VarResult["Modelo"] = TextBox5.Text
VarResult["Ubicacion"] = TextBox6.Text
VarResult["Vlan"] = TextBox7.Text
VarResult["Proyecto"] = TextBox8.Text
VarResult["Sistema_Operativo"] = TextBox9.Text
VarResult["IP1"] = TextBox10.Text
VarResult["IP2"] = TextBox11.Text
VarResult["IP3"] = TextBox12.Text
VarResult["IP4"] = TextBox13.Text
VarResult["IP5"] = TextBox14.Text
VarResult["IP6"] = TextBox15.Text
VarResult["Rack"] = TextBox16.Text
VarResult["ram"] = TextBox18.Text
VarResult["iob"] = TextBox19.Text
VarResult["swap"] = TextBox20.Text
VarResult["ncpus"] = TextBox21.Text
VarResult["tcpus"] = TextBox22.Text
VarResult["mcpus"] = TextBox23.Text
VarResult["consola"] = TextBox24.Text
VarResult["xscf"] = TextBox25.Text
VarResult["mp"] = TextBox26.Text
VarResult["iou"] = TextBox27.Text
VarResult["iox"] = TextBox28.Text
VarResult["pci"] = TextBox29.Text
VarResult["ilo"] = TextBox30.Text
VarResult["hds"] = TextBox31.Text
VarResult["hbas"] = TextBox32.Text
VarResult["dominio"] = TextBox33.Text
VarResult.Delete
Resultado = Conexion.Exec("Select * from equipos")
IF ERROR THEN
Message.Error("No se pudo eliminar el registro.")
ELSE
Message.Info("El registro ha sido eliminado.")
MuestraCampos
END IF
END IF
END