Also, schon wieder zu Datenbank: Ich habe ein Tool programmiert, dass Excel Tabellen mit zwei drei klicken in eine Datenbank importiert. Jetzt habe ich das Problem, dass die Daten nicht übertragen werden. Also in die Datenbank wird nichts reingeschrieben.

Hier der Code für TFrMain:

//---------------------------------------------------------------------------

void __fastcall TFrMain::Load1Click(TObject *Sender)

{

ODL->FileName = "*.xls";

if (ODL->Execute()) {

F1->Read(ODL->FileName, F1FileExcel5);

}

}

//---------------------------------------------------------------------------

void __fastcall TFrMain::dbcClick(TObject *Sender)

{

AnsiString value;

if (InputQuery("Alias", "Welche DB ?", value)) {

Db->AliasName = value;

Db->DatabaseName = "Remote";

Db->Connected = true;

dbd->Enabled = true;

dbc->Enabled = false;

}

}

//---------------------------------------------------------------------------

void __fastcall TFrMain::Quit1Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TFrMain::dbdClick(TObject *Sender)

{

Db->Connected = false;

dbd->Enabled = false;

dbc->Enabled = true;

}

//---------------------------------------------------------------------------

void __fastcall TFrMain::ExporttoFirma1Click(TObject *Sender)

{

FrFirma->ShowModal();

}

//---------------------------------------------------------------------------

Und hier der Code für TFrFirma:

//---------------------------------------------------------------------------

__fastcall TFrFirma::TFrFirma(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

AnsiString TFrFirma::GetCellData(int Col, int Row)

{

FrMain->F1->SetActiveCell(Row, Col);

return FrMain->F1->Text;

}

//---------------------------------------------------------------------------

int TFrFirma::AlphaCol2Num(AnsiString Col)

{

char x;

x = Col.c_str()[0];

x -= 'A';

x += 1;

return x;

}

//---------------------------------------------------------------------------

void TFrFirma::InsertIntoFile(struct wert zeile)

{

QrExport->Open();

QrExport->ParamByName("name1")->AsString = zeile.Name_1;

QrExport->ParamByName("name2")->AsString = zeile.Name_2;

QrExport->ExecSQL();

}

//---------------------------------------------------------------------------

void TFrFirma::Zuweisen()

{

int i;

struct wert zeile;

for (i=1; i<=16384; i++)

if (GetCellData(AlphaCol2Num(CbFirma1->Text), i) != "") {

zeile.Nummer = i; /* plus groesste Nummer aus der export-datei (doppelte vermeiden)*/

zeile.Name_1 = GetCellData(AlphaCol2Num(CbFirma1->Text), i);

zeile.Name_2 = GetCellData(AlphaCol2Num(CbFirma2->Text), i);

zeile.Strasse_1 = GetCellData(AlphaCol2Num(CbStrasse1->Text), i);

zeile.Strasse_2 = GetCellData(AlphaCol2Num(CbStrasse2->Text), i);

zeile.PLZ = GetCellData(AlphaCol2Num(CbPLZ->Text), i);

zeile.Ort = GetCellData(AlphaCol2Num(CbOrt->Text), i);

zeile.Land = GetCellData(AlphaCol2Num(CbLand->Text), i);

zeile.Vorwahl_Telefon_1 = GetCellData(AlphaCol2Num(CbVorTel1->Text), i);

zeile.Telefon_1 = GetCellData(AlphaCol2Num(CbFon1->Text), i);

zeile.Vorwahl_Telefon_2 = GetCellData(AlphaCol2Num(CbVorTel2->Text), i);

zeile.Telefon_2 = GetCellData(AlphaCol2Num(CbFon2->Text), i);

zeile.Vorwahl_Telefax = GetCellData(AlphaCol2Num(CbVorFax->Text), i);

zeile.Telefax = GetCellData(AlphaCol2Num(CbFax->Text), i);

zeile.E_Mail_1 = GetCellData(AlphaCol2Num(CbMail1->Text), i);

zeile.E_Mail_2 = GetCellData(AlphaCol2Num(CbMail2->Text), i);

zeile.Homepage = GetCellData(AlphaCol2Num(CbPage->Text), i);

zeile.Bemerkung = GetCellData(AlphaCol2Num(CbBem->Text), i);

InsertIntoFile(zeile);

}

}

//---------------------------------------------------------------------------

void __fastcall TFrFirma::BtnNehmenClick(TObject *Sender)

{

Zuweisen();

}

//---------------------------------------------------------------------------

Vielleicht kann mir ja jemand helfen, ich bin schon seit drei Tagen am verzweifeln. Wahrscheinlich ist es nur ein kleiner Fehler, aber ein schwerwiegender!!!

Gruß

Hoeen

Ha, hab den Fehler nach langem Suchen selbst gefunden :tanz: Habe die ComboBoxen nicht definiert, also keinen Wert zugeordnet. Wie doof von mir...:heul: