Преобразование кодов vb6 в vb.net

Я хочу преобразовать этот код 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

Кстати, это экспертный системный код,

2 ответа

Это не тривиальное начинание. Однако лучше всего прочитать соответствующий совет из источника. Обновление Microsoft Visual Basic 6.0 до Microsoft Visual Basic .NET.

Удачи.

Вы не указываете версию VB.NET, но в Visual Studio 2008 после создания проекта есть Сервис> Обновить код Visual Basic 6...

Если вы объявите переменные для этого фрагмента кода (или включите больше кода в целом) и укажите библиотеку объектов Microsoft DAO 3.6 на вкладке "Ссылки", вы получите хорошее преобразование для этого кода.

Другие вопросы по тегам