Sayfayı Yazdır | Pencereyi Kapat

ProListView'e SQL den gelen veriler gözükmüyor

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=821
Tarih: 07 Ocak 2025 Saat 23:18
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: ProListView'e SQL den gelen veriler gözükmüyor
Mesajı Yazan: zeynepsimsek
Konu: ProListView'e SQL den gelen veriler gözükmüyor
Mesaj Tarihi: 06 Ağustos 2024 Saat 16:08
Tablo uygulamada gözüküyor fakat sql den çektiğim veriler gözükmüyor. Herhangi bir hata mesajı da almıyorum.

 void AddDataToListView; // bu fonksiyon devreye girince hata veriyor
   {
     try
       selectQuery.SQL.text = 'SELECT ID AS [Kisi ID], Kisi AS [Kisi İsmi], Yer AS [Alindigi Yer], 
       Tarih AS [Alinma Zamani], KmDegeri AS [Km Degeri], Konum AS [Konumu] From KisiBilgileri';
       selectQuery.Open;
       if(selectQuery.Found)
       {
         ProListView.ClLoadProListViewDataFromDataset(selectQuery);
       }
       else
       {
         ShowMessage('Kayıt Bulunamadı!');
       }
      except
        ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
      }
   }

ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 140 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"cart","ItemHeight" : 50, "BorderColor":"#4c5c67",
   "BorderWidth":2 , "ItemWidth":50}');
   
   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,
   '{"Height":140,"Width" : 150,
   "BackgroundColor":"#677b98",
   "BorderColor":"#2c5696",
   "BorderWidth":2,
   "RoundHeight":2,
   "RoundWidth":2}');
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','Kişi ID');
   clComponent.SetupComponent(ID, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','Kişi Adı');
    clComponent.SetupComponent(Kisi, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','Alındığı Yer');
    clComponent.SetupComponent(Yer, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','Alındığı Zaman');
    clComponent.SetupComponent(Tarih, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Tarih,Cltext2);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','Kilometre Değeri');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext3);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','Konumu');
    clComponent.SetupComponent(Konum, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
    ProListView.SetDesignerPanel(DesignerPanel);  



Cevaplar:
Mesajı Yazan: Developer
Mesaj Tarihi: 06 Ağustos 2024 Saat 17:20
Merhaba Zeynep
Aşağıdaki kodu inceler misin:
void AddDataToListView; // bu fonksiyon devreye girince hata veriyor
   {
     try
       selectQuery.SQL.text = 'SELECT ID , Kisi , Yer ,Tarih , KmDegeri , Konum  From KisiBilgileri';
       selectQuery.Open;
       if(selectQuery.Found)
       {
         ProListView.ClLoadProListViewDataFromDataset(selectQuery);
       }
       else
       {
         ShowMessage('Kayıt Bulunamadı!');
       }
      except
        ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
      }
   }

ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 140 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"cart","ItemHeight" : 50, "BorderColor":"#4c5c67",
   "BorderWidth":2 , "ItemWidth":50}');
   
   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,
   '{"Height":140,"Width" : 150,
   "BackgroundColor":"#677b98",
   "BorderColor":"#2c5696",
   "BorderWidth":2,
   "RoundHeight":2,
   "RoundWidth":2}');
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','Kişi ID');
   clComponent.SetupComponent(ID, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','Kişi Adı');
    clComponent.SetupComponent(Kisi, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','Alındığı Yer');
    clComponent.SetupComponent(Yer, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','Alındığı Zaman');
    clComponent.SetupComponent(Tarih, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Tarih,Cltext2);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','Kilometre Değeri');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext3);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','Konumu');
    clComponent.SetupComponent(Konum, 
   '{"Height":40,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
    ProListView.SetDesignerPanel(DesignerPanel);  


Mesajı Yazan: zeynepsimsek
Mesaj Tarihi: 07 Ağustos 2024 Saat 01:23
Düzeldi teşekkür ederim. 



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net