Clomosy | Forum : SQL Server

Clomosy | Forum : SQL Server https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:54:58 +0000 Tue, 30 Jul 2024 16:21:24 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=768 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[SQL Server : Yukarıda sorguyu QuotedStr ile...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1298#1298 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 16:21

Yukarıda sorguyu QuotedStr ile doğru hale getirdim ve tarih formatını da doğru hale getirdim. Databasenizi kontrol edin.]]> Tue, 30 Jul 2024 16:21:24 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1298#1298 <![CDATA[SQL Server : varkayitOl: TclForm;userName,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1297#1297 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 16:20

var

kayitOl: TclForm;

userName, password, email: TClProEdit;

kayitOlPanel1, girisPanel1: TclProPanel;

nameKayit, surNameKayit, userNameKayit, PasswordKayit, emailKayit, Yas: TClProEdit;

dogumTarihi: TClProDateEdit;

girisButton, kayitButton, kayitOlButton: TClProButton;

dogumTarihiLabel: TCLProLabel;

kayitInsertQuery: TclSqlQuery;

AnaSayfa: TclUnit;

seyahatImg: TCLImage;

gun,ay,yil, dogruTarih: TclString;

sayac: TclInteger;

void InsertToDatabase;

{

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Users (users_name, users_surname, users_username, users_password, users_email, users_age, users_dateOfBirth) VALUES (' + QuotedStr(nameKayit.Text) + ', ' + QuotedStr(surNameKayit.Text) + ', ' + QuotedStr(userNameKayit.Text) + ', ' + QuotedStr(PasswordKayit.Text) + ', ' + QuotedStr(emailKayit.Text) + ', ' + QuotedStr(Yas.Text) + ', ' + QuotedStr(dogruTarih) + ')';

Clomosy.DBSQLServerQuery.ExecSql;

}

{

kayitOl=TclForm.Create(self);

kayitOl.SetFormBGImage('https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg');

kayitOlPanel1=kayitOl.AddNewProPanel(kayitOl,'girisPanel1');

clComponent.SetupComponent(kayitOlPanel1,

'{"Align" : "Center",

"MarginBottom":100,

"MarginTop":100,

"Width" :400,

"Height":500,

"RoundHeight":20,

"RoundWidth":20,

"BackGroundColor":"#faf0f6"

}');

nameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'nameKayit', 'İsim:');

clComponent.SetupComponent(nameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

surNameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'surNameKayit', 'Soyİsim:');

clComponent.SetupComponent(surNameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

userNameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'userNameKayit', 'Kullanıcı Adı Belirleyiniz:');

clComponent.SetupComponent(userNameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

PasswordKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'PasswordKayit', 'Şifre Belirleyiniz:');

clComponent.SetupComponent(PasswordKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null",

"Password":"False"

}');

PasswordKayit.Password = True;

emailKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'emailKayit', 'Email Belirleyiniz:');

clComponent.SetupComponent(emailKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

Yas=kayitOl.AddNewProEdit(kayitOlPanel1, 'Yas', 'Yaş Bilgisi:');

clComponent.SetupComponent(Yas,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

Yas.clTypeOfField = taFloat;

dogumTarihiLabel=kayitOl.AddNewProLabel(kayitOlPanel1, 'dogumTarihiLabel', 'Doğum Tarihi:');

clComponent.SetupComponent(dogumTarihiLabel,'{

"Width" :150,

"Height":40,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null",

"MarginLeft":50,

"MarginRight":200

}');

dogumTarihi = kayitOl.AddNewProDateEdit(kayitOlPanel1,'dogumTarihi');

clComponent.SetupComponent(dogumTarihi,'{

"Width" :150,

"Height":40,

"RoundHeight":10,

"TextColor": "#133f87",

"RoundWidth":10,

"BorderColor":"#6f86d1",

"BorderWidth":2,

"BackgroundColor":"null",

"TextSize" : 18,

"TextVerticalAlign" : "Center",

"TextHorizontalAlign" : "Center",

"MarginLeft":200,

"MarginRight":50

}');

kayitOlButton=kayitOl.AddNewProButton(kayitOlPanel1, 'kayitOlButton', 'Kayıt Ol');

clComponent.SetupComponent(kayitOlButton,'{

"Align":"Bottom",

"TextColor":"#526fcc",

"TextWidth":400,

"TextHeight":200,

"TextSize":17,

"Width" :200,

"Height":50,

"RoundHeight":2,

"RoundWidth":2,

"BorderColor":"#617bcf",

"BorderWidth":2,

"TextBold":"yes",

"BackGroundColor":"null"

}');

kayitInsertQuery = TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server', 'myserver9363.database.windows.net', 'azureuser', 'SES1234sizlik', 'yeniSeyahat', 1433);

kayitInsertQuery.Connection = Clomosy.DBSQLServerConnection;

kayitOl.AddNewEvent(kayitOlButton,tbeOnClick,'InsertToDatabase');

gun = clGetStringTo(dogumTarihi.Date,'.');

yil = clGetStringAfter(dogumTarihi.Date, '.');

ay = clGetStringTo(yil, '.');

yil = clGetStringAfter(yil, '.');

dogruTarih = yil + '-' + ay + '-' + gun;

kayitOl.Run;

}

]]> Tue, 30 Jul 2024 16:20:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1297#1297 <![CDATA[SQL Server : İki adet sorun buldum. Bunlardan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1296#1296 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 15:59

