Thinker

Personal e-notepad


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

    Aueeins
    Aueeins
    水面上的小草

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

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

    Post by Aueeins on 06/10/11, 04: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 17/02/20, 11:06 am