Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

Wysłany: 2016-07-05, 23:52


Loop

Inspektor






Wiek: 27
Na forum: 4289 dni
Posty: 311
Nick w MP: Inspektor

Piwa: 201

Respekt: 130
Respekt: 130

Sprawdz

addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
    for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
    if getElementData(v"prywatne"then
    local wybierz dbQuery(conn"* SELECT owner FROM OP_Vehicles WHERE owner = ?"getElementData(v"owner"))
    local result dbPoll(wybierz, -1)
        local pojazdID getElementModel )
        local c1,c2,c3,c4 getVehicleColor )
        local x,y,getElementPosition )
        local rotxrotyrotz getElementRotation )
        local id getElementData(v"vehid")
        local przebieg getElementData(v"przebieg")
        local paliwo getElementData(v"paliwo")
        local bak getElementData(v"bak")
        local t0 getVehicleUpgradeOnSlot(v0)
        local t1 getVehicleUpgradeOnSlot(v1)
        local t2 getVehicleUpgradeOnSlot(v2)
        local t3 getVehicleUpgradeOnSlot(v3)
        local t4 getVehicleUpgradeOnSlot(v4)
        local t5 getVehicleUpgradeOnSlot(v5)
        local t6 getVehicleUpgradeOnSlot(v6)
        local t7 getVehicleUpgradeOnSlot(v7)
        local t8 getVehicleUpgradeOnSlot(v8)
        local t9 getVehicleUpgradeOnSlot(v9)
        local t13 getVehicleUpgradeOnSlot(v13)
        local t14 getVehicleUpgradeOnSlot(v14)
        local t15 getVehicleUpgradeOnSlot(v15)
        local t16 getVehicleUpgradeOnSlot(v16)
        local felgi getVehicleUpgradeOnSlot(v12)
        local paintjob getVehiclePaintjob(v)
        local hrhghb getVehicleHeadLightColor(v)
        local tablica getVehiclePlateText(v)
        local wariant1wariant2 getVehicleVariant(v)
        local vmax getVehicleHandling(v).maxVelocity
        local acceler getVehicleHandling(v).engineAcceleration
        if #result>1 then
        local update dbQuery conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', id = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE owner = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4idprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelergetElementData(v"owner"))
        outputChatBox("*Zaktualizowano pojazdy w bazie danych !"plr255255255)
        else
         dbQuery conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, id, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4idgetElementData(v"owner"), przebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
         outputChatBox("*Dodano auta do bazy danych !"plr255255255)
         end
    end
    end
end


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-05, 23:54


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

Jak ju? to ">= 1".

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 09:54


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Loop, Zrobi?es troch? liter?wek ale poprawi?em lecz dalej nie dzia?a, a w DB3 nic nie wywala. Tak jak wczeniej nie aktualizuje pojazd?w tylko nowe dodaje do bazy i jak kupie kolejne auto i b?d? dwa to jak zapisze pisze ?e zaktualizowano ale gdy zrestartuje skrypt to te drugie auto znika a te pierwsze powraca do pozycji z tego pierwszego zapisu

addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
    for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
    if getElementData(v"prywatne"then
    local wybierz dbQuery(conn"SELECT owner FROM OP_Vehicles WHERE owner = ?"getElementData(v"owner"))
    local result dbPoll(wybierz, -1)
        local pojazdID getElementModel )
        local c1,c2,c3,c4 getVehicleColor )
        local x,y,getElementPosition )
        local rotxrotyrotz getElementRotation )
        local id getElementData(v"vehid")
        local przebieg getElementData(v"przebieg")
        local paliwo getElementData(v"paliwo")
        local bak getElementData(v"bak")
        local t0 getVehicleUpgradeOnSlot(v0)
        local t1 getVehicleUpgradeOnSlot(v1)
        local t2 getVehicleUpgradeOnSlot(v2)
        local t3 getVehicleUpgradeOnSlot(v3)
        local t4 getVehicleUpgradeOnSlot(v4)
        local t5 getVehicleUpgradeOnSlot(v5)
        local t6 getVehicleUpgradeOnSlot(v6)
        local t7 getVehicleUpgradeOnSlot(v7)
        local t8 getVehicleUpgradeOnSlot(v8)
        local t9 getVehicleUpgradeOnSlot(v9)
        local t13 getVehicleUpgradeOnSlot(v13)
        local t14 getVehicleUpgradeOnSlot(v14)
        local t15 getVehicleUpgradeOnSlot(v15)
        local t16 getVehicleUpgradeOnSlot(v16)
        local felgi getVehicleUpgradeOnSlot(v12)
        local paintjob getVehiclePaintjob(v)
        local hrhghb getVehicleHeadLightColor(v)
        local tablica getVehiclePlateText(v)
        local wariant1wariant2 getVehicleVariant(v)
        local vmax getVehicleHandling(v).maxVelocity
        local acceler getVehicleHandling(v).engineAcceleration
        if #result >= 1 then
        local update dbQuery conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', id = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE owner = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4idprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelergetElementData(v"owner"))
        outputChatBox("*Zaktualizowano pojazdy w bazie danych !"plr255255255)
        else
         dbQuery conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, id, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4idgetElementData(v"owner"), przebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
         outputChatBox("*Dodano auta do bazy danych !"plr255255255)
         end
    end
    end
