[Video]Introducccion Mysqlite en AMS

Puedes encontrar todo tipo de tutoriales y manuales referentes a AMS
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 ;)

Imagen

HIDE: ON
Hidebb Message Hidden Description


Imagen

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()
Esto va para BookMarks! :D
esta bueno el video, gracias
gracias por este gran tutorial rafaxplayer! directo a favoritos.
;))
rafaxgay ;) esta chulo!
gracias por el tuto!
rafaxgay lol
thanks alot
thanks
Muchas gracias, probare este método, saludos a todos los amigos de este foro
Muy bueno
Imagen
Gracias
Muy bueno tengo que descargarlo
Thank you
gracias
gracias por toda la ayuda esta muy bueno el tema
Gracias espero que sea lo que nececito
riky no hace falta que hagas cita de todo el post ;)