getting state or error Oracle ADO SQL 'update' command

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance


If exist method for getting status or error in VB 6.0

See codes

--
Dim Rs As New ADODB.Recordset
Dim sSql As String

On Error GoTo onError

Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.ActiveConnection = An

An.BeginTrans

sSql = " UPDATE aa"
sSql = sSql & "set a1 = " & "'" & a1 & "',"
sSql = sSql & " a2 = " & "'" & a2 & "' "
sSql = sSql & " WHERE a3 = " & "'" & a3 & "'"
sSql = sSql & " AND a4 = " & "'" & a4 & "'"
sSql = sSql & " AND a5 = " & "'" & a5 & "'"

' not exist this row so 0(zero) rows updated, This state is error for me
'My codes want to know this status
' Plz somebody help my codes T . T
¤Ñ
An.Execute sSql
An.CommitTrans
--

I'm TZ


.

Relevant Pages