muratboy31

hayır tablo dolu !

burdaki yanlış ne acaba ? hata alıyorum kırmızı ile işaretli satırda   result = MySQL.Connect("192.168.1.2", "user", "pass", "rehber", ""); if (result ~= 0) then   error = Application.GetLastError();   Dialog.Message("MySQL Actions Plugin", "Connection failed: (" .. MySQL.GetError() .. ")", MB_OK, MB_ICONSTOP); else   if (MySQL.Ping() ~= 0) then     Dialog.Message("MySQL Actions Plugin", "MySQL server is not responding", MB_OK);   else     resultset = MySQL.QueryToTable("SELECT * FROM kisiler");     for i,row in resultset do     for j,celltext in row do         result = ListBox.AddItem("ListBox1",celltext, "");     end     end   end end

hayır ben yine yanlış anlattım, istediğim dönen veriyi tablo yapıp listbox ta listelemek; önceki pluginde şu şekilde oluyordu; satir = MySQLCursor:fetch({},"a"); while satir do ListBoxEx.AddItem("ListBox1", "<p><font color=#000000 face=Arial size=4><b>"..satir.adi.."</b></font><br><font color=#866898 face=Arial size=3>"..satir.gorevi.."</font> </p>", satir.adi, "", "", 1, LBXITEM_HTML, 0, nil, nil, nil); satir = MySQLCursor:fetch(satir,"a"); end

    bu plugin ile tablo nasıl oluşturuluyor ? satir = MySQLCursor:fetch({},"a"); while satir do ListBoxEx.AddItem("ListBox1", "<p><font color=#000000 face=Arial size=4><b>"..satir.adi.."</b></font><br><font color=#866898 face=Arial size=3>"..satir.gorevi.."</font> </p>", satir.adi, "", "", 1, LBXITEM_HTML, 0, nil, nil, nil); satir = MySQLCursor:fetch(satir,"a"); end

Bütün sistemi değiştirmem gerekecek :D

<? $objConnect = mysql_connect("localhost","root",""); $objDB = mysql_select_db("dosya"); // $_POST["txtKeyword"] = "a"; $strKeyword = $_POST["txtKeyword"]; $strSQL = "SELECT * FROM gelenek"; $objQuery = mysql_query($strSQL); $intNumField = mysql_num_fields($objQuery); $resultArray = array(); while($obResult = mysql_fetch_array($objQuery)) { $arrCol = array(); for($i=0;$i<$intNumField;$i++) { $arrCol[mysql_field_name($objQuery,$i)] = $obResult[$i]; } array_push($resultArray,$arrCol); } mysql_close($objConnect); echo json_encode($resultArray); ?> böyle denermisin..

yok o yaptığım android programı php syfası değil ama php de de aynısını yapıyor... şöyle test edebilirsin...   Php dosyası : <? $objConnect = mysql_connect("localhost","user","123456"); $objDB = mysql_select_db("rehber"); // $_POST["txtKeyword"] = "a"; $strKeyword = $_POST["txtKeyword"]; $strSQL = "SELECT * FROM kisiler WHERE adi LIKE '%".$strKeyword."%' ORDER BY adi ASC "; $objQuery = mysql_query($strSQL); $intNumField = mysql_num_fields($objQuery); $resultArray = array(); while($obResult = mysql_fetch_array($objQuery)) { $arrCol = array(); for($i=0;$i<$intNumField;$i++) { $arrCol[mysql_field_name($objQuery,$i)] = $obResult[$i]; } array_push($resultArray,$arrCol); } mysql_close($objConnect); echo json_encode($resultArray); ?> veri tabanı : rehber tablo adı : kisiler alanlar : adi, sirketi, gorevi, cep1, cep2, tel, dahili, mail

  evet mysql, ams de bende de sıkıntı yok fakat farklı platformlarda görüntüleme yapınca sıkıntı oluyor....

    pairs sen ams de kayıt edip farklı bir program ile mi görüntülüyorsun, yoksa ams ile kayıt edip tekrar ams ile mi görüntülüyorsun... ben ams ile kayıt ettim ama android ile görüntülüyorum ve hatta web görüntülemede bile türkçe karakterlerde sıkıntı oluyor...

konu ile ilgili olarak galetis'e pm atsak bir sakıncası olur mu acaba ?

Bunun başka bir yolu yokmudur acaba ? yane ben ams ile hazırladığım bir veri tabanını başka programda gösterirken sorun mu yaşayacam...

Arkadaşlar merhaba, Veri tabanında doğru görünmesine rağmen programda türkçe karakterler görünmüyor, neden olabilir ? Veri tabanı; Program; Kod ; MySQLConnection, err = MySQL:connect("veritabanı", "user", "pass", "192.168.1.2"); if not MySQLConnectionn and err then Dialog.Message("Hata", "Veritabanı ile bağlantı kurulamadı!", MB_OK, MB_ICONSTOP); Application.Exit(0); end MySQLCursor, err = MySQLConnection:execute("SELECT * FROM kisiler ORDER BY adi ASC"); satir = MySQLCursor:fetch({},"a"); while satir do ListBoxEx.AddItem("ListBox1", "<p><font color=#000000 face=Arial size=4><b>"..satir.adi.."</b></font><br><font color=#866898 face=Arial size=3>"..satir.gorevi.."</font> </p>", satir.adi, "", "", 1, LBXITEM_HTML, 0, nil, nil, nil); satir = MySQLCursor:fetch(satir,"a"); end ListBoxEx.SetCheckBoxesVisible("ListBox1", false);

hayır sqlite ile işime yaramaz, çünkü birkaç kişi farklı lokasyonlarda kullanacağız...

