Delphiのデータセットは編集モードまたは挿入モードではありません

Question

これを検索しようとしましたが、何の助けにもなりませんでした。私は、Accessデータベースにレコードを追加する必要があり、学校のプロジェクトで作業しようとしているが、私はありません編集または挿入モードでエラー」データセットを取得しています。

sName := ledName.Text; 
sUName := ledUserName.Text; 
sPass := ledPassword.Text; 
sEmail := ledEmail.Text; 
sCell := ledPhone.Text; 

dmUsers.tblUsers.ReadOnly := False; 

dmUsers.tblUsers.Open; 
dmUsers.tblUsers.Insert; 

dmUsers.tblUsers.Last; 
dmUsers.tblUsers['UserName'] := sUName; 
dmUsers.tblUsers['Password'] := sPass; 
dmUsers.tblUsers['Email'] := sEmail; 
dmUsers.tblUsers['Cell Number'] := sCell; 
dmUsers.tblUsers['Actual Name'] := sName; 
dmUsers.tblUsers['Balance'] := 0; 
dmUsers.tblUsers['Points'] := 0; 

dmUsers.tblUsers['Present'] := False; 

dmUsers.tblUsers.Post; 

私が「かわかりません間違っているのmは。任意の助けをいただければ幸いです。

Answer 1

あなたがアクティブなレコードを変更することができ、データセットのメソッドを呼び出した場合（のようなFirst、Last、NextまたはLocate）データセットがPost変更がmodifedする場合はCheckBrowseModeを呼び出しますかCancel新しいレコードが変更されていない場合は、結果はデー​​タセットがdsBrowse、causi編集を許可しないようにしてください。

コードを次のように変更してください。 Lastコールでは、データセットの最後に新しいレコードを作成したかったので、Appendを使用します。

sName := ledName.Text; 
sUName := ledUserName.Text; 
sPass := ledPassword.Text; 
sEmail := ledEmail.Text; 
sCell := ledPhone.Text; 

dmUsers.tblUsers.ReadOnly := False; 

dmUsers.tblUsers.Open; 

dmUsers.tblUsers.Append; 

dmUsers.tblUsers['UserName'] := sUName; 
dmUsers.tblUsers['Password'] := sPass; 
dmUsers.tblUsers['Email'] := sEmail; 
dmUsers.tblUsers['Cell Number'] := sCell; 
dmUsers.tblUsers['Actual Name'] := sName; 
dmUsers.tblUsers['Balance'] := 0; 
dmUsers.tblUsers['Points'] := 0; 

dmUsers.tblUsers['Present'] := False; 

dmUsers.tblUsers.Post;