VB中通过oo4o更新数据 - Update Delete Insert
- '******************************************************
- ' 通过oo4o进行连接数据库,通过执行SQL语句更新数据后,断开DB
- '******************************************************
- Private Sub DBUpdate()
- On Error GoTo Err_Rtn
- Dim OraSession As OraSession
- Dim OraDatabase As OraDatabase
- Dim OraDynaset As OraDynaset
- Dim result
- Dim strSQL
- strSQL = "UPDATE HINMST SET ENDFLG =