here is my codebut it will delete my all data in table,Code:On Error GoTo ErrDelete Dim sqlStr As String If MsgBox(" ", vbQuestion + vbYesNo, " Deleted ") = vbYes Then sqlStr = " Delete STR_ITEMNO,STR_FLOWER,STR_QTY from STRUCTURE " Else Exit Sub End If Conn.BeginTrans Conn.Execute sqlStr Conn.CommitTrans MsgBox "" ExitError: Exit Sub ErrDelete: Conn.RollbackTrans MsgBox "Error:" & Err.Description, vbCritical Resume ExitError Unload Me Form1.Show
if i choose delete from strucuture where str_itemno...
it will delete my all foreign-key,
i want to delete one row at a time then my foreign-key will allow to be redundant...
plse help me..




Reply With Quote