end
end)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 11:20


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

Daj mi ca?? zawarto?? skryptu. Do tej tabeli trzeba doda? warto?? ID i robi? wszystkie operacje po ID samochodu, a nie po ownerze.

Luki co do tego co napisa?e? odno?nie dbQuery. Owszem, mo?esz tego u?ywa? do funkcji modyfikuj?cych, ale po co? Zosta?a stworzona funkcja dbExec, kt?ra jest przeznaczona w?a?nie do tego. Mo?e i nic nie pisz?, ale w przyk?adach s? u?yte tylko zapytania modyfikuj?ce. Chodzi w tej funkcji o to, ?e ona nie zwraca rezultat?w ?adnych, dlatego jest ona optymalna.
Co do dbFree, mo?esz u?y?, ale po co? Jak INSERT, UPDATE, ALTER itp. nic nie zwraca. Jest to tylko niepotrzebne zu?ycie pami?ci przez serwer. Jak piszesz skrypt, powiniene? go pisa? w jak najbardziej optymalny spos?b, ?eby jego dzia?anie by?o jak najszybsze. :)

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 11:52


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Jacob, oto ca?y kod zapisu pojazd?w

local conn dbConnect "sqlite""db.db" )

addEventHandler "onResourceStart"resourceRoot, function (plr)
    if conn then
    plr source
        dbExec conn"CREATE TABLE IF NOT EXISTS OP_Vehicles(model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, id INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q dbQuery conn"SELECT * FROM OP_Vehicles")
        local result dbPoll q, -)
        if #result == 1 then
            for _,v in pairs result ) do
                local auto createVehicle v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor autov["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto"vehid"v["id"])
                setElementData (auto"owner"v["owner"])
                setElementData (auto"przebieg"v["przebieg"])
                setElementData (auto"paliwo"v["paliwo"])
                setElementData (auto"bak"v["bak"])
                for i0do
                addVehicleUpgrade(autov["t"..i..""])
                end
                for is 13,16 do
                addVehicleUpgrade(autov["t"..is..""])
                end
                setVehiclePaintjob(autov["paintjob"])
                setVehicleVariant(autov["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(autov["hr"], v["hg"], v["hb"])
                setVehiclePlateText(autov["tablica"])
                setVehicleHandling(auto"engineAcceleration"v["acceler"])
                setVehicleHandling(auto"maxVelocity"v["vmax"])
                setVehicleOverrideLights(auto1)
            end
        end
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
    for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
    if getElementData(v"prywatne"then
    local wybierz dbQuery(conn"SELECT owner FROM OP_Vehicles WHERE owner = ?"getElementData(v"owner"))
    local result dbPoll(wybierz, -1)
        local pojazdID getElementModel )
        local c1,c2,c3,c4 getVehicleColor )
        local x,y,getElementPosition )
        local rotxrotyrotz getElementRotation )
        local id getElementData(v"vehid")
        local przebieg getElementData(v"przebieg")
        local paliwo getElementData(v"paliwo")
        local bak getElementData(v"bak")
        local t0 getVehicleUpgradeOnSlot(v0)
        local t1 getVehicleUpgradeOnSlot(v1)
        local t2 getVehicleUpgradeOnSlot(v2)
        local t3 getVehicleUpgradeOnSlot(v3)
        local t4 getVehicleUpgradeOnSlot(v4)
        local t5 getVehicleUpgradeOnSlot(v5)
        local t6 getVehicleUpgradeOnSlot(v6)
        local t7 getVehicleUpgradeOnSlot(v7)
        local t8 getVehicleUpgradeOnSlot(v8)
        local t9 getVehicleUpgradeOnSlot(v9)
        local t13 getVehicleUpgradeOnSlot(v13)
        local t14 getVehicleUpgradeOnSlot(v14)
        local t15 getVehicleUpgradeOnSlot(v15)
        local t16 getVehicleUpgradeOnSlot(v16)
        local felgi getVehicleUpgradeOnSlot(v12)
        local paintjob getVehiclePaintjob(v)
        local hrhghb getVehicleHeadLightColor(v)
        local tablica getVehiclePlateText(v)
        local wariant1wariant2 getVehicleVariant(v)
        local vmax getVehicleHandling(v).maxVelocity
        local acceler getVehicleHandling(v).engineAcceleration
        if #result >= 1 then
        local update dbQuery conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', id = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE owner = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4idprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelergetElementData(v"owner"))
        outputChatBox("*Zaktualizowano pojazdy w bazie danych !"plr255255255)
        else
         dbQuery conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, id, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4idgetElementData(v"owner"), przebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
         outputChatBox("*Dodano auta do bazy danych !"plr255255255)
         end
    end
    end
