Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - ProListView ve SQL bağlantısı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Kapalı KonuProListView ve SQL bağlantısı
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Konu: ProListView ve SQL bağlantısı
    Gönderim Zamanı: 05 Ağustos 2024 Saat 13:14
void InsertToDatabase;
   {
    try
       Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (
       '+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',
       '+ProEdit4.Text+',  '+QuotedStr(ProEdit5.Text)+')';
       Clomosy.DBSQLServerQuery.ExecSql;
       ShowMessage('Veri Ekleme Başarılı.');
    except
       ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
    }
  }



   Bu şekilde veritabanına başarılı bit şekilde ekleme yapabiliyorum. Ama ProListView içinde bu verileri görüntüleme konusunda sıkıntı yaşıyorum. 


selectQuery.Sql.text = 

nasıl bir kullanım yapmam gerektiğini anlayamadım. Yardımcı olur musunuz ?
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 05 Ağustos 2024 Saat 14:04
 void AddDataToListView;
   {
     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ı!');
       }
       finally
        selectQuery.Free;
        selectQuery.Close;
   }

KisiBilgileri isimli tablomda ID,Kisi,Yer,Tarih,KmDegeri,Konum sütunları bulunmakta.
Bu sütunlara ekleme yaptığım bilgileri uygulamamdaki ProListView üzerinde göstermek istiyorum. Detaylı bir kullanım bulamadım. Fonksiyonum hata veriyor inceleyebilir misiniz? 
Yukarı Dön
Atiker01 Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi
Simge

Kayıt Tarihi: 26 Temmuz 2023
Durum: Aktif Değil
Puanlar: 94 		Mesajın Direkt Linki Gönderim Zamanı: 05 Ağustos 2024 Saat 14:21
Merhaba Zeynep,

Veritabanından gelen sütun adları ile prolistview nesnesinin içerisinde oluşturulan nesnelerin isimleri aynı olmalıdır.

Örneğin,
tabloda "Kisi" adından bir alan adın var. ProListView içerisinde "Kisi" adında nesnen olmalıdır. 

Bu şekilde düzenlemeleri yapabilirsin. Geri dönüşünü bekliyorum.
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 05 Ağustos 2024 Saat 15:01
RUNTIME ERROR
Could not convert variant of type (Null) into type (Integer) when evaluating instruction CallProc ($FFFFFFFF,$2,$1320EA8,$6BF99A0,'AddNewProListViewDesignerPanel').
Stack content is: [Null,Null,Null,Null...].
Source position: 49,85
Position: 49, 85
Clomosy Build : 20240709.111531



49.SATIR
DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView, 'DesignerPanel');


Dediğiniz gibi nesneleri tanımladım Şimdii böyle bir hata veriyor.
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 05 Ağustos 2024 Saat 15:07
/*
   void AddDataToListView;
   {
     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ı!');
       }
       finally
        selectQuery.Free;
        selectQuery.Close;
   }
   */



/*DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView, 'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,'{"Height":100,"Width" : 150,"BackgroundColor":"#F6EDDB",
   "BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');
   ProListView.SetDesignerPanel(DesignerPanel);
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','ID');
   clComponent.SetupComponent(ID, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','Kisi İsmi');
    clComponent.SetupComponent(Kisi, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','Alındıgı Yer');
    clComponent.SetupComponent(Yer, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','Alınma Zamani');
    clComponent.SetupComponent(Tarih, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(Tarih,Cltext);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','Kilometre Degeri');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','Konumu');
    clComponent.SetupComponent(Konum, 
   '{"Height":100,
    "Width" : 150,
    "BackgroundColor":"#f3d5aa",
    "BorderColor":"#ff9b0f",
    "BorderWidth":2,
    "RoundHeight":20,
    "RoundWidth":20}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
   
   ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 150 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "ListType":"Cart","ItemHeight" : 50,
   "ItemWidth":50}');
   ProListView.SetDesignerPanel(DesignerPanel);
   */


