Hi, please find my code below, this one neither giving the error nor updating the record.
Public Function UpdateQuoteData(ByVal ObjDs As DataSet, ByVal strTableName As String, ByVal intQuoteId As Integer)
Dim ObjDa As OracleDataAdapter
Dim strSQL As String
Dim strReturnText As String = ""
Dim objtmpDs As New DataSet
Dim connection As New OracleConnection(connStr)
Dim ObjCmd As OracleCommandBuilder
Try
strSQL = "SELECT * FROM " & strTableName & " WHERE QUOTE_ID = " & intQuoteId
ObjDa = New OracleDataAdapter(strSQL, _connection)
ObjDa.Fill(objtmpDs, strTableName)
ObjCmd = New OracleCommandBuilder(ObjDa)
ObjDa.InsertCommand = ObjCmd.GetUpdateCommand
objtmpDs = ObjDs
ObjDa.Update(objtmpDs, strTableName)
Catch ex As OracleException
strReturnText = ex.Message
Throw ex
Finally
If strReturnText = "" Then
strReturnText = "OK"
End If
End Try
ObjDa.Dispose()
Return strReturnText
End Function
can anyone help me where the problem hides
|