将vb6转换为vb.net时,station不是有效的名称空间
我正在尝试将vb6转换为vb.net,上面的代码第一行显示错误,该语句在名称空间中无效…请帮助我替换将vb6转换为vb.net时,station不是有效的名称空间,vb.net,vb6-migration,Vb.net,Vb6 Migration,我正在尝试将vb6转换为vb.net,上面的代码第一行显示错误,该语句在名称空间中无效…请帮助我替换 Public Function fnGetNextMaxNo(ByVal strFieldName As String) As Integer fnGetNextMaxNo = 0 Dim adoRs As VbToRecordSet Dim strSql As String = "" Try fnGetNextMaxNo = 1
Public Function fnGetNextMaxNo(ByVal strFieldName As String) As Integer
fnGetNextMaxNo = 0
Dim adoRs As VbToRecordSet
Dim strSql As String = ""
Try
fnGetNextMaxNo = 1
strSql = "select max(" + strFieldName + ") from " + strTableName
mstrLastExecutedSql = strSql
adoRs.Open(strSql, adoconDb)
If Not adoRs.EOF Then
If Not IsDBNull(adoRs.Fields(0).Value) Then
fnGetNextMaxNo = Convert.toDouble(adoRs.Fields(0).Value) + 1
End If
End If
adoRs.Close()
Exit Function
与
Dim adoRs As VbToRecordSet
Dim adoRs As adodb.RecordSet