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 )