Hoeen Geschrieben 4. Februar 2002 Teilen Geschrieben 4. Februar 2002 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 Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Hoeen Geschrieben 4. Februar 2002 Autor Teilen Geschrieben 4. Februar 2002 Ha, hab den Fehler nach langem Suchen selbst gefunden :tanz: Habe die ComboBoxen nicht definiert, also keinen Wert zugeordnet. Wie doof von mir...:heul: Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.