Sql Hatası


   var
  loginForm: TclStyleForm;
  Edit, nameEdit: TclEdit;
  loginButton: TclButton;
  userTC, userName: string;
  AddAppointmentUnit, AnaSayfaUnitUnit : TclUnit;

void CreateDatabase;
{
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'UserDatabase.db3', '');
  Clomosy.DBSQLiteQuery.SQL.Text = '
    CREATE TABLE IF NOT EXISTS Users (
      id INTEGER PRIMARY KEY AUTOINCREMENT,
      tc TEXT,  
      name TEXT
    );
    CREATE TABLE IF NOT EXISTS Appointments (
      id INTEGER PRIMARY KEY AUTOINCREMENT,
      DoctorName TEXT,
      AppointmentDate TEXT,
      Notes TEXT,
      UserID TEXT,
      UserName TEXT
    );
  ';
  Clomosy.DBSQLiteQuery.OpenOrExecute();
}

// Kullanıcı bilgilerini veritabanına kaydetme fonksiyonu
void SaveUserInfo;
{
  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Users (tc, name) VALUES (:tc, :name)';
  Clomosy.DBSQLiteQuery.ParamByName('tc').Value = userTC;
  Clomosy.DBSQLiteQuery.ParamByName('name').Value = userName;
  Clomosy.DBSQLiteQuery.OpenOrExecute();

  ShowMessage('Kullanıcı bilgileri kaydedildi.');
  
}

void GoToAnaSayfaUnit;
{

  AnaSayfaUnitUnit = TclUnit.Create;
  AnaSayfaUnitUnit.UnitName = 'AnaSayfaUnitUnit';
  AnaSayfaUnitUnit.CallerForm = loginForm;
  AnaSayfaUnitUnit.Run;
}

// Randevu formuna geçiş
void GoToAddAppointmentUnit;
{
  AddAppointmentUnit = TclUnit.Create;
  AddAppointmentUnit.UnitName = 'AddAppointmentUnit';
  AddAppointmentUnit.CallerForm = loginForm;
  AddAppointmentUnit.Run;
}

