Zugreifen auf Datenbankinhalte

Aktivieren der ADOTable

Da bei Änderungen des Pfades der Datenbank die ADOTable1 öfters vom Programm automatisch auf inaktiv gesetzt wird, empfiehlt es sich, bei Laufbeginn die ADOTable1 gleich zu aktivieren:

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
  ADOTable1->Active=true;
}

Beispiel: Übertragen der Datenbankdaten in eine Memokomponente (Access, SQL)

void zeigeinMemo(TDataSet* t)
{
  t->First();  //Positionieren auf ersten Datensatz
  while (!t->Eof){         //solange nicht am Schluss
	AnsiString ausgabe;
	ausgabe=t->FieldByName("id")->AsString+" "+t->FieldByName("name")->AsString+" "+t->FieldByName("email")->AsString;
	Form1->Memo1->Lines->Add(ausgabe);
	t->Next();            //Weiterschreiten zum nächsten Datensatz
  }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
zeigeinMemo(ADOTable1);
}

Beispiel: Suche in der Datenbank (Access, SQL)

void Suche(TDataSet *h)
{AnsiString DSInhalt="";
 h->First();
 while (!h->Eof)
 {if (h->FieldByName("name")->AsString==Form1->Edit1->Text)
  {DSInhalt=h->FieldByName("name")->AsString+"  "+h->FieldByName("email")->AsString;
   Form1->Memo1->Lines->Add(DSInhalt);
   break;
  }
  h->Next();
 }
}
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{Suche(ADOTable1);

Beispiel: Eintragen in der Datenbank (Access, SQL)

void Eingabe(TDataSet *t)
{t->Append();      // Hängt leeren Datensatz an;
 t->FieldByName("Name")->AsString         = Form1->Edit2->Text;
 t->FieldByName("MailAdresse")->AsString = Form1->Edit3->Text;
 
}
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{Eingabe(ADOTable1);
}