realbasic-nug.de
[Top] [All Lists]

Database InsertRecord

To: "RealBasicNUG" <realbasic-nug dot de at lists dot realsoftware dot com>
Subject: Database InsertRecord
From: "Christian Hahn" <christian dot hahn at snafu dot de>
Date: Thu, 18 Oct 2007 14:52:12 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot de at lists dot realsoftware dot com
Importance: Normal
Hallo,
mir gelingt es nicht, mehr als einen neuen Datensatz zu speichern. Beim
ersten Datensatz klappt alles, beim zweiten bekomme ich die Fehlermeldung
Database Error: 1 near ")": Syntax Error
was ist zu tun? beste Grüße, Christian Hahn.

  for i=1 to DatenGrid.Rows

        rec = New DatabaseRecord

        for j= 1 to DatenGrid.Cols
          n=n+1
          rec.Column(NthField(tmpFieldString,",",n))=
DatenGrid.WritableCell( j,i).Text
        next

        if DB_Inst.Error then
          R09_DisplayDatabaseError True
          Return
        End if

        DB_Inst.InsertRecord("KursExtraTermine",rec)

        If DB_Inst.Error then
          R09_DisplayDatabaseError true
          Return
        End if

  next 'nächste Zeile



<Prev in Thread] Current Thread [Next in Thread>