Clomosy | Forum : SQL Server Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 13:14:53 +0000 Thu, 17 Jul 2025 11:42:31 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1077 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[SQL Server Hatası : Merhaba Turgut ,yazdığın kodu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2230#2230 Yazar: Sudesigirci
Konu: 1077
Gönderim Zamanı: 17 Temmuz 2025 Saat 11:42

Merhaba Turgut ,
yazdığın kodu kendi serverımda aşağıdaki şekilde çalıştırdığımda bağlaantı sorunuyla karşılaşmadım yazdığım formatta deneyebilir misin 

/* ---------- SQL Server bağlantısı ---------- */
if not Clomosy.DBSQLServerConnect(
       'SQL Server','LENOVA\ATIKER','sa','1','SUDE25',1433                    
     ) {
  ShowMessage('Veritabanına bağlanılamadı. Sunucu veya kimlik bilgilerini kontrol edin.');
  Exit;   // Bağlantı yoksa formu açmıyoruz
};

tek '\' kullanmıştım ben hep projelerde
]]> Thu, 17 Jul 2025 11:42:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2230#2230 <![CDATA[SQL Server Hatası : Merhaba Turgut,SQL Server bağlanırken...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2195#2195 Yazar: ztashia
Konu: 1077
Gönderim Zamanı: 14 Temmuz 2025 Saat 15:57

Merhaba Turgut,

SQL Server bağlanırken ip adresinden port üzerinden bağlanmak önerilir "\" veya "\\" ile baglanti sorunlar çıkarabilir. ip üzerinden bağlanırsan sorunun düzeleceğine inanıyorum.

İyi Çalışmalar.
]]> Mon, 14 Jul 2025 15:57:44 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2195#2195 <![CDATA[SQL Server Hatası : Tekrar Merhaba Turgut,Ben bağlantı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2179#2179 Yazar: haletr
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 15:47

Tekrar Merhaba Turgut,

Ben bağlantı yaptığımda bu şekilde kullandığımda bende çalışıyor acaba iki tane \\ olduğu için olabilir mi? Server adından emin misin? 

Clomosy.DBSQLServerConnect('SQL Server', 'HALE\ATIKER', 'sa', 'sifre', 'database adi', 1433);

bu şekilde ben projemde kullanıyorum ve bir sorun çıkmamıştı.
]]> Fri, 11 Jul 2025 15:47:41 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2179#2179 <![CDATA[SQL Server Hatası : Merhaba Hale, öncelikle yanıtın...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2176#2176 Yazar: turgutkir
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 15:13

Merhaba Hale, öncelikle yanıtın işin teşekkür ederim. Clomosy.DBSQLServerConnect(...) fonksiyonu, parametreleri belirli sırada bekler diye biliyorum ama tabii ki dediğin gibi değiştirip denedim fakat bir değişiklik olmadı aynı sorun devam ediyor.]]> Fri, 11 Jul 2025 15:13:02 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2176#2176 <![CDATA[SQL Server Hatası : Merhaba Turgut,/* ---------- SQL...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2173#2173 Yazar: haletr
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 14:58

Merhaba Turgut, 

/* ---------- SQL Server bağlantısı ---------- */
if not Clomosy.DBSQLServerConnect(
       'SQL Server',
       'TURGUT-KIR\\ATIKER',  
       'sa',             
       '1',                   
       'TURGUT25',                    
       1433                    
     )

Bu fonksiyonu bu şekilde değiştirip deneyebilir misin? İyi çalışmalar.


]]> Fri, 11 Jul 2025 14:58:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2173#2173 <![CDATA[SQL Server Hatası : Merhaba Sude, öncelikle yanıtın...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2171#2171 Yazar: turgutkir
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 14:38