İki adet sorun buldum. Bunlardan birincisi SQL Sorgusu atarken her türlü QuotedStr kullanmak gerekiyor. Diğer bir hata ise yukarıda belirttiğim gibi sql Date değeri sadece YYYY-MM-DD formatı kabul eder. Yani 2024-02-24 gibi fakat ProDateEdit 24.02.2024 şeklinde vermekte. Kodu düzeltip aşağıya atacağım.]]> Tue, 30 Jul 2024 15:59:20 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1296#1296 <![CDATA[SQL Server : Kodun tamamını değil fakat ilgili...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1293#1293 Yazar: rabiagnbs
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 15:29

Kodun tamamını değil fakat ilgili kısmı gönderiyorum:

var

giris, kayitOl: TclForm;

userName, password, email: TClProEdit;

kayitOlPanel1, girisPanel1: TclProPanel;

nameKayit, surNameKayit, userNameKayit, PasswordKayit, emailKayit, Yas: TClProEdit;

dogumTarihi: TClProDateEdit;

girisButton, kayitButton, kayitOlButton: TClProButton;

dogumTarihiLabel: TCLProLabel;

kayitInsertQuery: TclSqlQuery;

AnaSayfa: TclUnit;

seyahatImg: TCLImage;

void InsertToDatabase;

{

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Users (users_name, users_surname, users_username, users_password, users_email, users_age, users_dateOfBirth) VALUES ('+nameKayit.Text+', '+surNameKayit.Text+', '+userNameKayit.Text+', '+PasswordKayit.Text+', '+emailKayit.Text+', '+Yas.Text+', '+dogumTarihi.Text+')';

Clomosy.DBSQLServerQuery.ExecSql;

}

void KayitOlSayfa;

{

kayitOl=TclForm.Create(self);

kayitOl.SetFormBGImage('https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg');

kayitOlPanel1=kayitOl.AddNewProPanel(kayitOl,'girisPanel1');

clComponent.SetupComponent(kayitOlPanel1,

'{"Align" : "Center",

"MarginBottom":100,

"MarginTop":100,

"Width" :400,

"Height":500,

"RoundHeight":20,

"RoundWidth":20,

"BackGroundColor":"#faf0f6"

}');

nameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'nameKayit', 'İsim:');

clComponent.SetupComponent(nameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

surNameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'surNameKayit', 'Soyİsim:');

clComponent.SetupComponent(surNameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

userNameKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'userNameKayit', 'Kullanıcı Adı Belirleyiniz:');

clComponent.SetupComponent(userNameKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

PasswordKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'PasswordKayit', 'Şifre Belirleyiniz:');

clComponent.SetupComponent(PasswordKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null",

"Password":"False"

}');

PasswordKayit.Password = True;

emailKayit=kayitOl.AddNewProEdit(kayitOlPanel1, 'emailKayit', 'Email Belirleyiniz:');

