Veri Tabanından Silme İşlemi Nasıl Yapılır?

[muratboy31]

seri aynı olmasına rağmen uyarı mesajı vermiyor neyi eksik yapıyorum acaba ?

 

a = Input.GetText("adi");
b = Input.GetText("soyadi");
c = Input.GetText("cihaz");
d = Input.GetText("marka");
e = Input.GetText("model");
f = Input.GetText("seri");

      MysqlQuery = MySQLConnection:execute("SELECT * FROM demirbas where seri='"..f.."'");
      goster = MySQLCursor:fetch({},"a");       
      if goster ~= nil then
       Dialog.Message("Uyarı", "Bu Seri No Daha Önceden Kayıt Edilmiş !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
      else
       MysqlQuery = MySQLConnection:execute("INSERT INTO demirbas(adi, soyadi, cihaz, marka, model, seri) VALUES ('"..a.."','"..b.."','"..c.."','"..d.."','"..e.."','"..f.."')");
       Dialog.Message("Eklenedi!", "Bilgiler Eklendi!", MB_OK, MB_ICONINFORMATION)
       Page.Jump("Page1");
      end

[reyiz]

Böyle dener misin?

a = Input.GetText("adi");
b = Input.GetText("soyadi");
c = Input.GetText("cihaz");
d = Input.GetText("marka");
e = Input.GetText("model");
f = Input.GetText("seri");

      MysqlQuery = MySQLConnection:execute("SELECT * FROM demirbas where seri=".."'"..f.."'");
      goster = MySQLCursor:fetch({},"a");       
      if goster ~= nil then
       Dialog.Message("Uyarı", "Bu Seri No Daha Önceden Kayıt Edilmiş !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
      else
       MysqlQuery = MySQLConnection:execute("INSERT INTO demirbas(adi, soyadi, cihaz, marka, model, seri) VALUES ('"..a.."','"..b.."','"..c.."','"..d.."','"..e.."','"..f.."')");
       Dialog.Message("Eklenedi!", "Bilgiler Eklendi!", MB_OK, MB_ICONINFORMATION)
       Page.Jump("Page1");
      end

[muratboy31]

Yine uyarı vermedi !

[reyiz]

a = Input.GetText("adi");
b = Input.GetText("soyadi");
c = Input.GetText("cihaz");
d = Input.GetText("marka");
e = Input.GetText("model");
f = Input.GetText("seri");
 
      MysqlQuery = MySQLConnection:execute("SELECT * FROM demirbas where seri=".."'"..f.."'");
      goster = MySQLCursor:fetch();    
      if goster ~= nil then
       Dialog.Message("Uyarı", "Bu Seri No Daha Önceden Kayıt Edilmiş !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
      else
       MysqlQuery = MySQLConnection:execute("INSERT INTO demirbas(adi, soyadi, cihaz, marka, model, seri) VALUES ('"..a.."','"..b.."','"..c.."','"..d.."','"..e.."','"..f.."')");
       Dialog.Message("Eklenedi!", "Bilgiler Eklendi!", MB_OK, MB_ICONINFORMATION)
       Page.Jump("Page1");
      end

Böyle olması lazım.

Edited July 24, 2013 by reyiz

[pairs]

reyiz bu nasıl bir kod yazma şeklidir hayranım sana :D 

where seri=".."'"..f.."'"

[muratboy31]

Hayır olmadı, ayrıca kırmızı ile işaretlediğim yeri de düzelttim, ilginç !

 

a = Input.GetText("adi");
b = Input.GetText("soyadi");
c = Input.GetText("cihaz");
d = Input.GetText("marka");
e = Input.GetText("model");
f = Input.GetText("seri");
 
      MysqlQuery = MySQLConnection:execute("SELECT * FROM demirbas where seri=".."'"..f.."'");
      goster = MySQLCursor:fetch();   
      if goster ~= nil then
       Dialog.Message("Uyarı", "Bu Seri No Daha Önceden Kayıt Edilmiş !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
      else
       MysqlQuery = MySQLConnection:execute("INSERT INTO demirbas(adi, soyadi, cihaz, marka, model, seri) VALUES ('"..a.."','"..b.."','"..c.."','"..d.."','"..e.."','"..f.."')");
       Dialog.Message("Eklenedi!", "Bilgiler Eklendi!", MB_OK, MB_ICONINFORMATION)
       Page.Jump("Page1");
      end

[reyiz]

@pairs niye hata mı var :D ?

[muratboy31]

bu konu ile ilgili bir fikri olan varmı acaba ?

 

seri aynı olmasına rağmen uyarı mesajı vermiyor ?

 

a = Input.GetText("adi");
b = Input.GetText("soyadi");
c = Input.GetText("cihaz");
d = Input.GetText("marka");
e = Input.GetText("model");
f = Input.GetText("seri");

MysqlQuery = MySQLConnection:execute("SELECT * FROM demirbas where seri='"..f.."'");
goster = MySQLCursor:fetch({},"a");
if goster ~= nil then
Dialog.Message("Uyarı", "Bu Seri No Daha Önceden Kayıt Edilmiş !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
MysqlQuery = MySQLConnection:execute("INSERT INTO demirbas(adi, soyadi, cihaz, marka, model, seri) VALUES ('"..a.."','"..b.."','"..c.."','"..d.."','"..e.."','"..f.."')");
Dialog.Message("Eklenedi!", "Bilgiler Eklendi!", MB_OK, MB_ICONINFORMATION)
Page.Jump("Page1");
end

[pairs]

Yaptıgımda olmuştu kodlarımı değiştirdin.

[muratboy31]

onu SQlite ile yapmıştın daha önce Mysql de olmuyor !

[pairs]

Mysql deki demirbas tablona bak seri isimli kolon string tipindemi.

[muratboy31]

[pairs]

serinin karşısını text yapıp denermisin.String ile Char farklı çünkü.

[muratboy31]

Yine aynı !

 

[pairs]

goster = MySQLCursor:fetch({},"a");

 

bu komutun altına

 

Dialog.Message("",type(goster));  ekleyip bi denermisin tip olarak ne dönüyor

[muratboy31]

[pairs]

Team verebilirsen bakayım.

[muratboy31]

365 618 384

8057

[pairs]

MySQLCursor , err = MySQLConnection:execute("SELECT * FROM demirbas where seri='"..f.."'");
goster = MySQLCursor:fetch({},"a");

 

 

bu şekilde değiştirip denermisiniz.Hata buradaki kodda.

[muratboy31]

evet hata oradaymış, teşekürler...

buarada 3-4 bağlanıp dosya çekmeye kalktığı için kapattım pc yi :)

[pairs]

valla bi gariplik vardı .Copy paste yapıyom oturum kapanıyor felan :D

[muratboy31]

Masklı inptu veri tabanına nasıl kayıt edebilir ?

Text olarak gitmiyor !