end
end)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 12:20


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

Przy tworzeniu pojazd?w musisz im ustala? unikalne id.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 12:46


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

A powiesz jak zrobi? ?eby by?o unikalne?

A co do tego id to taki kod sklepa?em



local conn dbConnect "sqlite""db.db" )

addEventHandler "onResourceStart"resourceRoot, function (plr)
    if conn then
    plr source
        dbExec conn"CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q dbQuery conn"SELECT id FROM OP_Vehicles WHERE id = ?"getElementData(v"vehid"))
        local result dbPoll q, -)
        if #result == 1 then
            for _,v in pairs result ) do
                local auto createVehicle v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor autov["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto"vehid"v["id"])
                setElementData (auto"owner"v["owner"])
                setElementData (auto"przebieg"v["przebieg"])
                setElementData (auto"paliwo"v["paliwo"])
                setElementData (auto"bak"v["bak"])
                for i0do
                addVehicleUpgrade(autov["t"..i..""])
                end
                for is 13,16 do
                addVehicleUpgrade(autov["t"..is..""])
                end
                setVehiclePaintjob(autov["paintjob"])
                setVehicleVariant(autov["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(autov["hr"], v["hg"], v["hb"])
                setVehiclePlateText(autov["tablica"])
                setVehicleHandling(auto"engineAcceleration"v["acceler"])
                setVehicleHandling(auto"maxVelocity"v["vmax"])
                setVehicleOverrideLights(auto1)
            end
        end
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
    for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
    if getElementData(v"prywatne"then
    local wybierz dbQuery(conn"SELECT id FROM OP_Vehicles WHERE id = ?"getElementData(v"vehid"))
    local result dbPoll(wybierz, -1)
        local pojazdID getElementModel )
        local c1,c2,c3,c4 getVehicleColor )
        local x,y,getElementPosition )
        local rotxrotyrotz getElementRotation )
        local id getElementData(v"vehid")
        local przebieg getElementData(v"przebieg")
        local paliwo getElementData(v"paliwo")
        local bak getElementData(v"bak")
        local t0 getVehicleUpgradeOnSlot(v0)
        local t1 getVehicleUpgradeOnSlot(v1)
        local t2 getVehicleUpgradeOnSlot(v2)
        local t3 getVehicleUpgradeOnSlot(v3)
        local t4 getVehicleUpgradeOnSlot(v4)
        local t5 getVehicleUpgradeOnSlot(v5)
        local t6 getVehicleUpgradeOnSlot(v6)
        local t7 getVehicleUpgradeOnSlot(v7)
        local t8 getVehicleUpgradeOnSlot(v8)
        local t9 getVehicleUpgradeOnSlot(v9)
        local t13 getVehicleUpgradeOnSlot(v13)
        local t14 getVehicleUpgradeOnSlot(v14)
        local t15 getVehicleUpgradeOnSlot(v15)
        local t16 getVehicleUpgradeOnSlot(v16)
        local felgi getVehicleUpgradeOnSlot(v12)
        local paintjob getVehiclePaintjob(v)
        local hrhghb getVehicleHeadLightColor(v)
        local tablica getVehiclePlateText(v)
        local wariant1wariant2 getVehicleVariant(v)
        local vmax getVehicleHandling(v).maxVelocity
        local acceler getVehicleHandling(v).engineAcceleration
        if #result >= 1 then
        local update dbQuery conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', owner = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE id = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelergetElementData(v"vehid"))
        outputChatBox("*Zaktualizowano pojazdy w bazie danych !"plr255255255)
        else
         dbQuery conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, id, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4idgetElementData(v"owner"), przebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
         outputChatBox("*Dodano auta do bazy danych !"plr255255255)
         end
    end
    end
