Opdatering i database

Modify i TUpdateSql ser således ud...

update kunde
set
  FIRMANAVN = :FIRMANAVN,
  POSTNR = :POSTNR,
  CITY = :CITY,
  FIRMATLF = :FIRMATLF,
  MOBIL = :MOBIL,
  FAXNR = :FAXNR,
  EMAIL = :EMAIL
where
  KUNDEID = :OLDKUNDEID

Hvad laver CheckEdit() ? Hvor langt når du ? Hvad er det for en masse ekstra led du har med ? Apply() ? Caste pointere i flere led - æhem !

Nå, spøg til side ! Får du ikke en exception ? Jeg har selv oplevet at der foregår en eller anden form for Caching, som gjorde at datasettet ikke altid blev opdateret. Hvis derimod du bruger en TQuery komponent, hvor du også kan "fyre" batch SQL updates af vha. ExecSQL() metoden, plejer det at virke. Du kunne således ændre din KundeUpdateRecord til dette (pUpdate er en TQuery component):

void __fastcall TfrmKunde::KundeUpdateRecord(TObject *, TUpdateKind UpdateKind)
{
  String sqlStmt = "";

  swicth (UpdateKind)
  {
    case ukUpdate : sqlStmt = "update kunde set \n"
                    + "FIRMANAVN = \'" + Edit2->Text + "\', \n"
                    + "POSTNR = \'" + Edit4->Text + "\', \n"
                    + "CITY =  \'" + Edit5->Text + "\', \n"
                    + "FIRMATLF = \'" + Edit6->Text + "\', \n"
                    + "MOBIL = \'" + Edit7->Text + "\', \n"
                    + "FAXNR = \'" + Edit8->Text + "\', \n"
                    + "EMAIL = \'" + Edit9->Text + "\' \n"
                    + "where \n"
                    + "KUNDEID = \'" + Edit1->Text + '\'";
                    break;
    case ukInsert : sqlStmt = "insert into kunde \n"
                    + "(KUNDEID, FIRMANAVN, POSTNR, CITY, FIRMATLF, MOBIL, FAXNR, EMAIL)\n"
                    + "VALUES("
                    + Edit1->Text + ",\n"
                    + Edit2->Text + ",\n"
                    + Edit3->Text + ",\n"
                    + Edit4->Text + ",\n"
                    + Edit5->Text + ",\n"
                    + Edit6->Text + ",\n"
                    + Edit7->Text + ",\n"
                    + Edit8->Text + ",\n"
                    + Edit9->Text + ")";
                    break;
    case ukDelete : sqlStmt = "delete from kunde\n"
                    + "where \n"
                    + "KUNDEID = \'" + Edit->Text1 + "\'";
                    break;
  };

  // Execute the SQL statement.
  if (sqlStmt != "")
  {
    pUpdate->SQL->Text = sqlStmt;
    try
    {
      pUpdate->ExecSQL();
    }
    catch (Exception& e)
    {
      Application->MessageBox(("Fejl under opdatering af kunde(Fejl: "
                              + e.Message.TrimRight() + ")").c_str(),
                              "Kunde ikke opdateret", MB_ICONERROR | MB_OK);
      /* Ignore */
    };
  }; /* SQL statement built. */
}

Jeg kom sgu' til at acceptere...nå men jeg regner med din funktion den virker, jeg får dog først prøvet den iaften!

Det skal lige siges, at det med at caste pointere i flere led, det var noget jeg fandt i en bog. Så jeg er uskyldig :-0

Tak for hjælpen.

Den skulle holde vand - dog skal du bemærke at jeg konsekvent har sat ' (pling dvs. \') rundt om værdien på alle felter, det skal du fjerne for felter der er numeriske. (Det kunne jeg ikke se ud af dit SQL-statement hvilke felter der var.)

Mht. casting i flere led, så er det blot fordi bitter erfaring har lært mig, at man blive straffet hvis man gør det forkert - og det er nemt at komem til, når man først begynder at caste. Hvis du *skal* caste, så brug dynamic_cast<type '>(Variabel der skal castes) - den checker nemlig om den cast du laver også rent faktisk er gyldig. (Ved at checke klassetyper osv.)

Det virker sgu'.

Det ser også ud til at jeg ikke behøver at lave en commit work på databasen, mærkeligt!!

Det skal man da når man arbejder med tables?