clComponent.SetupComponent(emailKayit,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

Yas=kayitOl.AddNewProEdit(kayitOlPanel1, 'Yas', 'Yaş Bilgisi:');

clComponent.SetupComponent(Yas,'{

"Align":"Top",

"Width" :200,

"Height":50,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

Yas.clTypeOfField = taFloat;

dogumTarihiLabel=kayitOl.AddNewProLabel(kayitOlPanel1, 'dogumTarihiLabel', 'Doğum Tarihi:');

clComponent.SetupComponent(dogumTarihiLabel,'{

"Width" :150,

"Height":40,

"TextColor":"#133f87",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#6f86d1",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null",

"MarginLeft":50,

"MarginRight":200

}');

dogumTarihi = kayitOl.AddNewProDateEdit(kayitOlPanel1,'dogumTarihi');

clComponent.SetupComponent(dogumTarihi,'{

"Width" :150,

"Height":40,

"RoundHeight":10,

"TextColor": "#133f87",

"RoundWidth":10,

"BorderColor":"#6f86d1",

"BorderWidth":2,

"BackgroundColor":"null",

"TextSize" : 18,

"TextVerticalAlign" : "Center",

"TextHorizontalAlign" : "Center",

"MarginLeft":200,

"MarginRight":50

}');

kayitOlButton=kayitOl.AddNewProButton(kayitOlPanel1, 'kayitOlButton', 'Kayıt Ol');

clComponent.SetupComponent(kayitOlButton,'{

"Align":"Bottom",

"TextColor":"#526fcc",

"TextWidth":400,

"TextHeight":200,

"TextSize":17,

"Width" :200,

"Height":50,

"RoundHeight":2,

"RoundWidth":2,

"BorderColor":"#617bcf",

"BorderWidth":2,

"TextBold":"yes",

"BackGroundColor":"null"

}');

kayitInsertQuery = TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server', 'myserver9363.database.windows.net', 'azureuser', 'SES1234sizlik', 'yeniSeyahat', 1433);

kayitInsertQuery.Connection = Clomosy.DBSQLServerConnection;

kayitOl.AddNewEvent(kayitOlButton,tbeOnClick,'InsertToDatabase');

kayitOl.Run;

}

]]> Tue, 30 Jul 2024 15:29:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1293#1293 <![CDATA[SQL Server : Kodun tamamını atabilir misiniz?...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1288#1288 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 15:20

Kodun tamamını atabilir misiniz?]]> Tue, 30 Jul 2024 15:20:37 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1288#1288 <![CDATA[SQL Server : syntax hatası almaya devam ediyorum...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1287#1287 Yazar: rabiagnbs
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 15:17

syntax hatası almaya devam ediyorum sıkıntı ne olabilir: Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Users (users_name, users_surname, users_username, users_password, users_email, users_age, users_dateOfBirth) VALUES ('+nameKayit.Text+', '+surNameKayit.Text+', '+userNameKayit.Text+', '+PasswordKayit.Text+', '+emailKayit.Text+', '+Yas.Text+', '+dogumTarihi.Text+')';

Clomosy.DBSQLServerQuery.ExecSql;

]]> Tue, 30 Jul 2024 15:17:11 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1287#1287 <![CDATA[SQL Server : SQL tarafında Date bilgisi 2024-07-30...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1286#1286 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 14:45

SQL tarafında Date bilgisi 2024-07-30 formatında tutuluyor. Eğer aynı formatta ise text olarak query atabilirsin. Ve aynı şekilde Integer verileri string olarak query atabilirsin kabul eder. ]]> Tue, 30 Jul 2024 14:45:57 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1286#1286 <![CDATA[SQL Server : doğum tarihini zaten bu şekilde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1285#1285 Yazar: rabiagnbs
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 14:40

doğum tarihini zaten bu şekilde tanımlamıştım: dogumTarihi: TClProDateEdit; ama tablo kısmında da date veri tipinde olduğu için verileri tabloya insert ile kaydederken text yerine ne yazabilirim onu bilemedim. bir de yas kısmı da hem tabloda hem kodda int olarak tanımlı yine onu da text şeklinde alırsam sıkıntı olur mu?]]> Tue, 30 Jul 2024 14:40:06 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1285#1285 <![CDATA[SQL Server : Yas.Text alırken QuotedStr kullanmışsın....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1283#1283 Yazar: OlgunAgac
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 14:35

Yas.Text alırken QuotedStr kullanmışsın. Eğer bir edit nesnesinden çekiyorsan .Text zaten string değeri döndürür.

TclDateTime diye bir nesne var.

var

gecerliTarih:TclDateTime;

{

gecerliTarih = Date; // gecerliTarih, şu anki tarihi içerir (saat bilgisi olmadan) ShowMessage(gecerliTarih);

}

]]> Tue, 30 Jul 2024 14:35:23 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1283#1283 <![CDATA[SQL Server : buradaki hata nedir verileri geçersiz...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1281#1281 Yazar: rabiagnbs
Konu: 768
Gönderim Zamanı: 30 Temmuz 2024 Saat 14:26

buradaki hata nedir verileri geçersiz sayıyor. Bir de date kısmı tabloda tarih veri tipi olarak kayıtlı burada text dışında belirleyeceğim şekli var mı : void InsertToDatabase;

{

try

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Users (users_name, users_surname, users_username, users_password, users_email,

users_age, users_dateOfBirth) VALUES ('+nameKayit.Text+', '+surNameKayit.Text+', '+userNameKayit.Text+',

'+PasswordKayit.Text+', '+emailKayit.Text+', '+QuotedStr(Yas.Text)+', '+dogumTarihi.Text+')';

Clomosy.DBSQLServerQuery.ExecSql;

except

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

}

]]> Tue, 30 Jul 2024 14:26:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=768&PID=1281#1281