'打开表Sedimentation_result_tab,准备写入计算的变形量
ReDim strTempCurrentCycle(1 To m)
For i = 1 To m
strOraRS = "SELECT * from SEDIMENTATION_RESULT_TAB"
Set rsDeformation = New ADODB.Recordset
rsDeformation.ActiveConnection = OraDB
rsDeformation.CursorLocation = adUseServer
rsDeformation.Open strOraRS, OraDB, adOpenKeyset, adLockPessimistic
strTempCurrentCycle(i) = strReferenceCycle
If rsDeformation.EOF = True Then
rsDeformation.AddNew
End If rsDeformation!POINT_NAME = cmbSurveyPoint.List(i - 1)
If strReferenceCycle <> frmSelectCycle.lstSelCycle.Text Then
rsDeformation!LINE_NO = strTempCurrentCycle(i)
rsDeformation!SEDIMENTATIONPT_CURRENTVLAUE = dblTempReferDZ(i)
Else
rsDeformation!LINE_NO = 0
rsDeformation!SEDIMENTATIONPT_CURRENTVLAUE = 0
End If
rsDeformation.Update
rsDeformation.Close
Next i
Set rsSurveyValue = Nothing
Set rsDeformation = Nothing
上面就是我的代码,,多多指教啊??
ReDim strTempCurrentCycle(1 To m)
For i = 1 To m
strOraRS = "SELECT * from SEDIMENTATION_RESULT_TAB"
Set rsDeformation = New ADODB.Recordset
rsDeformation.ActiveConnection = OraDB
rsDeformation.CursorLocation = adUseServer
rsDeformation.Open strOraRS, OraDB, adOpenKeyset, adLockPessimistic
strTempCurrentCycle(i) = strReferenceCycle
If rsDeformation.EOF = True Then
rsDeformation.AddNew
End If rsDeformation!POINT_NAME = cmbSurveyPoint.List(i - 1)
If strReferenceCycle <> frmSelectCycle.lstSelCycle.Text Then
rsDeformation!LINE_NO = strTempCurrentCycle(i)
rsDeformation!SEDIMENTATIONPT_CURRENTVLAUE = dblTempReferDZ(i)
Else
rsDeformation!LINE_NO = 0
rsDeformation!SEDIMENTATIONPT_CURRENTVLAUE = 0
End If
rsDeformation.Update
rsDeformation.Close
Next i
Set rsSurveyValue = Nothing
Set rsDeformation = Nothing
上面就是我的代码,,多多指教啊??
解决方案 »
- oracle10G Oracle Directory Manager服务器未启动和运行
- 请教一个诡异的SEQUENCE异常问题
- ▲▲▲▲▲▲Oracle初学四个问题,有悬赏,请大家回答!
- 有几个关于ORACLE的基本问题~!想请教大家~!
- sql语句的优化
- 我在程序中想用oracle提供的库去连接ORACLE,但是我不知道怎么做?我现在也知道怎么弄?大家帮帮我吧
- 关于时间函数。
- oracle里面有没有统计某个字符串中某个字符个数的函数
- 一个插入过程中的异常问题,急求解决方案!
- oracle 安装出错 runInstaller报错
- postgresql
- 监听器自己就停止了??????????????
汗。。n久没碰过VB了