vb.net - 将 vb6 代码转换为 vb.net

Question

我想将此 VB6 代码转换为 VB.NET 代码，但我是 VB.NET 的新手。

On Error Resume Next
rsTemp.AddNew
rsTemp!ID_temp = rsKnowledge!ID
rsTemp!fact = rsKnowledge!YESfact
rsTemp.Update
jwb = rsKnowledge!Yes
If Left(answer, 1) = "G" Then
    rsKnowledge.MoveFirst
    rsKnowledge.Find " ID= '" & answer & "' "
    Label1.Caption = rsKnowledge!question
Else
    rsSolution.MoveFirst
    rsSolution.Find " ID_solution= '" & answer & "' "
    frmDiagnose.Label1.Caption = rsSolution!solution
    frmDiagnose.Show vbModal
End If

顺便说一句，那是专家系统代码，

Answer 1

这不是一项微不足道的工作。但是，最好的办法是阅读源代码中的相关建议 将 Microsoft Visual Basic 6.0 升级到 Microsoft Visual Basic .NET

祝你好运。

Answer 2

您没有指定 VB.NET 的版本，但在 Visual Studio 2008 中，一旦创建项目，就会出现工具 > 升级 Visual Basic 6 代码...

如果您为这段代码声明变量（或通常包含更多代码），并在“引用”选项卡中指定 Microsoft DAO 3.6 对象库，您将获得此代码的良好转换。