AMSSpecialist

rafaxplayer escribió: ↑

03 Ago 2011 21:54

Buenas compañeros , aqui os dejo este video de introduccion ala implementacion que lleva AMS de Mysqlite , usando una base de datos gratuita de [link]db4free.net[/link] y como proyecto... una agenda de contactos . espero que os sirva de mucha ayuda y cualquier cosa , ya sabéis... aquí andamos

HIDE: ON

Hidebb Message Hidden Description

Code source del video:

On StartUp:

MySQL = luasql.mysql();
MySQLConnection, err = MySQL:connect('mysqldatabaseraf', 'rafaxplayer', 'amsspecialist', 'db4free.net', '3306');
if not MySQLConnection and err then
   Dialog.Message("error",err);
else
	Dialog.Message("Ok","conexion establecida");
end

On Show de la pagina:

MySQLCursor = MySQLConnection:execute("SELECT * From Agenda")
for i = 1, MySQLCursor:numrows() do
   local ID,Nombre = MySQLCursor:fetch();
   ListBox.AddItem("ListBox1", Nombre, ID);

end
ListBox.SelectItem("ListBox1", 1);
MySQLCursor:close()

new=false;

On Select del listBox:

local nSel = ListBox.GetSelected("ListBox1")
if nSel then
nID = ListBox.GetItemData("ListBox1",nSel[1]);

	MySQLCursor = MySQLConnection:execute("SELECT * From Agenda Where ID =".. nID .."")
	local ID,Nombre,Apellidos,Email,Telefono = MySQLCursor:fetch();
   	Input.SetText("Nombre", Nombre)
	Input.SetText("Apellidos", Apellidos)
	Input.SetText("Email", Email)
	Input.SetText("Telefono", Telefono)
	MySQLCursor:close()
end
new=false;

On Click Boton "Nuevo":

Input.SetText("Apellidos","");
Input.SetText("Email", "");
Input.SetText("Nombre", "");
Input.SetText("Telefono", "");
new = true;

On Click Boton "Guardar":

local Nombre = Input.GetText("Nombre");
local Apellidos = Input.GetText("Apellidos");
local Email = Input.GetText("Email");
local Telefono = Input.GetText("Telefono");
if Nombre ~= "" then
	if new then

		MySQLConnection:execute("INSERT INTO Agenda (ID, Nombre, Apellidos, Email, Telefono) VALUES (NULL, '"..Nombre.."', '"..Apellidos.."','"..Email.."', '"..Telefono.."')")

	else

		MySQLConnection:execute("UPDATE Agenda SET Nombre ='"..Nombre.."',Apellidos ='"..Apellidos.."',Email ='"..Email.."',Telefono ='"..Telefono.."' Where ID ="..nID)
	end
end

ListBox.DeleteItem("ListBox1",  LB_ALLITEMS);
MySQLCursor = MySQLConnection:execute("SELECT * From Agenda")
for i = 1, MySQLCursor:numrows() do
   local ID,Nombre = MySQLCursor:fetch();
    result = ListBox.AddItem("ListBox1", Nombre, ID);

end
MySQLCursor:close()