Local Connection Not Ready

// veritabanında bulunan spor salonları kullanıcının seçim yapması üzerine listelenir.

//Filtre butonu ile filtre menüsü açılır ve comboboxtan seçilen değerlere göre filtreleme işlemi yapılır.

//Spor salonu seçildiğinde kullanıcı bilgilerinin alınacağı kullanıcı kayıt sayfasına yönlendirir

Var   

SporSalonlari:TclForm;

SporSalonlariListView: TClListView;

SporSalonuAd,SporSalonuKonum:TClProLabel;

SporSalonlariSearchEdit: TClProSearchEdit;

filtreBtn,uygulaBtn:TClProButton;

filtreMenu:TclMenuFrame;

sehirCombo,ilceCombo:TCLComboBox;

kullaniciKayitUnit:TclUnit;

database, password : String;

Qry : TClSQLiteQuery;

i:Integer;

void AddDataToListview

{

  try

  if(i==0){

    Qry = Clomosy.DBSQLiteQueryWith('SELECT SalonAdi as MAIN_TEXT, SalonSehir as SUB_TEXT,SalonIlce as FOOTER_TEXT from SalonBilgi');

    Qry.OpenOrExecute;

  }

  else {

  Qry = Clomosy.DBSQLiteQueryWith('SELECT SalonAdi as MAIN_TEXT, SalonSehir as SUB_TEXT,SalonIlce as FOOTER_TEXT from SalonBilgi 

  Where SalonSehir LIKE  '+QuotedStr('%'+sehirCombo.GetItemIndex(sehirCombo.ItemIndex)+'%')+' and SalonIlce LIKE  '+QuotedStr('%'+ilceCombo.GetItemIndex(ilceCombo.ItemIndex)+'%')); 

  Qry.OpenOrExecute;

    }

      SporSalonlariListView.clLoadListViewDataFromDataset(Qry)

    

  except

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

  }

}

void GoToKullaniciGirisUnit;

{

  SporSalonlari.clShow;

  kullaniciKayitUnit.UnitName = 'kullaniciKayitUnit';

  kullaniciKayitUnit.CallerForm = SporSalonlari;

  kullaniciKayitUnit.Run;

}

void ShowFiltreMenuFrame;

{

  filtreMenu.Visible = True;

  clRTMethod(filtreMenu, 'BringToFront');

}

void HideFiltreMenuFrame;

{

  AddDataToListview;

  filtreMenu.Visible = False;

  clRTMethod(uygulaBtn, 'BringToFront');

}

void sehirComboDataLoad

 var

   sehirlerQuery :TClSQLiteQuery;

 {

   sehirlerQuery = TClSQLiteQuery.Create(Nil);

   

   try

     sehirlerQuery = Clomosy.DBSQLiteQueryWith('SELECT DISTINCT SalonSehir FROM SalonBilgi');

     sehirlerQuery.OpenOrExecute;

     while (not sehirlerQuery.Eof)

     {

       sehirCombo.AddItem(sehirlerQuery.FieldByName('SporSalonuSehir').AsString,'');

       sehirlerQuery.Next;

     }

   except

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

   }

 }

void sehirComboChanged;

 var

   ilcelerQuery :TClSQLiteQuery;

 {

   ilcelerQuery = TClSQLiteQuery.Create(Nil);

   

     ilceCombo.Clear;

     ilceCombo.AddItem('Seçiniz','');

   try

     ilcelerQuery = Clomosy.DBSQLiteQueryWith('SELECT DISTINCT SporSalonuIlce FROM SalonBilgi Where SporSalonuSehir LIKE  '+QuotedStr('%'+sehirCombo.GetItemIndex(sehirCombo.ItemIndex)+'%'));

     ilcelerQuery.OpenOrExecute;;

     while (not ilcelerQuery.Eof)

     {

     

       ilceCombo.AddItem(ilcelerQuery.FieldByName('SporSalonuIlce').AsString,'');

       ilcelerQuery.Next;

     }

   finally

     ilcelerQuery.Free;

   }

 

  i=i+1;

}

