问题描述
我是vb6用户，我想在vb.net中进行更改，我在vb.net中的Eof中有问题！！！
设置tempRs = gCnn.Execute(从finance_reports.rep_stud_name中选择StudentId；")
虽然不是tempRs.EOF
设置temp_Update_rs = gCnn.Execute(选择与众不同的*来自finance_reports.rep_stud_Others，其中StudentId ="& tempRs.Fields(0).Value&";")
使用temp_Update_rs
虽然不是.EOF
gCnn.Execute(更新finance_reports.rep_statement1设置其他"& countX&"="& Replace(.Fields(1).Value，"''，"'''')&"' '，O_Amount& countX&" =& CCur(.Fields(2).Value)&" Where StudentID ="& tempRs.Fields(0).Value&";")
.MoveNext
countX = countX +1
温德
结尾为
temp_Update_rs.CloseRecordset
设置temp_Update_rs = Nothing
countX = 1
tempRs.MoveNext
温德
tempRs.CloseRecordset
设置tempRs = Nothing
我要如何在vb.net中写这篇文章，我想在vb.net中更改一个vb6开发人员?
请先使用vb.net和mysql给我EOF中的示例代码！！！！！！！！……..
电子邮件:[email protected]
im vb6 user im want change in vb.net i ahve a problem in Eof in vb.net!!!!
Set tempRs = gCnn.Execute("Select StudentId From finance_reports.rep_stud_name;")
While Not tempRs.EOF
Set temp_Update_rs = gCnn.Execute("Select distinct * From finance_reports.rep_stud_Others Where StudentId=''" & tempRs.Fields(0).Value & "'';")
With temp_Update_rs
While Not .EOF
gCnn.Execute ("Update finance_reports.rep_statement1 Set Others" & countX & "=''" & Replace(.Fields(1).Value, "''", "''''") & "'',O_Amount" & countX & "=" & CCur(.Fields(2).Value) & " Where StudentID=''" & tempRs.Fields(0).Value & "'';")
.MoveNext
countX = countX + 1
Wend
End With
temp_Update_rs.CloseRecordset
Set temp_Update_rs = Nothing
countX = 1
tempRs.MoveNext
Wend
tempRs.CloseRecordset
Set tempRs = Nothing
how count i write this in vb.net im a vb6 developer i want to change in vb.net?
plz give me sample codes in EOF using vb.net and mysql!!!!!!!!thnks in advance........
email:[email protected]
推荐答案
这篇关于vb6到vb.net的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！