Merhaba Sude, öncelikle yanıtın işin teşekkür ederim. Kontrolleri sağladığımda serverin "running" durumunda olduğunu görüyorum, sunucu adı kullanıcı adı ve şifre vb DBSQLServerConnect parametreleri doğru. Sorun başka bir yerden kaynaklı fakat bulamıyorum.]]> Fri, 11 Jul 2025 14:38:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2171#2171 <![CDATA[SQL Server Hatası : Merhaba Turgut , Sql server management...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2169#2169 Yazar: Sudesigirci
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 09:37

Merhaba Turgut , Sql server management studioada serverin 'running' durumunda olduğundan emin misin bir diğer konu da sunucu adının kullanıcı adının şifrenin ve veritabanı adının doğruluğundan emin olmalısın  
İyi Çalışmalar
]]> Fri, 11 Jul 2025 09:37:42 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2169#2169 <![CDATA[SQL Server Hatası : Projede main panel üzerinden &#034;Yönetici&#034;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2168#2168 Yazar: turgutkir
Konu: 1077
Gönderim Zamanı: 11 Temmuz 2025 Saat 09:07

Projede main panel üzerinden "Yönetici" yi seçtip devam etmek butonuna tıkladığımda şu hatayı alıyorum :
"The client cannot connect to the server because the requested instance was not available. Use SQL Server Configuration Manager to make sure the SQL Server instance is configured correctly. "

MainCode:
//------------------------------------------------------------------
//  MainCode – Rol seçimi ekranı
//------------------------------------------------------------------

var
  MainForm         : TclForm;
  lblTitle, lblDesc: TclLabel;
  cmbRole          : TclComboBox;
  btnNext          : TclButton;

/*------------------------------ OpenPanel ------------------------*/
void OpenPanel;
var
  roleVal : String;
{

  roleVal = cmbRole.GetValueIndex(cmbRole.ItemIndex);

  if roleVal == 'personel' {
    Clomosy.RunUnit('uPersonnelForm');
  } else if roleVal == 'yonetici' {
    Clomosy.RunUnit('uManagerForm');
  } else {
    ShowMessage('Lütfen önce rol seçin.');
  }
}
/*----------------------------- Form kurulumu --------------------*/
{
  MainForm = TclForm.Create(Self);
  MainForm.clSetCaption('Rol Seçimi');

  lblTitle = MainForm.AddNewLabel(MainForm,'lblTitle',
              'Ziyaretçi Yönetim Sistemine Hoş Geldiniz');
  lblTitle.Font.Size  = 18;
  lblTitle.Align      = alTop;
  lblTitle.Margins.Top= 24;

  lblDesc  = MainForm.AddNewLabel(MainForm,'lblDesc','Lütfen rolünüzü seçin:');
  lblDesc.Align       = alTop;
  lblDesc.Margins.Top = 12;

  cmbRole  = MainForm.AddNewComboBox(MainForm,'cmbRole');
  cmbRole.AddItem('Personel','personel');
  cmbRole.AddItem('Yönetici','yonetici');
  cmbRole.Align       = alTop;
  cmbRole.Margins.Top = 20;
  cmbRole.Width       = 200;
  cmbRole.ItemIndex   = -1;

  btnNext = MainForm.AddNewButton(MainForm,'btnNext','Devam Et');
  btnNext.Align       = alTop;
  btnNext.Margins.Top = 32;
  btnNext.Width       = 200;
  btnNext.Height      = 40;
  MainForm.AddNewEvent(btnNext, tbeOnClick, 'OpenPanel');

  MainForm.Run;
}

uManagerForm:
//------------------------------------------------------------------
//  uManagerForm – Yönetici Paneli
//------------------------------------------------------------------

var
  FrmMgr       : TclForm;
  lstMeetings  : TclListView;

  edtStart, edtEnd : TclProEdit;   // tarih girişleri
  cmbUser      : TclComboBox;
  btnFilter    : TclProButton;
  qData        : TclSqlQuery;