void ItemSelected

var

stringValue:string;

{

 stringValue = SporSalonlariListView.clSelectedItemData('MAIN_TEXT');

  if(stringValue=='Çankaya Spor Salonu')

  {

    ShowMessage('Seçilen spor salonunun kontenjanı doludur');  

  }

  else

  {

    GoToKullaniciGirisUnit;

  }

}

{

  SporSalonlari = TclForm.Create(Self);

  SporSalonlari.SetFormColor('#131842', '', clGNone);

  kullaniciKayitUnit=TclUnit.Create;

  

  i=0;

  

  filtreMenu = SporSalonlari.AddNewMenuFrame(SporSalonlari,'filtreMenu');

  filtreMenu.Align = alContents;

  filtreMenu.Margins.Top = 50;

  filtreMenu.MenuBar.Width = 250;

  filtreMenu.Visible = False;

  filtreMenu.ClMenuPosition = clRight;

 

  filtreBtn = SporSalonlari.AddNewProButton(SporSalonlari, 'filtreBtn', '');

  clComponent.SetupComponent(filtreBtn,'{

    "MarginBottom":700,

    "MarginLeft":298,

    "Width":80,

    "Height":40,

    "RoundHeight":10,

    "RoundWidth":10,

    "TextColor" : "#e57e38",

    "TextBold" : "yes",

    "TextSize":20,

    "BorderColor":"#9DDE8B",

    "BorderWidth":2,

    "BackgroundColor":"#006769"

  }');

  SporSalonlari.AddNewEvent(filtreBtn, tbeOnClick, 'ShowFiltreMenuFrame');

  SporSalonlari.SetImage(filtreBtn,'https://i.imgur.com/sOqdfux.png');

  

  uygulaBtn = SporSalonlari.AddNewProButton(filtreMenu.VertScrollBox, 'uygulaBtn', 'Uygula');

  clComponent.SetupComponent(uygulaBtn,'{

    "Align":"Bottom",

    "Width":100,

    "Height":50,

    "RoundHeight":10,

    "RoundWidth":10,

    "TextColor" : "#ffffff",

    "TextBold" : "yes",

    "TextSize":20,

    "BorderColor":"#9DDE8B",

    "BorderWidth":2,

    "BackgroundColor":"#006769"

  }');

  

 

  sehirCombo = SporSalonlari.AddNewComboBox(filtreMenu.VertScrollBox,'sehirCombo');

  sehirCombo.Align = alTop;

  sehirCombo.Width = 150;

  sehirCombo.Margins.Top=10;

  sehirCombo.Margins.Left =50;

  sehirCombo.Margins.Right =50;

  sehirCombo.AddItem('Seçiniz','');

  sehirComboDataLoad;

  ilceCombo = SporSalonlari.AddNewComboBox(filtreMenu.VertScrollBox,'ilceCombo');

  ilceCombo.Align = alTop;

  ilceCombo.Width = 150;

  ilceCombo.Margins.Top=10;

  ilceCombo.Margins.Left =50;

  ilceCombo.Margins.Right =50;

  ilceCombo.AddItem('Seçiniz','');

  SporSalonlari.AddNewEvent(sehirCombo,tbeOnChange,'sehirComboChanged');

  

  SporSalonlariListView=SporSalonlari.AddNewListView(SporSalonlari, 'SporSalonlariListView');

  SporSalonlariListView.align=alClient;

  

  SporSalonlari.AddNewEvent(uygulaBtn, tbeOnClick, 'HideFiltreMenuFrame');

  

  SporSalonlari.AddNewEvent(SporSalonlariListView,tbeOnItemClick,'ItemSelected');

  

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'SporSalonlari.db', '');

  

  AddDataToListview;

  

  SporSalonlari.Run;

}

Tablo mevcur olmasına rağmen bu hatayı verdi bu sefer de.

Tablo create'ni sizin paylaştığınız kod içerisinde bulamadım. Farklı bir yerde mi yaptınız tablo create kodlamasını.