Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - SQL
  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.

SQL
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ebrarflz Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 40 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: SQL
    Gönderim Zamanı: 3 Saat 42 Dakika Önce 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">
Yukarı Dön
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 200 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 39 Dakika Önce Saat 17:04
Kodu iletebilrsen hatanı inceleyebilirim.




.
Yukarı Dön
ebrarflz Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 40 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 12 Dakika Önce 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;
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;
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;
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">
Yukarı Dön
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 200 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 11 Dakika Önce 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.
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,047 Saniyede Yüklendi.