{
  loginForm = TclStyleForm.Create(Self);

  // TC edit
  tcEdit = loginForm.AddNewEdit(loginForm, 'tcEdit', 'TC Kimlik Numarası');
  tcEdit.Align = alTop;
  tcEdit.Height = 40;
  tcEdit.Margins.Top = 50;
  tcEdit.Margins.Left = 20;
  tcEdit.Margins.Right = 20;

  nameEdit = loginForm.AddNewEdit(loginForm, 'nameEdit', 'İsim');
  nameEdit.Align = alTop;
  nameEdit.Height = 40;
  nameEdit.Margins.Top = 10;
  nameEdit.Margins.Left = 20;
  nameEdit.Margins.Right = 20;

  loginButton = loginForm.AddNewButton(loginForm, 'loginButton', 'Giriş');
  loginButton.Align = alTop;
  loginButton.Height = 40;
  loginButton.Margins.Top = 20;
  loginButton.Margins.Left = 20;
  loginButton.Margins.Right = 20;


  loginForm.AddNewEvent(loginButton, tbeOnClick, 'SaveUserInfo');

  CreateDatabase(); // Veritabanı oluşturma çağrısı

  loginForm.Run;
}
  bu hatayi alıyorum

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
YusufSoyler Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 11 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 26	Mesaj Seçenekleri Yanıt Yaz Alıntı YusufSoyler Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Sql Hatası Gönderim Zamanı: 05 Ağustos 2024 Saat 17:55
	var loginForm: TclStyleForm; Edit, nameEdit: TclEdit; loginButton: TclButton; userTC, userName: string; AddAppointmentUnit, AnaSayfaUnitUnit : TclUnit; void CreateDatabase; { Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'UserDatabase.db3', ''); Clomosy.DBSQLiteQuery.SQL.Text = ' CREATE TABLE IF NOT EXISTS Users ( id INTEGER PRIMARY KEY AUTOINCREMENT, tc TEXT, name TEXT ); CREATE TABLE IF NOT EXISTS Appointments ( id INTEGER PRIMARY KEY AUTOINCREMENT, DoctorName TEXT, AppointmentDate TEXT, Notes TEXT, UserID TEXT, UserName TEXT ); '; Clomosy.DBSQLiteQuery.OpenOrExecute(); } // Kullanıcı bilgilerini veritabanına kaydetme fonksiyonu void SaveUserInfo; { Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Users (tc, name) VALUES (:tc, :name)'; Clomosy.DBSQLiteQuery.ParamByName('tc').Value = userTC; Clomosy.DBSQLiteQuery.ParamByName('name').Value = userName; Clomosy.DBSQLiteQuery.OpenOrExecute(); ShowMessage('Kullanıcı bilgileri kaydedildi.'); } void GoToAnaSayfaUnit; { AnaSayfaUnitUnit = TclUnit.Create; AnaSayfaUnitUnit.UnitName = 'AnaSayfaUnitUnit'; AnaSayfaUnitUnit.CallerForm = loginForm; AnaSayfaUnitUnit.Run; } // Randevu formuna geçiş void GoToAddAppointmentUnit; { AddAppointmentUnit = TclUnit.Create; AddAppointmentUnit.UnitName = 'AddAppointmentUnit'; AddAppointmentUnit.CallerForm = loginForm; AddAppointmentUnit.Run; } { loginForm = TclStyleForm.Create(Self); // TC edit tcEdit = loginForm.AddNewEdit(loginForm, 'tcEdit', 'TC Kimlik Numarası'); tcEdit.Align = alTop; tcEdit.Height = 40; tcEdit.Margins.Top = 50; tcEdit.Margins.Left = 20; tcEdit.Margins.Right = 20; nameEdit = loginForm.AddNewEdit(loginForm, 'nameEdit', 'İsim'); nameEdit.Align = alTop; nameEdit.Height = 40; nameEdit.Margins.Top = 10; nameEdit.Margins.Left = 20; nameEdit.Margins.Right = 20; loginButton = loginForm.AddNewButton(loginForm, 'loginButton', 'Giriş'); loginButton.Align = alTop; loginButton.Height = 40; loginButton.Margins.Top = 20; loginButton.Margins.Left = 20; loginButton.Margins.Right = 20; loginForm.AddNewEvent(loginButton, tbeOnClick, 'SaveUserInfo'); CreateDatabase(); // Veritabanı oluşturma çağrısı loginForm.Run; } bu hatayi alıyorum

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 05 Ağustos 2024 Saat 18:08
	Merhaba Yusuf, Aşağıdaki kodu inceler misin: var loginForm: TclStyleForm; tcEdit, nameEdit: TclEdit; loginButton: TclButton; userTC, userName: string; AddAppointmentUnit, AnaSayfaUnitUnit : TclUnit; void CreateDatabase; { Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'UserDatabase.db3', ''); Clomosy.DBSQLiteQuery.SQL.Text = ' CREATE TABLE IF NOT EXISTS Users ( id INTEGER PRIMARY KEY AUTOINCREMENT, tc TEXT, name TEXT ); CREATE TABLE IF NOT EXISTS Appointments ( id INTEGER PRIMARY KEY AUTOINCREMENT, DoctorName TEXT, AppointmentDate TEXT, Notes TEXT, UserID TEXT, UserName TEXT ); '; Clomosy.DBSQLiteQuery.OpenOrExecute(); } // Kullanıcı bilgilerini veritabanına kaydetme fonksiyonu void SaveUserInfo; { Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Users (tc, name) VALUES (:tc, :name)'; Clomosy.DBSQLiteQuery.ParamByName('tc').Value = userTC; Clomosy.DBSQLiteQuery.ParamByName('name').Value = userName; Clomosy.DBSQLiteQuery.OpenOrExecute(); ShowMessage('Kullanıcı bilgileri kaydedildi.'); } void GoToAnaSayfaUnit; { AnaSayfaUnitUnit = TclUnit.Create; AnaSayfaUnitUnit.UnitName = 'AnaSayfaUnitUnit'; AnaSayfaUnitUnit.CallerForm = loginForm; AnaSayfaUnitUnit.Run; } // Randevu formuna geçiş void GoToAddAppointmentUnit; { AddAppointmentUnit = TclUnit.Create; AddAppointmentUnit.UnitName = 'AddAppointmentUnit'; AddAppointmentUnit.CallerForm = loginForm; AddAppointmentUnit.Run; } { loginForm = TclStyleForm.Create(Self); // TC edit tcEdit = loginForm.AddNewEdit(loginForm, 'tcEdit', 'TC Kimlik Numarası'); tcEdit.Align = alTop; tcEdit.Height = 40; tcEdit.Margins.Top = 50; tcEdit.Margins.Left = 20; tcEdit.Margins.Right = 20; nameEdit = loginForm.AddNewEdit(loginForm, 'nameEdit', 'İsim'); nameEdit.Align = alTop; nameEdit.Height = 40; nameEdit.Margins.Top = 10; nameEdit.Margins.Left = 20; nameEdit.Margins.Right = 20; loginButton = loginForm.AddNewButton(loginForm, 'loginButton', 'Giriş'); loginButton.Align = alTop; loginButton.Height = 40; loginButton.Margins.Top = 20; loginButton.Margins.Left = 20; loginButton.Margins.Right = 20; loginForm.AddNewEvent(loginButton, tbeOnClick, 'SaveUserInfo'); CreateDatabase(); // Veritabanı oluşturma çağrısı loginForm.Run; }