/*---------------  personel listesini doldur  --------------------*/
void LoadUsers;
var
  q : TclSqlQuery;
{
  q = Clomosy.DBSQLServerQueryWith(
        'SELECT ID, FullName FROM Users ORDER BY FullName');

  cmbUser.Clear;

  while (not q.EOF) {
    cmbUser.AddItem(
      q.FieldByName('FullName').AsString,   // görünen metin
      q.FieldByName('ID').AsString          // gizli değer
    );
    q.Next;
  };
}

/*---------------  tarih + personel filtresi  --------------------*/
void ApplyFilter;
var
  sql : String;
  uid : String;
{
  sql =
    'SELECT M.ID AS RECORD_GUID, ' +
    '       U.FullName + '' - '' + M.CompanyName AS MAIN_TEXT, ' +
    '       CONVERT(nvarchar, M.MeetingDate,104) + '' '' + ' +
    '       CONVERT(nvarchar, M.MeetingDate,108) AS SUB_TEXT ' +
    'FROM   Meetings M ' +
    'LEFT JOIN Users U ON U.ID = M.UserID ' +
    'WHERE  1=1';

  /* Tarih aralığı */
  sql =
    sql + ' AND M.MeetingDate BETWEEN ' +
    QuotedStr(Trim(edtStart.Text) + ' 00:00') +
    ' AND ' +
    QuotedStr(Trim(edtEnd.Text)   + ' 23:59');

  /* Personel filtresi */
  if (cmbUser.ItemIndex <> -1) {
    uid = cmbUser.GetValueIndex(cmbUser.ItemIndex);
    if (uid <> '') {
      sql = sql + ' AND M.UserID = ' + uid;
    };
  };

  try
    qData.SQL.Text = sql;
    qData.Open;
    lstMeetings.clLoadListViewDataFromDataset(qData);
  except
    ShowMessage('Sorgu hatası: ' + LastExceptionMessage);
  };
}

/*---------------  formu oluştur  -------------------------------*/
void CreateForm;
{
  FrmMgr = TclForm.Create(Self);
  FrmMgr.clSetCaption('Yönetici Paneli');
  FrmMgr.SetBounds(120, 70, 720, 560);

/* ---------- SQL Server bağlantısı ---------- */
if not Clomosy.DBSQLServerConnect(
       'SQL Server',
       'TURGUT-KIR\\ATIKER',  
       'TURGUT25',             
       'sa',                   
       '1',                    
       1433                    
     ) {
  ShowMessage('Veritabanına bağlanılamadı. Sunucu veya kimlik bilgilerini kontrol edin.');
  Exit;   // Bağlantı yoksa formu açmıyoruz
};

  /* Sorgu nesnesi */
  qData = TclSqlQuery.Create(nil);
  qData.Connection = Clomosy.DBSQLServerConnection;

  /* UI bileşenleri */
  edtStart = FrmMgr.AddNewProEdit(FrmMgr,'edtStart','Başlangıç (yyyy-MM-dd)');
  edtEnd   = FrmMgr.AddNewProEdit(FrmMgr,'edtEnd'  ,'Bitiş (yyyy-MM-dd)');
  cmbUser  = FrmMgr.AddNewComboBox(FrmMgr,'cmbUser');

  btnFilter = FrmMgr.AddNewProButton(FrmMgr,'btnFilter','Uygula');
  FrmMgr.AddNewEvent(btnFilter, tbeOnClick, 'ApplyFilter');

  lstMeetings = FrmMgr.AddNewListView(FrmMgr,'lstMeetings');
  lstMeetings.Align = alClient;

  /* Varsayılan tarih aralığı = bugünün tarihi */
  edtStart.Text = FormatDateTime('yyyy-MM-dd', Now);
  edtEnd.Text   = edtStart.Text;

  /* Veri yükle */
  LoadUsers();
  ApplyFilter();

  FrmMgr.Run;
}

CreateForm();


]]> Fri, 11 Jul 2025 09:07:08 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1077&PID=2168#2168