sql lite veri çekme


   var
  MyForm : TclForm;
  vScroll:TCLVertScrollBox;
  sLabel : TclLabel; 
  
  void SqLiteInsertData;
  {
    try
      Clomosy.DBSQLiteQuery.Sql.Text = '
    INSERT INTO depo ( name,kod) VALUES (''saç'',''001'');
    INSERT INTO depo (name,kod) VALUES  (''saç2'',''002'')
    ';
    
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      
      ShowMessage('Adding data to the table was successful!');
    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }
  
  void SqLiteConnectionCreateTable;
  var
    TableExists: Boolean;
  {
    try
      Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBDepo.db3', '');
 
      // Check if the table exists
      Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="depo";';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      
      // Check the results
      TableExists = not Clomosy.DBSQLiteQuery.Eof;
      
      // Create the table if it does not exist
      if not (TableExists)
      {
        Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE depo(
        name TEXT NOT NULL,
       
        kod TEXT NOT NULL
            )';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        
        ShowMessage('Table successfully added to the database!');
        SqLiteInsertData;
      } else
      {
        ShowMessage('The Products table already exists.');
      }

    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }
  
  void GetData;
  var
    Qry : TClSQLiteQuery;
    i : Integer;
  {
    try
      Qry = Clomosy.DBSQLiteQueryWith('SELECT * from depo');
      Qry.OpenOrExecute;
      
      if (Qry.Found)
      {
        for i = 0 to Qry.RecordCount-1
        {
          sLabel = MyForm.AddNewLabel(vScroll,'sLabel'+IntToStr(i),'');
          sLabel.StyledSettings = ssFamily;
          sLabel.TextSettings.Font.Size=20;
          sLabel.Align = alTop;
          sLabel.Margins.Left= 5;
          sLabel.Margins.Top= 5; 
          sLabel.Height = 50; 
           sLabel.Text = Qry.FieldByName('name').AsString +'-'+ Qry.FieldByName('kod').AsString ;
          
          sLabel.AutoSize = True;
          sLabel.WordWrap = True;
          Qry.Next;
        }  
      }
      
    except
      ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
    } 
  }


  {
    MyForm = TclForm.Create(Self);
    vScroll = MyForm.AddNewVertScrollBox(MyForm,'vScrollBox');
    vScroll.Align = alMostTop;
    vScroll.Height = MyForm.clheight-70;
    SqLiteConnectionCreateTable;
    GetData;
    
    MyForm.Run;
  }
ilk eklediğim veriyi labela yazıyor  ama diğer verileri yazmıyor.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ismail Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 05 Ağustos 2024 Konum: konya Durum: Aktif Değil Puanlar: 25	Konu: sql lite veri çekme Gönderim Zamanı: 12 Ağustos 2024 Saat 14:48
	var MyForm : TclForm; vScroll:TCLVertScrollBox; sLabel : TclLabel; void SqLiteInsertData; { try Clomosy.DBSQLiteQuery.Sql.Text = ' INSERT INTO depo ( name,kod) VALUES (''saç'',''001''); INSERT INTO depo (name,kod) VALUES (''saç2'',''002'') '; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Adding data to the table was successful!'); except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } void SqLiteConnectionCreateTable; var TableExists: Boolean; { try Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBDepo.db3', ''); // Check if the table exists Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="depo";'; Clomosy.DBSQLiteQuery.OpenOrExecute; // Check the results TableExists = not Clomosy.DBSQLiteQuery.Eof; // Create the table if it does not exist if not (TableExists) { Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE depo( name TEXT NOT NULL, kod TEXT NOT NULL )'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Table successfully added to the database!'); SqLiteInsertData; } else { ShowMessage('The Products table already exists.'); } except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } void GetData; var Qry : TClSQLiteQuery; i : Integer; { try Qry = Clomosy.DBSQLiteQueryWith('SELECT * from depo'); Qry.OpenOrExecute; if (Qry.Found) { for i = 0 to Qry.RecordCount-1 { sLabel = MyForm.AddNewLabel(vScroll,'sLabel'+IntToStr(i),''); sLabel.StyledSettings = ssFamily; sLabel.TextSettings.Font.Size=20; sLabel.Align = alTop; sLabel.Margins.Left= 5; sLabel.Margins.Top= 5; sLabel.Height = 50; sLabel.Text = Qry.FieldByName('name').AsString +'-'+ Qry.FieldByName('kod').AsString ; sLabel.AutoSize = True; sLabel.WordWrap = True; Qry.Next; } } except ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage); } } { MyForm = TclForm.Create(Self); vScroll = MyForm.AddNewVertScrollBox(MyForm,'vScrollBox'); vScroll.Align = alMostTop; vScroll.Height = MyForm.clheight-70; SqLiteConnectionCreateTable; GetData; MyForm.Run; } ilk eklediğim veriyi labela yazıyor ama diğer verileri yazmıyor.

Kemal Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 30 Nisan 2024 Konum: Konya Durum: Aktif Değil Puanlar: 15	Gönderim Zamanı: 13 Ağustos 2024 Saat 10:34
	Merhaba İsmail, Qry içinde gezinirken while döngüsü ile dosya sonuna kadar gitmeyi dener misiniz? Örnek : i = 0; try Qry = Clomosy.DBSQLiteQueryWith('SELECT * from depo'); Qry.OpenOrExecute; ShowMessage(Qry.RecordCount); if (Qry.Found) { with Qry do { First; while (not Eof) { sLabel = MyForm.AddNewLabel(vScroll,'sLabel'+IntToStr(i),''); sLabel.StyledSettings = ssFamily; sLabel.TextSettings.Font.Size=20; sLabel.Align = alTop; sLabel.Margins.Left= 5; sLabel.Margins.Top= 5; sLabel.Height = 50; sLabel.Text = FieldByName('name').AsString +'-'+ FieldByName('kod').AsString ; ShowMessage(FieldByName('name').AsString); ShowMessage(i) sLabel.AutoSize = True; sLabel.WordWrap = True; Next; i = i +1; }; }; }

ismail Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 05 Ağustos 2024 Konum: konya Durum: Aktif Değil Puanlar: 25	Gönderim Zamanı: 13 Ağustos 2024 Saat 13:13
	teşekkürler