end
end)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 13:29


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

Ja bym da? kolumnie id argument AUTO_INCREMENT. Przy zapisie w ten spos?b ka?de auto b?dzie mia?o oddzielne ID. I na przyk?ad na element date przypisa? do ka?dego auta to ID, a p??niej odczytywa? i zapisywa? po nim.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 13:40


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Takie cos ? Teraz sprawdzi?em i nie dzia?a tylko zapisuje nowe auto ale jak jest jedno na serwerze bo jak s? dwa to niby pisze ze dodaje ale oba znikaja



local conn dbConnect "sqlite""db.db" )

addEventHandler "onResourceStart"resourceRoot, function (plr)
    if conn then
    plr source
        dbExec conn"CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER PRIMARY KEY AUTOINCREMENT, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q dbQuery conn"SELECT * FROM OP_Vehicles")
        local result dbPoll q, -)
        if #result == 1 then
            for _,v in pairs result ) do
                local auto createVehicle v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor autov["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto"vehid"v["id"])
                setElementData (auto"owner"v["owner"])
                setElementData (auto"przebieg"v["przebieg"])
                setElementData (auto"paliwo"v["paliwo"])
                setElementData (auto"bak"v["bak"])
                for i0do
                addVehicleUpgrade(autov["t"..i..""])
                end
                for is 13,16 do
                addVehicleUpgrade(autov["t"..is..""])
                end
                setVehiclePaintjob(autov["paintjob"])
                setVehicleVariant(autov["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(autov["hr"], v["hg"], v["hb"])
                setVehiclePlateText(autov["tablica"])
                setVehicleHandling(auto"engineAcceleration"v["acceler"])
                setVehicleHandling(auto"maxVelocity"v["vmax"])
                setVehicleOverrideLights(auto1)
            end
        end
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
    for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
    if getElementData(v"prywatne"then
    local wybierz dbQuery(conn"SELECT id FROM OP_Vehicles WHERE id = ?"getElementData(v"vehid"))
    local result dbPoll(wybierz, -1)
        local pojazdID getElementModel )
        local c1,c2,c3,c4 getVehicleColor )
        local x,y,getElementPosition )
        local rotxrotyrotz getElementRotation )
        local owner getElementData(v"owner")
        local id getElementData(v"vehid")
        local przebieg getElementData(v"przebieg")
        local paliwo getElementData(v"paliwo")
        local bak getElementData(v"bak")
        local t0 getVehicleUpgradeOnSlot(v0)
        local t1 getVehicleUpgradeOnSlot(v1)
        local t2 getVehicleUpgradeOnSlot(v2)
        local t3 getVehicleUpgradeOnSlot(v3)
        local t4 getVehicleUpgradeOnSlot(v4)
        local t5 getVehicleUpgradeOnSlot(v5)
        local t6 getVehicleUpgradeOnSlot(v6)
        local t7 getVehicleUpgradeOnSlot(v7)
        local t8 getVehicleUpgradeOnSlot(v8)
        local t9 getVehicleUpgradeOnSlot(v9)
        local t13 getVehicleUpgradeOnSlot(v13)
        local t14 getVehicleUpgradeOnSlot(v14)
        local t15 getVehicleUpgradeOnSlot(v15)
        local t16 getVehicleUpgradeOnSlot(v16)
        local felgi getVehicleUpgradeOnSlot(v12)
        local paintjob getVehiclePaintjob(v)
        local hrhghb getVehicleHeadLightColor(v)
        local tablica getVehiclePlateText(v)
        local wariant1wariant2 getVehicleVariant(v)
        local vmax getVehicleHandling(v).maxVelocity
        local acceler getVehicleHandling(v).engineAcceleration
        if #result >= 1 then
        local update dbQuery conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', owner = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE id = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelergetElementData(v"vehid"))
        outputChatBox("*Zaktualizowano pojazdy w bazie danych !"plr255255255)
        else
         dbQuery conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, id, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4idgetElementData(v"owner"), przebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
         outputChatBox("*Dodano auta do bazy danych !"plr255255255)
         end
    end
    end
end
end)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 13:57


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

Co? takiego.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 14:10


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

