Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder C++ Builder ile MySQL Veritabanı Üzerinde Sorgulama ve Güncelleme İşlemi


C++ Builder ile MySQL Veritabanı Üzerinde Sorgulama ve Güncelleme İşlemi

AÇIKLAMA

C++ Builder 6 ile uyumludur. Bu programda MySQL üzerinde bulunan ornek isimli veritabanı içindeki ogrenci isimli tabloda bulunan veriler üzerinde sorgulama ve güncelleme işlemi gerçekleştirilmiştir. Sorgulama işlemi öğrenci numarasına göre yapılmakta olup, güncelleme sırasında her güncelleme ayrı ayrı yapılmaktadır, sebebi ise C++ Builder'in toplu güncelleştirme işlemini yerine getirememesidir.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt 

Program Kodu:

Unit1.cpp

  1.  
  2.  
  3. //---------------------------------------------------------------------------
  4.  
  5. #include <vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "Unit1.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma link "DBAccess"
  12. #pragma link "MemDS"
  13. #pragma link "MyAccess"
  14. #pragma resource "*.dfm"
  15. TForm1 *Form1;
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm1::TForm1(TComponent* Owner)
  18.         : TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  22.  
  23. void __fastcall TForm1::Button1Click(TObject *Sender)
  24. {
  25. String sql="Select * from ogrenci where no='";
  26. sql+=Edit1->Text;
  27. sql+="'";
  28. MyTable1->SQL->Clear();
  29. MyTable1->SQL->Add(sql);
  30. MyTable1->Execute();
  31. int kayitsayisi=MyTable1->RecordCount;
  32. if(kayitsayisi>0)
  33. {
  34. Label2->Visible=true;
  35. Label3->Visible=true;
  36. Label4->Visible=true;
  37. Edit2->Visible=true;
  38. Edit3->Visible=true;
  39. Edit4->Visible=true;
  40. Button2->Visible=true;
  41. Edit2->Text=MyTable1->FieldValues["adi"];
  42. Edit3->Text=MyTable1->FieldValues["soyadi"];
  43. Edit4->Text=MyTable1->FieldValues["bolum"];
  44. }
  45. else
  46. {
  47. Label2->Visible=false;
  48. Label3->Visible=false;
  49. Label4->Visible=false;
  50. Edit2->Visible=false;
  51. Edit3->Visible=false;
  52. Edit4->Visible=false;
  53. Button2->Visible=false;
  54. }
  55. }
  56. //---------------------------------------------------------------------------
  57.  
  58. void __fastcall TForm1::FormShow(TObject *Sender)
  59. {
  60. Label2->Visible=false;
  61. Label3->Visible=false;
  62. Label4->Visible=false;
  63. Edit2->Visible=false;
  64. Edit3->Visible=false;
  65. Edit4->Visible=false;
  66. Button2->Visible=false;       
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::Button2Click(TObject *Sender)
  70. {
  71. String sql="Update ogrenci SET  adi='";
  72. sql+=Edit2->Text;
  73. sql+="' where no='";
  74. sql+=Edit1->Text;
  75. sql+="'";
  76. MyTable1->SQL->Clear();
  77. MyTable1->SQL->Add(sql);
  78. MyTable1->Execute();
  79. sql="Update ogrenci SET  soyadi='";
  80. sql+=Edit3->Text;
  81. sql+="' where no='";
  82. sql+=Edit1->Text;
  83. sql+="'";
  84. MyTable1->SQL->Clear();
  85. MyTable1->SQL->Add(sql);
  86. MyTable1->Execute();
  87. sql="Update ogrenci SET  bolum='";
  88. sql+=Edit4->Text;
  89. sql+="' where no='";
  90. sql+=Edit1->Text;
  91. sql+="'";
  92. MyTable1->SQL->Clear();
  93. MyTable1->SQL->Add(sql);
  94. MyTable1->Execute();
  95. Label2->Visible=false;
  96. Label3->Visible=false;
  97. Label4->Visible=false;
  98. Edit2->Visible=false;
  99. Edit3->Visible=false;
  100. Edit4->Visible=false;
  101. Button2->Visible=false;
  102. }
  103. //---------------------------------------------------------------------------
  104.  
  105.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Pazar, 02 Eylül 2012 23:14 )  
backlinktr.biz | 521: Web server is down

Error 521 Ray ID: 4c9bb41a4f06b049 • 2019-04-19 03:13:36 UTC

Web server is down

You

Browser

Working
Istanbul

Cloudflare

Working
backlinktr.biz

Host

Error

What happened?

The web server is not returning a connection. As a result, the web page is not displaying.

What can I do?

If you are a visitor of this website:

Please try again in a few minutes.

If you are the owner of this website:

Contact your hosting provider letting them know your web server is not responding. Additional troubleshooting information.