teşekürler reyiz   @KintaRo sende bakabildin mi acaba eksik kalan yerler için ?

teşekürler arkadaşlatr   @reyiz   küçük bir örnek yapabilirmisin eğer vaktin varsa Mysql ile...

Arkadaşlar merhaba,   Mysql veri tabanı kullanarak ajanda uygulaması yapmış olan birileri varmı ? Seçilen tarihe not ekleme ve kaydetme konusun başlangıç yardımına ihtiyacım var biraz.   Teşekürler

neden gridde 9 dan sonrası görünmüyor acaba ? kullandığım kod bu ; Grid.SetCellText("Grid1", 0, 0, "Makbuz No", true); Grid.SetCellText("Grid1", 0, 1, "Plaka", true); Grid.SetCellText("Grid1", 0, 2, "Giriş Tarihi", true); Grid.SetCellText("Grid1", 0, 3, "Çıkış Tarihi", true); Grid.SetCellText("Grid1", 0, 4, "Dorse Plaka", true); Grid.SetCellText("Grid1", 0, 5, "Müşteri", true); Grid.SetCellText("Grid1", 0, 6, "Tartım 1", true); Grid.SetCellText("Grid1", 0, 7, "Tartım 2", true); Grid.SetCellText("Grid1", 0, 8, "Net", true); Grid.SetCellText("Grid1", 0, 9, "Cins", true); Grid.SetCellText("Grid1", 0, 10, "Açıklama", true); Grid.SetCellText("Grid1", 0, 11, "Kullanıcı", true);

gönderdim

Hayır böyle olmadı pairs

aslında tam olarak bu değildi sorum yanlış anlattım sanırım...   Şöyle olması lazım yane ben mssql de bulunun bir tablodan veriyi alıp ams de şu şekilde bir table oluşturması;   local rs = conn:Execute("SELECT * FROM KNT_CIKIS") while rs do TreeList.AddRow("Plugin1", rs.TARIH1.."|"..rs.TARIH2.."|"..rs.TARIH3, nil, nil, nil); end   bu sayede istediğim gibi kullanabilirim veriyi input yada başka bir obje ile...

Mssql de nasıl tablo oluşturabilirim acaba ? bu şekilde denedim olmadı ...   local conn = luacom.CreateObject("ADODB.Connection") if conn then  conn:Open("Driver={SQL Server}; Server=192.168.1.3; DataBase=Forwin2013; Uid=sa; Pwd=123456")  local rs = conn:Execute("SELECT * FROM KNT_CIKIS") while rs do TreeList.AddRow("Plugin1", rs.TRH1.."|"..rs.TRH2, nil, nil, nil); end

Veri tabanındaki tablo bu ; hatayı burada veriyormuş bağlantıda değil, tüm alanları listelemiyor nedense ! Grid.SetCellText("Grid1", r, i, fld.Value, true); kullandığım kod bu ; local conn = luacom.CreateObject("ADODB.Connection") if conn then conn:Open("Driver={SQL Server}; Server=192.168.1.3; DataBase=Forwin2013; Uid=sa; Pwd=123456") local rs = conn:Execute("SELECT * FROM KNT_SAYAC") Grid.SetColumnCount("Grid1", rs.Fields.Count); local r = 0 while not rs.EOF do r = r + 1 Grid.SetRowCount("Grid1", r+1); for i = 0, rs.Fields.Count - 1 do local fld = rs.Fields:Item(i) if fld and fld.Value then Grid.SetCellText("Grid1", r, i, fld.Value, true); end end rs:MoveNext() end rs:Close() Grid.SetRedraw("Grid1", true) end

local conn = luacom.CreateObject("ADODB.Connection") if conn then conn:Open("Driver={SQL Server}; Server=localhost; DataBase=Customers; Uid=sa; Pwd=123456") local rs = conn:Execute("SELECT * FROM user") Grid.SetColumnCount("Grid1", rs.Fields.Count); local r = 0 while not rs.EOF do r = r + 1 Grid.SetRowCount("Grid1", r+1); for i = 0, rs.Fields.Count - 1 do local fld = rs.Fields:Item(i) if fld and fld.Value then Grid.SetCellText("Grid1", r, i, fld.Value, true); end end rs:MoveNext() end rs:Close() Grid.SetRedraw("Grid1", true) end bu kodda bağlantı satırında hata veriyor , nerde yanlış yapıyprum acaba ?

Tamamda bence bunu yapmak daha kolay zaten sana enbaştan beri diyorum... eksik varsa tamamlayabilirsin çünkü verdiğim kod doğru çalışıyor, yane mantık orada var zaten... bunu denermisin; MenuKontrol = INIFile.GetValue(_ProgramFilesFolder.. "\\Alt F4\\Database\\Settings.ini", "Menu Settings", "Start"); PassKontrol = File.DoesExist(_ProgramFilesFolder.. "\\Alt F4\\Database\\Alt F4.ini"); if MenuKontrol == "StartUp" then tblMenu = Application.GetMenu(); tblMenu[1].SubMenu[3].Enabled = false; Application.SetMenu(tblMenu); elseif MenuKontrol == "NonStartUp" then tblMenu = Application.GetMenu(); tblMenu[1].SubMenu[4].Enabled = false; Application.SetMenu(tblMenu); end if PassKontrol == false then tblMenu = Application.GetMenu(); tblMenu[1].SubMenu[2].Enabled = false; Application.SetMenu(tblMenu); elseif PassKontrol == true then tblMenu = Application.GetMenu(); tblMenu[1].SubMenu[1].Enabled = false; Application.SetMenu(tblMenu); end