如何将vb 6代码转换为vb.net？ [英] How to convert vb 6 codes to vb.net?

问题描述

如何在vb.net上转换这个？

How to convert this on vb.net?

Private Sub cbouser_Click()

chkall.Value = Unchecked
lvforms.Enabled = True
Dim tmp
Dim rs_check As New ADODB.Recordset
Dim check As String
Dim i
Dim X
    For X = 1 To lvforms.ListItems.Count
        lvforms.ListItems(X).Checked = False
    Next
        
tmp = Split(cbouser.Text, "/")

check = "select accessid,forms as checkform from userform_tab where accessid='" & (tmp(0)) & "'"
rs_check.Open check, conn

    Do While Not rs_check.EOF
        For i = 1 To lvforms.ListItems.Count
        If StrComp(lvforms.ListItems(i).SubItems(1), rs_check!checkform) = 0 Then
            lvforms.ListItems(i).Checked = True
        End If
        Next
    rs_check.MoveNext
    Loop
End Sub

推荐答案

您可以尝试这样的事情，

Hi try something like this,

CheckBox1.Checked = False
ListView1.Enabled = True
Dim tmp

Dim check As String
Dim i
Dim X
For X = 1 To ListView1.Items.Count
    ListView1.Items(X).Checked = False
Next

tmp = cbouser.Text.Split("/")

check = "select accessid,forms as checkform from userform_tab where accessid='" & (tmp(0)) & "'"
Dim rs_check As New System.Data.SqlClient.SqlConnection("your Connection string")
rs_check.Open()
Dim cmd As New System.Data.SqlClient.SqlCommand(check, rs_check)
Dim reader As System.Data.SqlClient.SqlDataReader
reader = cmd.ExecuteReader()
If reader.HasRows Then
    While reader.Read()
        For i = 1 To ListView1.Items.Count
            If ListView1.Items(i).SubItems(1).ToString().Compare("your Comapre String1", "your Comapre String2") = 0 Then
                ListView1.Items(i).Checked = True
            End If
        Next
    End While
End If

如果你需要Access数据库，请使用OleDbConnection，OleDbCommand，OleDbDataReader



问候

sarva

use OleDbConnection,OleDbCommand,OleDbDataReader if you need Access database

regards
sarva

你不能100％转换，你必须做s ome /更多手动更改。检查这个

.NET代码转换 - 转换代码 [< a href =http://www.codeproject.com/Articles/310667/NET-Code-Conversiontarget =_ blanktitle =New Window> ^ ]

You can't convert 100%, you have to do some/more manual changes. Check this
.NET Code Conversion - Convert your code[^]

这篇关于如何将vb 6代码转换为vb.net？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！