To co teraz zrobi?, bo mi si? wydaj? ?e problem tkwi w tym ?e powinno jakby po kolei sprawdza? auta i te auta wtedy po kolei zapisywa? lub nadpisywa? ?

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 14:19


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

local conn dbConnect "sqlite""db.db" )

addEventHandler "onResourceStart"resourceRoot, function ()
    if conn then
        dbExec conn"CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER PRIMARY KEY AUTOINCREMENT, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q dbQuery conn"SELECT * FROM OP_Vehicles")
        local result dbPoll q, -)
        if #result > 0 then
            for _,v in pairs result ) do
                local auto createVehicle v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor autov["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto"vehid"v["id"])
                setElementData (auto"owner"v["owner"])
                setElementData (auto"przebieg"v["przebieg"])
                setElementData (auto"paliwo"v["paliwo"])
                setElementData (auto"bak"v["bak"])
                for i0do
                addVehicleUpgrade(autov["t"..i..""])
                end
                for is 13,16 do
                addVehicleUpgrade(autov["t"..is..""])
                end
                setVehiclePaintjob(autov["paintjob"])
                setVehicleVariant(autov["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(autov["hr"], v["hg"], v["hb"])
                setVehiclePlateText(autov["tablica"])
                setVehicleHandling(auto"engineAcceleration"v["acceler"])
                setVehicleHandling(auto"maxVelocity"v["vmax"])
                setVehicleOverrideLights(auto1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
        for _,v in ipairs getElementsByType "vehicle"resourceRoot )) do
            if getElementData(v"prywatne"then
                local pojazdID getElementModel )
                local c1,c2,c3,c4 getVehicleColor )
                local x,y,getElementPosition )
                local rotxrotyrotz getElementRotation )
                local owner getElementData(v"owner")
                local przebieg getElementData(v"przebieg")
                local paliwo getElementData(v"paliwo")
                local bak getElementData(v"bak")
                local t0 getVehicleUpgradeOnSlot(v0)
                local t1 getVehicleUpgradeOnSlot(v1)
                local t2 getVehicleUpgradeOnSlot(v2)
                local t3 getVehicleUpgradeOnSlot(v3)
                local t4 getVehicleUpgradeOnSlot(v4)
                local t5 getVehicleUpgradeOnSlot(v5)
                local t6 getVehicleUpgradeOnSlot(v6)
                local t7 getVehicleUpgradeOnSlot(v7)
                local t8 getVehicleUpgradeOnSlot(v8)
                local t9 getVehicleUpgradeOnSlot(v9)
                local t13 getVehicleUpgradeOnSlot(v13)
                local t14 getVehicleUpgradeOnSlot(v14)
                local t15 getVehicleUpgradeOnSlot(v15)
                local t16 getVehicleUpgradeOnSlot(v16)
                local felgi getVehicleUpgradeOnSlot(v12)
                local paintjob getVehiclePaintjob(v)
                local hrhghb getVehicleHeadLightColor(v)
                local tablica getVehiclePlateText(v)
                local wariant1wariant2 getVehicleVariant(v)
                local vmax getVehicleHandling(v).maxVelocity
                local acceler getVehicleHandling(v).engineAcceleration
                local id getElementData(v"vehid")
                
                local wybierz dbQuery(conn"SELECT id FROM OP_Vehicles WHERE id = ?"id)
                local result dbPoll(wybierz, -1)
                if #result >= 1 then
                    local update dbExec conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', owner = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE id = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelerid)
                else
                    dbExec conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
                    
                end
                outputChatBox("* Zapis zako?czony!"plr255255255)
                dbFree(wybierz)
            end
        end
    end
end)

Sprawd? to.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 14:31


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Nie dzia?a i nic nie wywala w DB3. Teraz auto nawet te pierwszo zapisane znika.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 14:40


Jacob

Głupiomądry






Wiek: 28
Na forum: 5502 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3Respekt: 212,3

local conn dbConnect "sqlite""db.db" )