Bu iki kısım yokken kodum hatasız çalışıyor. Bunları devreye soktuğumda yukarıda bahsettiğim hatayı veriyor. 
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 373 		Mesajın Direkt Linki Gönderim Zamanı: 05 Ağustos 2024 Saat 17:49
Merhaba Zeynep,
Bütün projeni paylaşır mısın?
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 06 Ağustos 2024 Saat 01:20
Var   
  MyForm:TclForm;
  Label1,adLbl,mekanLbl,zamanLbl,kmLbl,konumLbl,idLbl: TClProLabel;
  ProBtn1,ProBtn2,ProBtn3 : TClProButton;
  ProEdit1,ProEdit2,ProEdit3,ProEdit4,ProEdit5,ProEdit6:TclProEdit;
  ProListView : TClProListView;
  DesignerPanel : TClProListViewDesignerPanel; 
  ID,Kisi,Yer,Tarih,KmDegeri,Konum:TClProLabel;
  selectQuery: TclSqlQuery;
  
  
   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ı!');
       }
       finally
        selectQuery.Free;
        selectQuery.Close;
   }
   
   void InsertToDatabase;   //bu fonksiyonum başarılı veritabanına ekleme yapıyor 
   {
    try
       Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (
       '+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',
       '+ProEdit4.Text+',  '+QuotedStr(ProEdit5.Text)+')';
       Clomosy.DBSQLServerQuery.ExecSql;
       ShowMessage('Veri Ekleme Başarılı.');
    except
       ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
    }
  }

 {
   MyForm = TclForm.Create(Self);
   
   MyForm.SetFormColor('#f5f0f0', '#c3d3da', clGVertical);
   
   
   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,
   '{"Height":100,"Width" : 150,
   "BackgroundColor":"#677b98",
   "BorderColor":"#2c5696",
   "BorderWidth":2,
   "RoundHeight":2,
   "RoundWidth":2}');
   ProListView.SetDesignerPanel(DesignerPanel);
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','');
   clComponent.SetupComponent(ID, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','');
    clComponent.SetupComponent(Kisi, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','');
    clComponent.SetupComponent(Yer, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','');
    clComponent.SetupComponent(Tarih, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Tarih,Cltext);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','');
    clComponent.SetupComponent(Konum, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
   
   ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 120 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"fluid","ItemHeight" : 50, "BorderColor":"#4c5c67",
   "BorderWidth":2 , "ItemWidth":50}');
    ProListView.SetDesignerPanel(DesignerPanel);  
   
  
  
   idLbl = MyForm.AddNewProLabel(MyForm,'idLbl','Kişi ID:');
   clComponent.SetupComponent(idLbl,'{"MarginBottom":550,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   adLbl = MyForm.AddNewProLabel(MyForm,'adLbl','Kişi İsmi:');
   clComponent.SetupComponent(adLbl,'{"MarginBottom":450,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   mekanLbl = MyForm.AddNewProLabel(MyForm,'mekanLbl','Alındığı Yer:');
   clComponent.SetupComponent(mekanLbl,'{"MarginBottom":350,"MarginRight":145, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   zamanLbl = MyForm.AddNewProLabel(MyForm,'zamanLbl','Alınma Zamanı:');
   clComponent.SetupComponent(zamanLbl,'{"MarginBottom":250,"MarginRight":170, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   kmLbl = MyForm.AddNewProLabel(MyForm,'kmLbl','Km Değeri:');
   clComponent.SetupComponent(kmLbl,'{"MarginBottom":150,"MarginRight":140, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   konumLbl = MyForm.AddNewProLabel(MyForm,'konumLbl','Konumu:');
   clComponent.SetupComponent(konumLbl,'{"MarginBottom":50,"MarginRight":135, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   
   ProBtn1=MyForm.AddNewProButton(MyForm, 'ProBtn1', 'Ekle');
   clComponent.SetupComponent(ProBtn1,'{"caption":"Ekle","MarginTop":70,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn2=MyForm.AddNewProButton(MyForm, 'ProBtn2', 'Güncelle');
   clComponent.SetupComponent(ProBtn2,'{"caption":"Güncelle","MarginTop":70, "MarginLeft":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn3=MyForm.AddNewProButton(MyForm, 'ProBtn3', 'Sil');
   clComponent.SetupComponent(ProBtn3,'{"caption":"Sil","MarginTop":70,"MarginRight":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
  
   Label1 = MyForm.AddNewProLabel(MyForm,'Label1','ARAÇ TAKİP UYGULAMASI');
   clComponent.SetupComponent(Label1,'{"Align" : "Center","MarginBottom":630,"Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":20,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   ProEdit1=MyForm.AddNewProEdit(MyForm, 'ProEdit1', '');
   clComponent.SetupComponent(ProEdit1,'{"Align" : "Center","MarginBottom":450,"Width" :100
   ,"Height":30,"MarginLeft":27}')
   
   ProEdit2=MyForm.AddNewProEdit(MyForm, 'ProEdit2', '');
   clComponent.SetupComponent(ProEdit2,'{"Align" : "Center","MarginBottom":350,"Width" :100
   ,"Height":30,"MarginLeft":27}');
   
   ProEdit3=MyForm.AddNewProEdit(MyForm, 'ProEdit3', 'Yıl-Ay-Gün');
   clComponent.SetupComponent(ProEdit3,'{"Align" : "Center","MarginBottom":250,"Width" :100
   ,"Height":30,"MarginLeft":27}');

   ProEdit4=MyForm.AddNewProEdit(MyForm, 'ProEdit4', '');
   clComponent.SetupComponent(ProEdit4,'{"Align" : "Center","MarginBottom":150,"Width" :100
   ,"Height":30,"MarginLeft":27}');   
  // ProEdit4.clTypeOfField=taFloat;
   
   ProEdit5=MyForm.AddNewProEdit(MyForm, 'ProEdit5', '');
   clComponent.SetupComponent(ProEdit5,'{"Align" : "Center","MarginBottom":50,"Width" :100
   ,"Height":30,"MarginLeft":27}');  
   
   ProEdit6=MyForm.AddNewProEdit(MyForm, 'ProEdit6', '');
   clComponent.SetupComponent(ProEdit6,'{"Align" : "Center","MarginBottom":550,"Width" :100
   ,"Height":30,"MarginLeft":27}'); 
   
   MyForm.AddNewEvent(ProBtn1,tbeOnClick,'InsertToDatabase');
   
   selectQuery = TclSqlQuery.Create(nil);
   Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-T9RHDI8\SQLEXPRESS', 'sa', '1', 'AracTakip', 1433);
   selectQuery.Connection = Clomosy.DBSQLServerConnection;
   
   AddDataToListView;
   
   MyForm.Run;
 }







Designer panel kısmını ve üstteki fonksiyonu yorum satırına aldığımda her şey düzgünce çalışıyor.   
Yukarı Dön
BilalCndn Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi
Simge

Kayıt Tarihi: 09 Ekim 2023
Durum: Aktif Değil
Puanlar: 152 		Mesajın Direkt Linki Gönderim Zamanı: 06 Ağustos 2024 Saat 15:32
Merhaba Zeynep,

Var   	
  MyForm:TclForm;
  Label1,adLbl,mekanLbl,zamanLbl,kmLbl,konumLbl,idLbl: TClProLabel;
  ProBtn1,ProBtn2,ProBtn3 : TClProButton;
  ProEdit1,ProEdit2,ProEdit3,ProEdit4,ProEdit5,ProEdit6:TclProEdit;
  ProListView : TClProListView;
  DesignerPanel : TClProListViewDesignerPanel; 
  ID,Kisi,Yer,Tarih,KmDegeri,Konum:TClProLabel;
  selectQuery: TclSqlQuery;
  
  
   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);
      }
   }
   
   void InsertToDatabase;   //bu fonksiyonum başarılı veritabanına ekleme yapıyor 
   {
    try
       Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (
       '+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',
       '+ProEdit4.Text+',  '+QuotedStr(ProEdit5.Text)+')';
       Clomosy.DBSQLServerQuery.ExecSql;
       ShowMessage('Veri Ekleme Başarılı.');
    except
       ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
    }
  }

 {
   MyForm = TclForm.Create(Self);
   
   MyForm.SetFormColor('#f5f0f0', '#c3d3da', clGVertical);
   
   
   ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 120 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"fluid","ItemHeight" : 50, "BorderColor":"#4c5c67",
   "BorderWidth":2 , "ItemWidth":50}');
   
   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,
   '{"Height":100,"Width" : 150,
   "BackgroundColor":"#677b98",
   "BorderColor":"#2c5696",
   "BorderWidth":2,
   "RoundHeight":2,
   "RoundWidth":2}');
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','');
   clComponent.SetupComponent(ID, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','');
    clComponent.SetupComponent(Kisi, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','');
    clComponent.SetupComponent(Yer, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','');
    clComponent.SetupComponent(Tarih, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Tarih,Cltext);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','');
    clComponent.SetupComponent(Konum, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
    ProListView.SetDesignerPanel(DesignerPanel);  
   
  
  
   idLbl = MyForm.AddNewProLabel(MyForm,'idLbl','Kişi ID:');
   clComponent.SetupComponent(idLbl,'{"MarginBottom":550,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   adLbl = MyForm.AddNewProLabel(MyForm,'adLbl','Kişi İsmi:');
   clComponent.SetupComponent(adLbl,'{"MarginBottom":450,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   mekanLbl = MyForm.AddNewProLabel(MyForm,'mekanLbl','Alındığı Yer:');
   clComponent.SetupComponent(mekanLbl,'{"MarginBottom":350,"MarginRight":145, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   zamanLbl = MyForm.AddNewProLabel(MyForm,'zamanLbl','Alınma Zamanı:');
   clComponent.SetupComponent(zamanLbl,'{"MarginBottom":250,"MarginRight":170, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   kmLbl = MyForm.AddNewProLabel(MyForm,'kmLbl','Km Değeri:');
   clComponent.SetupComponent(kmLbl,'{"MarginBottom":150,"MarginRight":140, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   konumLbl = MyForm.AddNewProLabel(MyForm,'konumLbl','Konumu:');
   clComponent.SetupComponent(konumLbl,'{"MarginBottom":50,"MarginRight":135, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   
   ProBtn1=MyForm.AddNewProButton(MyForm, 'ProBtn1', 'Ekle');
   clComponent.SetupComponent(ProBtn1,'{"caption":"Ekle","MarginTop":70,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn2=MyForm.AddNewProButton(MyForm, 'ProBtn2', 'Güncelle');
   clComponent.SetupComponent(ProBtn2,'{"caption":"Güncelle","MarginTop":70, "MarginLeft":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn3=MyForm.AddNewProButton(MyForm, 'ProBtn3', 'Sil');
   clComponent.SetupComponent(ProBtn3,'{"caption":"Sil","MarginTop":70,"MarginRight":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
  
   Label1 = MyForm.AddNewProLabel(MyForm,'Label1','ARAÇ TAKİP UYGULAMASI');
   clComponent.SetupComponent(Label1,'{"Align" : "Center","MarginBottom":630,"Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":20,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   ProEdit1=MyForm.AddNewProEdit(MyForm, 'ProEdit1', '');
   clComponent.SetupComponent(ProEdit1,'{"Align" : "Center","MarginBottom":450,"Width" :100
   ,"Height":30,"MarginLeft":27}')
   
   ProEdit2=MyForm.AddNewProEdit(MyForm, 'ProEdit2', '');
   clComponent.SetupComponent(ProEdit2,'{"Align" : "Center","MarginBottom":350,"Width" :100
   ,"Height":30,"MarginLeft":27}');
   
   ProEdit3=MyForm.AddNewProEdit(MyForm, 'ProEdit3', 'Yıl-Ay-Gün');
   clComponent.SetupComponent(ProEdit3,'{"Align" : "Center","MarginBottom":250,"Width" :100
   ,"Height":30,"MarginLeft":27}');

   ProEdit4=MyForm.AddNewProEdit(MyForm, 'ProEdit4', '');
   clComponent.SetupComponent(ProEdit4,'{"Align" : "Center","MarginBottom":150,"Width" :100
   ,"Height":30,"MarginLeft":27}');   
  // ProEdit4.clTypeOfField=taFloat;
   
   ProEdit5=MyForm.AddNewProEdit(MyForm, 'ProEdit5', '');
   clComponent.SetupComponent(ProEdit5,'{"Align" : "Center","MarginBottom":50,"Width" :100
   ,"Height":30,"MarginLeft":27}');  
   
   ProEdit6=MyForm.AddNewProEdit(MyForm, 'ProEdit6', '');
   clComponent.SetupComponent(ProEdit6,'{"Align" : "Center","MarginBottom":550,"Width" :100
   ,"Height":30,"MarginLeft":27}'); 
   
   MyForm.AddNewEvent(ProBtn1,tbeOnClick,'InsertToDatabase');
   
   selectQuery = TclSqlQuery.Create(nil);
   Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-T9RHDI8\SQLEXPRESS', 'sa', '1', 'AracTakip', 1433);
   selectQuery.Connection = Clomosy.DBSQLServerConnection;
   
   AddDataToListView;
   
   MyForm.Run;
 }

Bu şekilde dener misin?
Bilal Candan

Atiker Yazılım Veri İşlem A.Ş.
Software and Artificial Intelligence Development Specialist

[email protected]
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 06 Ağustos 2024 Saat 15:37
Exception Class : EUniError Exception Message : Incorrect syntax near 'ID'.                               
kod clomosyde çalıştı ama sanırım sql taraından böyle bir hata alıyorum. 
Yukarı Dön
zeynepsimsek Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 26 Temmuz 2024
Konum: Konya, Türkiye
Durum: Aktif Değil
Puanlar: 59 		Mesajın Direkt Linki Gönderim Zamanı: 06 Ağustos 2024 Saat 15:42
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; 

bu şekilde yazınca düzeldi teşekkür ederim.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,033 Saniyede Yüklendi.