SQL commands

[Michael Sgier]

Hello
why the heck is the update command working but the delete command
not. Apart this section in the select all is the same.

-----
Case cintUpdateMode
m_cmPlzOrt.EndCurrentEdit()
sPlzOrtSQL = "UPDATE tblPlzOrt SET fldPlz = @fldPlz,
fldOrtsBez = @fldOrtsBez WHERE fldOrtsNr = @fldOrtsNr;"
Dim cmDb As New OleDbCommand(sPlzOrtSQL, cnPlz)
cmDb.Parameters.Add("@fldPlz", OleDbType.BigInt, 10,"fldPlz")
cmDb.Parameters.Add("@fldOrtsBez", OleDbType.VarChar, 60, "fldOrtsBez")
cmDb.Parameters.Add("@fldOrtsNr", OleDbType.BigInt, 10, "fldOrtsNr")
daAdapPlzOrte.UpdateCommand = cmDb
Case cintDeleteMode
sPlzOrtSQL = "DELETE * FROM tblPlzOrt WHERE fldOrtsNr = @fldOrtsNr;"
Dim cmDb As New OleDbCommand(sPlzOrtSQL, cnPlz)
cmDb.Parameters.Add("@fldOrtsNr", OleDbType.BigInt, 10, "fldOrtsNr")
daAdapPlzOrte.DeleteCommand = cmDb
End Select

 

[Cor Ligthert]

Michael,

What is the reason that this command in the update and not in the delete.
(I cannot see if it is needed because that is dependend from how you use
your data)

m_cmPlzOrt.EndCurrentEdit()

Cor

 

[Ken Tucker [MVP]]

Hi,

Dont see anything that looks wrong with the command. I would add
the update and delete commands to the dataadapter when i create it. Dont
forget you have to call the dataadapters update method to get it to delete
the records from the database.

Ken
----------------
Hello
why the heck is the update command working but the delete command
not. Apart this section in the select all is the same.

-----
Case cintUpdateMode
m_cmPlzOrt.EndCurrentEdit()
sPlzOrtSQL = "UPDATE tblPlzOrt SET fldPlz = @fldPlz,
fldOrtsBez = @fldOrtsBez WHERE fldOrtsNr = @fldOrtsNr;"
Dim cmDb As New OleDbCommand(sPlzOrtSQL, cnPlz)
cmDb.Parameters.Add("@fldPlz", OleDbType.BigInt, 10,"fldPlz")
cmDb.Parameters.Add("@fldOrtsBez", OleDbType.VarChar, 60, "fldOrtsBez")
cmDb.Parameters.Add("@fldOrtsNr", OleDbType.BigInt, 10, "fldOrtsNr")
daAdapPlzOrte.UpdateCommand = cmDb
Case cintDeleteMode
sPlzOrtSQL = "DELETE * FROM tblPlzOrt WHERE fldOrtsNr = @fldOrtsNr;"
Dim cmDb As New OleDbCommand(sPlzOrtSQL, cnPlz)
cmDb.Parameters.Add("@fldOrtsNr", OleDbType.BigInt, 10, "fldOrtsNr")
daAdapPlzOrte.DeleteCommand = cmDb
End Select