Neuer Datensatz wird nicht angelegt (VCL/SQL/ACCESS)

[mad_devil]

Hi

Denke der Fehler liegt im Code nicht im sql befehl

versuche aus einem c++ programm einen neuen datensatz in eine db zu schreiben (access)mit sql. er zeigt an das der datensatz angelegt worden sei ist er aber nicht. der erste hinzugefügter datensatz wäre nummer 20100. Er legt den datensatz wie gesagt nicht an und wenn ich danach noch einen einfügen will sagt er wieder er würde ihn einfügen (auch unter nr. 20100 ?!?!)

Benutze turbo c++ explorer 2006
als newbie wäre ich sehr dankbar für jede idee.

Vielen dank im vor raus

ps hier der code:

void __fastcall Tfrmbaumschule::btnhinzufuegenClick(TObject *Sender)
{
double id;
double nix;

String dname;
String lname;
String text;
String matchcode;
String art;
String bluehvon;
String bluehbis;
String sqleingabe;

dname = edtdname->Text;
lname = edtlname->Text;
text = edttext->Text;
matchcode = edtmatchcode->Text;
art = edtpflanzenart->Text;
bluehvon = edtbluehvon->Text;
bluehbis = edtbluehbis->Text;

nix = 0;

if  (dname == "")
	{
	ShowMessage ("Bitte das Feld Deutscher Name ausfüllen!!");
	nix = 1;
	}

if  (lname == "")
	{
	ShowMessage ("Bitte das Feld Latenischer Name ausfüllen!!");
	nix = 1;
	}

if  (matchcode == "")
	{
	matchcode = "-";
	}

if  (art == "")
	{
	art = "-";
	}

if  ((bluehvon == "")
	||
	(bluehvon == "0"))
	{
	bluehvon = "leer";
	}

if  ((bluehbis == "")
	||
	(bluehbis == "0"))
	{
	bluehbis = "leer";
	}

if (nix == 0)
	{
	frmbaumschule->adopflanzen->Last();

	frmbaumschule-> adopflanzen->FieldByName("ID")->Value;
	id = frmbaumschule-> adopflanzen->FieldByName("ID")->Value;

	id = id + 1;

	ShowMessage (id);

//  schreiben der Tabelle Pflanzen

	frmbaumschule->adopflanzen->Insert();

	frmbaumschule-> adopflanzen->FieldByName("ID")->Value;
	frmbaumschule-> adopflanzen->FieldByName("ID")->Value = id;

	frmbaumschule-> adopflanzen->FieldByName("DeutscherName")->Value;
	frmbaumschule-> adopflanzen->FieldByName("DeutscherName")->Value = dname;

	frmbaumschule-> adopflanzen->FieldByName("LateinischerName")->Value;
	frmbaumschule-> adopflanzen->FieldByName("LateinischerName")->Value = lname;

	frmbaumschule-> adopflanzen->FieldByName("Text")->Value;
	frmbaumschule-> adopflanzen->FieldByName("Text")->Value = text;

	frmbaumschule-> adopflanzen->FieldByName("ID_Pflanzenart")->Value;
	frmbaumschule-> adopflanzen->FieldByName("ID_Pflanzenart")->Value = id;

	frmbaumschule-> adopflanzen->FieldByName("ID_Matchcode")->Value;
	frmbaumschule-> adopflanzen->FieldByName("ID_Matchcode")->Value = id;

	frmbaumschule-> adopflanzen->FieldByName("ID_Bluehzeit")->Value;
	frmbaumschule-> adopflanzen->FieldByName("ID_Bluehzeit")->Value = id;

	frmbaumschule-> adopflanzen->FieldByName("ID_Zertifizierung")->Value;
	frmbaumschule-> adopflanzen->FieldByName("ID_Zertifizierung")->Value = id;

//  schreiben der Tabelle Pflanzenart

	frmbaumschule->adopflanzenart->Insert();

	frmbaumschule-> adopflanzenart->FieldByName("Pflanzenart")->Value;
	frmbaumschule-> adopflanzenart->FieldByName("Pflanzenart")->Value = art;

	frmbaumschule-> adopflanzenart->FieldByName("ID_Pflanzenart")->Value;
	frmbaumschule-> adopflanzenart->FieldByName("ID_Pflanzenart")->Value = id;

//  schreiben der Tabelle Matchcode

	frmbaumschule->adomatchcode->Insert();

	frmbaumschule-> adomatchcode->FieldByName("ID_Matchcode")->Value;
	frmbaumschule-> adomatchcode->FieldByName("ID_Matchcode")->Value = id;

	frmbaumschule-> adomatchcode->FieldByName("Matchcode")->Value;
	frmbaumschule-> adomatchcode->FieldByName("Matchcode")->Value = matchcode;

//  schreiben der Tabelle Zertifizierung

	frmbaumschule->adozertifizierung->Insert();

	frmbaumschule-> adozertifizierung->FieldByName("ID_Zertifizierung")->Value;
	frmbaumschule-> adozertifizierung->FieldByName("ID_Zertifizierung")->Value = id;

	if (rbja->Checked)
		{
		frmbaumschule-> adozertifizierung->FieldByName("Zertifizierung")->Value;
		frmbaumschule-> adozertifizierung->FieldByName("Zertifizierung")->Value = 1;
		}

	if (rbnein->Checked)
		{
		frmbaumschule-> adozertifizierung->FieldByName("Zertifizierung")->Value;
		frmbaumschule-> adozertifizierung->FieldByName("Zertifizierung")->Value = 0;
		}

//  schreiben der Tabelle Bluehzeit

	frmbaumschule->adobluehzeit->Insert();

	frmbaumschule-> adobluehzeit->FieldByName("ID_Bluehzeit")->Value;
	frmbaumschule-> adobluehzeit->FieldByName("ID_Bluehzeit")->Value = id;

	if  ((bluehvon == "leer")
		||
		(bluehvon == "0"))
		{
		frmbaumschule-> adobluehzeit->FieldByName("Bluehvon")->Value;
		frmbaumschule-> adobluehzeit->FieldByName("Bluehvon")->Value = 0;
		}

	if  ((bluehvon == "Januar")
		||
		(bluehvon == "januar")
		||
		(bluehvon == "1"))
		{
		frmbaumschule-> adobluehzeit->FieldByName("Bluehvon")->Value;
		frmbaumschule-> adobluehzeit->FieldByName("Bluehvon")->Value = 1;
		}

// und so weiter bis dezember :-)	

	if  ((bluehbis == "leer")
		||
		(bluehbis == "0"))
		{
		frmbaumschule-> adobluehzeit->FieldByName("Bluehbis")->Value;
		frmbaumschule-> adobluehzeit->FieldByName("Bluehbis")->Value = 0;
		}

	if  ((bluehbis == "Januar")
		||
		(bluehbis == "januar")
		||
		(bluehbis == "1"))
		{
		frmbaumschule-> adobluehzeit->FieldByName("Bluehbis")->Value;
		frmbaumschule-> adobluehzeit->FieldByName("Bluehbis")->Value = 1;
		}

// und wieder so weiter bis dezember :-)	

	Query1->Close();
	Query2->Close();

	frmbaumschule->adopflanzen->Close();
	frmbaumschule->adomatchcode->Close();
	frmbaumschule->adopflanzenart->Close();
	frmbaumschule->adobluehzeit->Close();
	frmbaumschule->adozertifizierung->Close();

	frmbaumschule->adopflanzen->Open();
	frmbaumschule->adomatchcode->Open();
	frmbaumschule->adopflanzenart->Open();
	frmbaumschule->adobluehzeit->Open();
	frmbaumschule->adozertifizierung->Open();

	Query1->Open();
	Query2->Open();

	edtid->Text = "";
	edtdname->Text = "";
	edtlname->Text = "";
	edttext->Text = "";
	edtmatchcode->Text = "";
	edtpflanzenart->Text = "";
	edtbluehvon->Text = "";
	edtbluehbis->Text = "";

	ShowMessage ("Datensatz wurde erfolgreich eingepflegt!!");

	}

}
//---------------------------------------------------------------------------