Clomosy | Forum : kod hatası

Clomosy | Forum : kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 20:55:29 +0000 Sat, 24 May 2025 12:35:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1025 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[kod hatası : Merhaba Gülşen,Try-Except bloğuna...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1025&PID=2050#2050 Yazar: Emr.Erkmn
Konu: 1025
Gönderim Zamanı: 24 Mayıs 2025 Saat 12:35

Merhaba Gülşen,
Try-Except bloğuna bir süslü parantez daha eklemen gerekiyor.

void InsertToDatabase;

{

try

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Region (RegionID,RegionDescripption) VALUES('+edtRegionID.Text+', '+QuotedsStr(edtRegionDesc.Text)+')';

Clomosy.DBSQLServerQuery.ExecSql;

ShowMessage('Veri Ekleme Başarılı');

except

ShowMessage('Exception Class: ' + LastExceptionClassName+'Exception Message: '+ LastExceptionMessage);

}

]]> Sat, 24 May 2025 12:35:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1025&PID=2050#2050 <![CDATA[kod hatası : varMyForm:TclForm;edtRegionID,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1025&PID=2048#2048 Yazar: Gulsen
Konu: 1025
Gönderim Zamanı: 23 Mayıs 2025 Saat 20:26

var

MyForm:TclForm;

edtRegionID,edtRegionDesc:TCLEdit;

buton:TCLButton;

InsertQuery:TclSqlQuery;

void InsertToDatabase;

{

try

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Region (RegionID,RegionDescripption) VALUES('+edtRegionID.Text+', '+QuotedsStr(edtRegionDesc.Text)+')';

Clomosy.DBSQLServerQuery.ExecSql;

ShowMessage('Veri Ekleme Başarılı');

except

ShowMessage('Exception Class: ' + LastExceptionClassName+'Exception Message: '+ LastExceptionMessage);

}

{

MyForm=TclForm.Create(Self);

MyForm.AddNewEvent(MyForm,'edtRegionID','ingilizcesi');

edtRegionID.Margins.Right=150;

MyForm.AddNewEvent(MyForm,'edtRegionDesc','turkcesi');

edtRegionID.Margins.Left=150;

MyForm.AddNewButton(MyForm,'buton', 'kaydet');

buton.Align=albottom;

MyForm.AddNewEvent(buton, tbeOnClick,'InsertToDatabase');

InsertQuery =TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server','(localdb)\MSSQLLocalDB','ClomosyUser','123456','NorthWind',1433);

InsertQuery.Connection=Clomosy.DBSQLServerConnection;

MyForm.Run;

}

Hata olarak sondaki boş satırı yada olmayan ilk satırı veriyor. Kodda 38 satır var ama hata kodu:

Syntax error.
Source position: 39,1
Clomosy Build : 20240709.111531

]]> Fri, 23 May 2025 20:26:07 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1025&PID=2048#2048