| Swat | 01 Temmuz 2014 13:16 |
C++ Builder ile MySQL Veritabanı Üzerinde Sorgulama ve Güncelleme İşlemi
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. Alıntı:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "MyAccess"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String sql="Select * from ogrenci where no='";
sql+=Edit1->Text;
sql+="'";
MyTable1->SQL->Clear();
MyTable1->SQL->Add(sql);
MyTable1->Execute();
int kayitsayisi=MyTable1->RecordCount;
if(kayitsayisi>0)
{
Label2->Visible=true;
Label3->Visible=true;
Label4->Visible=true;
Edit2->Visible=true;
Edit3->Visible=true;
Edit4->Visible=true;
Button2->Visible=true;
Edit2->Text=MyTable1->FieldValues["adi"];
Edit3->Text=MyTable1->FieldValues["soyadi"];
Edit4->Text=MyTable1->FieldValues["bolum"];
}
else
{
Label2->Visible=false;
Label3->Visible=false;
Label4->Visible=false;
Edit2->Visible=false;
Edit3->Visible=false;
Edit4->Visible=false;
Button2->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Label2->Visible=false;
Label3->Visible=false;
Label4->Visible=false;
Edit2->Visible=false;
Edit3->Visible=false;
Edit4->Visible=false;
Button2->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
String sql="Update ogrenci SET adi='";
sql+=Edit2->Text;
sql+="' where no='";
sql+=Edit1->Text;
sql+="'";
MyTable1->SQL->Clear();
MyTable1->SQL->Add(sql);
MyTable1->Execute();
sql="Update ogrenci SET soyadi='";
sql+=Edit3->Text;
sql+="' where no='";
sql+=Edit1->Text;
sql+="'";
MyTable1->SQL->Clear();
MyTable1->SQL->Add(sql);
MyTable1->Execute();
sql="Update ogrenci SET bolum='";
sql+=Edit4->Text;
sql+="' where no='";
sql+=Edit1->Text;
sql+="'";
MyTable1->SQL->Clear();
MyTable1->SQL->Add(sql);
MyTable1->Execute();
Label2->Visible=false;
Label3->Visible=false;
Label4->Visible=false;
Edit2->Visible=false;
Edit3->Visible=false;
Edit4->Visible=false;
Button2->Visible=false;
}
//---------------------------------------------------------------------------
| | 