Clomosy ile değişken kullanımı

Sayfayı Yazdır | Pencereyi Kapat

SQL

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1353
Tarih: 17 Şubat 2026 Saat 20:44
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: SQL

Mesajı Yazan: ebrarflz
Konu: SQL
Mesaj Tarihi: 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" rel="nofollow - 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">

Cevaplar:

Mesajı Yazan: M-Guney
Mesaj Tarihi: 17 Şubat 2026 Saat 17:04

Kodu iletebilrsen hatanı inceleyebilirim.

.

Mesajı Yazan: ebrarflz
Mesaj Tarihi: 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" rel="nofollow - 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">

Mesajı Yazan: M-Guney
Mesaj Tarihi: 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.