addEventHandler "onResourceStart"resourceRoot, function ()
    if conn then
        dbExec conn"CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER PRIMARY KEY AUTOINCREMENT, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q dbQuery conn"SELECT * FROM OP_Vehicles")
        local result dbPoll q, -)
        if #result > 0 then
            for _,v in pairs result ) do
                local auto createVehicle v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor autov["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto"vehid"v["id"])
                setElementData (auto"owner"v["owner"])
                setElementData (auto"przebieg"v["przebieg"])
                setElementData (auto"paliwo"v["paliwo"])
                setElementData (auto"bak"v["bak"])
                for i0do
                addVehicleUpgrade(autov["t"..i..""])
                end
                for is 13,16 do
                addVehicleUpgrade(autov["t"..is..""])
                end
                setVehiclePaintjob(autov["paintjob"])
                setVehicleVariant(autov["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(autov["hr"], v["hg"], v["hb"])
                setVehiclePlateText(autov["tablica"])
                setVehicleHandling(auto"engineAcceleration"v["acceler"])
                setVehicleHandling(auto"maxVelocity"v["vmax"])
                setVehicleOverrideLights(auto1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..accaclGetGroup("Admin")) then
        for _,v in ipairs getElementsByType "vehicle") ) do
            if getElementData(v"prywatne"then
                local pojazdID getElementModel )
                local c1,c2,c3,c4 getVehicleColor )
                local x,y,getElementPosition )
                local rotxrotyrotz getElementRotation )
                local owner getElementData(v"owner")
                local przebieg getElementData(v"przebieg")
                local paliwo getElementData(v"paliwo")
                local bak getElementData(v"bak")
                local t0 getVehicleUpgradeOnSlot(v0)
                local t1 getVehicleUpgradeOnSlot(v1)
                local t2 getVehicleUpgradeOnSlot(v2)
                local t3 getVehicleUpgradeOnSlot(v3)
                local t4 getVehicleUpgradeOnSlot(v4)
                local t5 getVehicleUpgradeOnSlot(v5)
                local t6 getVehicleUpgradeOnSlot(v6)
                local t7 getVehicleUpgradeOnSlot(v7)
                local t8 getVehicleUpgradeOnSlot(v8)
                local t9 getVehicleUpgradeOnSlot(v9)
                local t13 getVehicleUpgradeOnSlot(v13)
                local t14 getVehicleUpgradeOnSlot(v14)
                local t15 getVehicleUpgradeOnSlot(v15)
                local t16 getVehicleUpgradeOnSlot(v16)
                local felgi getVehicleUpgradeOnSlot(v12)
                local paintjob getVehiclePaintjob(v)
                local hrhghb getVehicleHeadLightColor(v)
                local tablica getVehiclePlateText(v)
                local wariant1wariant2 getVehicleVariant(v)
                local vmax getVehicleHandling(v).maxVelocity
                local acceler getVehicleHandling(v).engineAcceleration
                local id getElementData(v"vehid")
                outputChatBox(owner)
                local wybierz dbQuery(conn"SELECT id FROM OP_Vehicles WHERE id = ?"id)
                local result dbPoll(wybierz, -1)
                if #result >= 1 then
                    local update dbExec conn"UPDATE OP_Vehicles SET model = '?', posx = '?', posy = '?', posz = '?', rotx = '?', roty = '?', rotz = '?', color1 = '?', color2 = '?', color3 = '?', color4 = '?', owner = '?', przebieg = '?', paliwo = '?', bak = '?', paintjob = '?', hr = '?', hg = '?', hb = '?', felgi = '?', t0 = '?', t1 = '?', t2 = '?', t3 = '?', t4 = '?', t5 = '?', t6 = '?', t7 = '?', t8 = '?', t9 = '?', t13 = '?', t14 = '?', t15 = '?', t16 = '?', tablica = '?', wariant1 = '?', wariant2 = '?', vmax = '?', acceler = '?', WHERE id = ?"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxaccelerid)
                else
                    dbExec conn"INSERT INTO OP_Vehicles (model, posx, posy, posz, rotx, roty, rotz, color1, color2 ,color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"pojazdIDxyzrotxrotyrotzc1c2c3c4ownerprzebiegpaliwobakpaintjobhrhghbfelgit0t1t2t3t4t5t6t7t8t9t13t14t15t16tablicawariant1wariant2vmaxacceler)
                    
                end
                outputChatBox("* Zapis zako?czony!"plr255255255)
                dbFree(wybierz)
            end
        end
    end
end)

A sprawd? czy podczas zapisu wyskakuje co? na czacie. Doda?em jedn? linijk? ?eby co? sprawdzi?.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-06, 14:43


GamerHD11







Wiek: 24
Na forum: 4260 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Teraz podczas zapisu pisze SzokoHD i Zapis zako?czony. Ale po restarcie usuwa te auta i w bazie nic sie nie zapisuje.

Postaw piwo autorowi tego posta
 

 
Tagi: wszystkie :: auta :: się :: zapisują
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Wszystkie auta się zapisują Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Dodaj temat do Ulubionych
Wersja do druku