Clomosy | Forum : SQL

Clomosy | Forum : SQL https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 04:33:56 +0000 Wed, 18 Feb 2026 10:58:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1353 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[SQL : Merhaba Ebrar,https://static.c...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3055#3055 Yazar: Emr.Erkmn
Konu: 1353
Gönderim Zamanı: 18 Şubat 2026 Saat 10:58

Merhaba Ebrar,
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Clomosy de TRObject dilinde yazıyoruz o yüzden kodlamanı bu şekilde yaparsan hata oranın daha da azalır

]]> Wed, 18 Feb 2026 10:58:57 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3055#3055 <![CDATA[SQL : veritabanına bağlandı teşekkürler:)...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3050#3050 Yazar: ebrarflz
Konu: 1353
Gönderim Zamanı: 18 Şubat 2026 Saat 09:29

veritabanına bağlandı teşekkürler:)]]> Wed, 18 Feb 2026 09:29:12 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3050#3050 <![CDATA[SQL : var MyForm: TclForm; EdtAd, EdtSoyad:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3038#3038 Yazar: M-Guney
Konu: 1353
Gönderim Zamanı: 17 Şubat 2026 Saat 18:32

var

MyForm: TclForm;

EdtAd, EdtSoyad: TclEdit;

BtnKaydet: TclButton;

MemoListe: TclMemo;

LytUst: TclLayout;

void ListeyiYenile;

