-4

我想将此 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

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

4

2 回答 2

4

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

祝你好运。

于 2014-04-01T13:18:09.413 回答
1

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

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

于 2014-04-01T13:53:57.170 回答