Thinker

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Thinker

Forum for story


    【VB 6 TO VB.NET】语句的翻译

    Aueeins
    Aueeins
    呢喃的歌声


    帖子数 : 205
    积分 : 4988
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    【VB 6 TO VB.NET】语句的翻译 Empty 【VB 6 TO VB.NET】语句的翻译

    Post by Aueeins 2011-10-06, 11:51 am

    With vRs08Class
    If .state = adStateOpen Then
    .Close()
    End If

    Dim ds As New DataSet
    vRsStr = "SELECT * FROM m08Class " & _
    "WHERE Class = '" & txtClass.Text & "'" & _
    "AND SubClass = '" & txtSubClass.Text & "'"
    ds = cls00Connection.getDataSet(vRsStr)
    If RowCount(ds) <= 0 Then
    MsgBox("CLASS NOT FOUND!")
    Else
    If DBNull2False(ds.Tables(0).Rows(0)!Conveyancing) = True Then
    Load(f09Conveyance)
    f09Conveyance.Show(1)
    End If
    End If

      Current date/time is 2024-03-29, 1:40 pm