{

try

// SORGULAMA İŞLEMİ (SELECT)

Clomosy.DBSQLServerQuery.Sql.Text = 'SELECT Ad, Soyad FROM Musteriler ORDER BY Ad ASC';

Clomosy.DBSQLServerQuery.Open;

MemoListe.Lines.Clear;

MemoListe.Lines.Add('--- KAYITLI MÜŞTERİLER ---');

MemoListe.Lines.Add('--------------------------');

if (Clomosy.DBSQLServerQuery.Found)

{

Clomosy.DBSQLServerQuery.First;

while (not Clomosy.DBSQLServerQuery.EOF)

{

MemoListe.Lines.Add('👤 ' + Clomosy.DBSQLServerQuery.FieldByName('Ad').AsString + ' ' +

Clomosy.DBSQLServerQuery.FieldByName('Soyad').AsString);

Clomosy.DBSQLServerQuery.Next;

}

else

{

MemoListe.Lines.Add('Henüz kayıt bulunamadı.');

}

except

ShowMessage('Liste güncellenirken hata oluştu.');

}

void MusteriEkle;

{

// Ad veya Soyad boş mu kontrolü

if ((EdtAd.Text == '') || (EdtSoyad.Text == ''))

{

ShowMessage('Lütfen Ad ve Soyad giriniz!');

Exit;

}

try

// KAYIT İŞLEMİ (INSERT)

Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Musteriler (Ad, Soyad) VALUES (' +

QuotedStr(EdtAd.Text) + ',' + QuotedStr(EdtSoyad.Text) + ')';

Clomosy.DBSQLServerQuery.ExecSql;

EdtAd.Text = '';

EdtSoyad.Text = '';

ShowMessage('Müşteri başarıyla kaydedildi!');

ListeyiYenile;

except

ShowMessage('Kayıt işlemi sırasında bir hata oluştu.');

}

void VeritabaniHazirla;

{

// BAĞLANTI AYARLARI (DB Found / Bağlantı Kontrolü)

if (Clomosy.DBSQLServerConnect('SQL Server', 'IP', 'USER', 'PASS', 'DatabaseName', 1433))

{

// TABLO OLUŞTURMA

Clomosy.DBSQLServerQuery.Sql.Text = 'IF NOT EXISTS (SELECT * FROM sysobjects WHERE name=''Musteriler'' and xtype=''U'') ' +

'CREATE TABLE Musteriler (Ad VARCHAR(50), Soyad VARCHAR(50))';

Clomosy.DBSQLServerQuery.ExecSql;

ListeyiYenile;

}

else

{

ShowMessage('Bağlantı Başarısız: Veritabanı bulunamadı veya sunucuya erişilemiyor.');

}

{ // --- ANA BLOK (MAIN) ---

MyForm = TclForm.Create(Self);

MyForm.SetFormColor('#f4f4f9', '', clGNone);

LytUst = MyForm.AddNewLayout(MyForm, 'LytUst');

LytUst.Align = alTop;

LytUst.Height = 150;

LytUst.Margins.Left = 10;

LytUst.Margins.Right = 10;

EdtAd = MyForm.AddNewEdit(LytUst, 'EdtAd', 'Ad');

EdtAd.Align = alTop;

EdtAd.Margins.Top = 10;

EdtSoyad = MyForm.AddNewEdit(LytUst, 'EdtSoyad', 'Soyad');

EdtSoyad.Align = alTop;

EdtSoyad.Margins.Top = 5;

BtnKaydet = MyForm.AddNewButton(LytUst, 'BtnKaydet', 'Müşteriyi Kaydet');

BtnKaydet.Align = alBottom;

BtnKaydet.Height = 40;

MyForm.AddNewEvent(BtnKaydet, tbeOnClick, 'MusteriEkle');

MemoListe = MyForm.AddNewMemo(MyForm, 'MemoListe', '');

MemoListe.Align = alClient;

MemoListe.Margins.Top = 10;

MemoListe.ReadOnly = True;

MemoListe.TextSettings.Font.Size = 14;

VeritabaniHazirla;

MyForm.Run;

}

Bu şekilde deneyebilirsiniz.

]]> Tue, 17 Feb 2026 18:32:06 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3038#3038 <![CDATA[SQL : var MyForm: TclForm; EdtAd, EdtSoyad:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3035#3035 Yazar: ebrarflz
Konu: 1353
Gönderim Zamanı: 17 Şubat 2026 Saat 17:31

var

MyForm: TclForm;

EdtAd, EdtSoyad: TclEdit;

BtnKaydet: TclButton;

MemoListe: TclMemo;

LytUst: TclLayout;

procedure ListeyiYenile;

begin

try

Clomosy.DBSQLServerQuery.Sql.Text := 'SELECT Ad, Soyad FROM Musteriler ORDER BY Ad ASC';

Clomosy.DBSQLServerQuery.Open;

MemoListe.Lines.Clear;

MemoListe.Lines.Add('--- KAYITLI MÜŞTERİLER ---');

MemoListe.Lines.Add('--------------------------');

if Clomosy.DBSQLServerQuery.Found then

begin

while not Clomosy.DBSQLServerQuery.EOF do

begin

MemoListe.Lines.Add('👤 ' + Clomosy.DBSQLServerQuery.FieldByName('Ad').AsString + ' ' +

Clomosy.DBSQLServerQuery.FieldByName('Soyad').AsString);

Clomosy.DBSQLServerQuery.Next;

end;

end

else

MemoListe.Lines.Add('Henüz kayıt bulunamadı.');

except

ShowMessage('Liste güncellenirken hata oluştu: ' + LastExceptionMessage);

end;

procedure MusteriEkle;

begin

if (EdtAd.Text = '') or (EdtSoyad.Text = '') then

begin

ShowMessage('Lütfen Ad ve Soyad giriniz!');

Exit;

end;

try

Clomosy.DBSQLServerQuery.Sql.Text := 'INSERT INTO Musteriler (Ad, Soyad) VALUES (' +

QuotedStr(EdtAd.Text) + ',' + QuotedStr(EdtSoyad.Text) + ')';

Clomosy.DBSQLServerQuery.Execute(0, 0);

EdtAd.Text := ''; EdtSoyad.Text := '';

ShowMessage('Müşteri başarıyla kaydedildi!');

ListeyiYenile;

except

ShowMessage('Kayıt hatası: ' + LastExceptionMessage);

end;

procedure VeritabaniHazirla;

begin

try

Clomosy.DBSQLServerConnect(0, 'IP_ADRESI', 'Kullanici', 'SIFRE', 'DB_ADI', 1433);

Clomosy.DBSQLServerQuery.Sql.Text := 'IF NOT EXISTS (SELECT * FROM sysobjects WHERE name=''Musteriler'' and xtype=''U'') ' +

'CREATE TABLE Musteriler (Ad VARCHAR(50), Soyad VARCHAR(50))';

Clomosy.DBSQLServerQuery.Execute(0, 0);

ListeyiYenile;

except

ShowMessage('Bağlantı Başarısız: ' + LastExceptionMessage);

end;

begin

MyForm := TclForm.Create(Self);

MyForm.SetFormColor('#f4f4f9', '', clGNone);

LytUst := MyForm.AddNewLayout(MyForm, 'LytUst');

LytUst.Align := alTop;

LytUst.Height := 150;

LytUst.Margins.Left := 10; LytUst.Margins.Right := 10;

EdtAd := MyForm.AddNewEdit(LytUst, 'EdtAd', 'Ad');

EdtAd.Align := alTop; EdtAd.Margins.Top := 10;

EdtSoyad := MyForm.AddNewEdit(LytUst, 'EdtSoyad', 'Soyad');

EdtSoyad.Align := alTop; EdtSoyad.Margins.Top := 5;

BtnKaydet := MyForm.AddNewButton(LytUst, 'BtnKaydet', 'Müşteriyi Kaydet');

BtnKaydet.Align := alBottom;

BtnKaydet.Height := 40;

MyForm.AddNewEvent(BtnKaydet, tbeOnClick, 'MusteriEkle');

MemoListe := MyForm.AddNewMemo(MyForm, 'MemoListe', '');

MemoListe.Align := alClient;

MemoListe.Margins.Top := 10;

MemoListe.ReadOnly := True;

MemoListe.TextSettings.Font.Size := 14;

VeritabaniHazirla;

MyForm.Run;

end;

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 17 Feb 2026 17:31:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3035#3035 <![CDATA[SQL : Kodu iletebilrsen hatanı inceleyebilirim.....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3034#3034 Yazar: M-Guney
Konu: 1353
Gönderim Zamanı: 17 Şubat 2026 Saat 17:04

Kodu iletebilrsen hatanı inceleyebilirim.

.]]> Tue, 17 Feb 2026 17:04:36 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3034#3034 <![CDATA[SQL : DBSQLServerConnect de sorun yaşıyorum...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3033#3033 Yazar: ebrarflz
Konu: 1353
Gönderim Zamanı: 17 Şubat 2026 Saat 17:01

DBSQLServerConnect de sorun yaşıyorum bir çok şey denedim fakat proje çalıştığında kayıt hatası yaşıyorum öneriniz var mı acaba?https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 17 Feb 2026 17:01:49 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1353&PID=3033#3033