SQL


   var
  anaForm: TclStyleForm;
  testImg: TClProImage;
  LocalQ: TClSqlQuery;
  quoteList: array of String;
  randomIndex: Integer;

void SetImage;
{
  testImg = anaForm.AddNewProImage(anaForm, 'testImg');
  
  clComponent.SetupComponent(testImg,
  '{
  "MarginBottom":50,
  "Width":50, 
  "Height":50,
  "BorderColor":"#ff94c8",
  "BorderWidth":3,
  "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg", 
  "ImgFit":"yes"}');

  anaForm.AddNewEvent(testImg, tbeOnClick, 'ShowRandomQuote');
}

void ShowRandomQuote;
{
  if (Length(quoteList) > 0)
  {
    randomIndex = Random(Length(quoteList));
    ShowMessage(quoteList[randomIndex]);
  }
  else
  {
    ShowMessage('No quotes available.');
  }
}

{
  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.147', 'hacer', '123456789', 'RepliklerDB', 50000);

  anaForm = TclStyleForm.Create(Self);
  LocalQ = TClSqlQuery.Create(nil);
  quoteList = [];

  try
  
    LocalQ.Connection = Clomosy.DBSQLServerConnection;
    LocalQ.SQL.Text = 'SELECT replik AS MAIN_TEXT FROM Replikler';
    LocalQ.Open;

    LocalQ.First;
  
    while (NOT LocalQ.EOF)
    {
      quoteList.Add(LocalQ.FieldByName('MAIN_TEXT').AsString);
      LocalQ.Next;
    }
  
  except
  
    ShowMessage('hata');
  }
  LocalQ.Free;

  anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical);
  SetImage;
  anaForm.Run;
}
"SQL'e bağlanmıyor."

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Hacer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Haziran 2024 Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı Hacer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: SQL Gönderim Zamanı: 19 Temmuz 2024 Saat 11:37
	var anaForm: TclStyleForm; testImg: TClProImage; LocalQ: TClSqlQuery; quoteList: array of String; randomIndex: Integer; void SetImage; { testImg = anaForm.AddNewProImage(anaForm, 'testImg'); clComponent.SetupComponent(testImg, '{ "MarginBottom":50, "Width":50, "Height":50, "BorderColor":"#ff94c8", "BorderWidth":3, "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg", "ImgFit":"yes"}'); anaForm.AddNewEvent(testImg, tbeOnClick, 'ShowRandomQuote'); } void ShowRandomQuote; { if (Length(quoteList) > 0) { randomIndex = Random(Length(quoteList)); ShowMessage(quoteList[randomIndex]); } else { ShowMessage('No quotes available.'); } } { Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.147', 'hacer', '123456789', 'RepliklerDB', 50000); anaForm = TclStyleForm.Create(Self); LocalQ = TClSqlQuery.Create(nil); quoteList = []; try LocalQ.Connection = Clomosy.DBSQLServerConnection; LocalQ.SQL.Text = 'SELECT replik AS MAIN_TEXT FROM Replikler'; LocalQ.Open; LocalQ.First; while (NOT LocalQ.EOF) { quoteList.Add(LocalQ.FieldByName('MAIN_TEXT').AsString); LocalQ.Next; } except ShowMessage('hata'); } LocalQ.Free; anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical); SetImage; anaForm.Run; } "SQL'e bağlanmıyor."

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ı: 19 Temmuz 2024 Saat 16:02
	Merhaba Hacer, Kodları kontrol eder misin? var anaForm: TclStyleForm; testImg: TClProImage; LocalQ: TClSqlQuery; quoteList: TclArrayString; randomIndex: Integer; void ShowRandomQuote; { if (quoteList.count > 0) { randomIndex = clMath.GenerateRandom(0,quoteList.count); ShowMessage(quoteList.GetItem(randomIndex)); } else { ShowMessage('No quotes available.'); } } void SetImage; { testImg = anaForm.AddNewProImage(anaForm, 'testImg'); clComponent.SetupComponent(testImg, '{ "MarginBottom":50, "Width":50, "Height":50, "BorderColor":"#ff94c8", "BorderWidth":3, "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg", "ImgFit":"yes"}'); anaForm.AddNewEvent(testImg, tbeOnClick, 'ShowRandomQuote'); } { try Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.11', 'sa', 'axoft', 'PRATIK24', 1433); except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } anaForm = TclStyleForm.Create(Self); LocalQ = TClSqlQuery.Create(nil); quoteList = TclArrayString.Create; try LocalQ = Clomosy.DBSQLServerQueryWith('select kisi_adi as MAIN_TEXT from vardiyaa'); LocalQ.Open; LocalQ.First; while (NOT LocalQ.EOF) { quoteList.Add(LocalQ.FieldByName('MAIN_TEXT').AsString); LocalQ.Next; } except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } LocalQ.Free; anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical); SetImage; anaForm.Run; }