Question

我是vb.net的新手，我正在尝试将旧的vb6项目转换为vb.net.i我正在使用access作为数据库。

表格有3个组合框 -
1.bustype（cmbbustype）
2.bus no（cmdbusno）
3.route no（cmbrtnum）

文本框 - 9： -
1.开始停止（txtbegstop）
2.end stop（txtenstop）
3.start from（txtsfrom）
4.到（txtendto）
5.儿童数量（txtchild）
6.成年人数（txtnoadult）
7.半价票（txthalf）
8.全票价格（txtfull）
9.总票价（txttotal）

使用命令按钮 - “率”计算儿童和成人的总票价

 Private Sub cmdrate_Click()
Set rs = con.Execute("select Childfare,Adultfare from busdetails where Start='" + Txtsfrom.Text + "' and send='" + Txtendto.Text + "'  ")
If (Not rs.EOF) Then
    Txthalf.Text = rs(0)
    Txtfull.Text = rs(1)
    c = Val(Txtchild.Text) * Val(Txthalf.Text)
    a = Val(Txtnoadult.Text) * Val(Txtfull.Text)
   Txttotal.Text = c + a

Else
    MsgBox "Invalid Input", vbCritical, "E-Ticketing"
End If
rs.Close
End Sub


Private Sub Form_Load()
connectdb

Set rs = con.Execute("select Bustype from busdetails")
While (Not rs.EOF)
    Cmbbustype.AddItem rs(0)
     rs.MoveNext

Wend
rs.Close

Set rs = con.Execute("select Mincharge fhrom busdetails where Bustype='" + Cmbbustype + "' ")
If (Not rs.EOF) Then
    Lblmin.Caption = rs(2)
End If
rs.Close

Set rs = con.Execute("select Busnumber from busdetails")
While (Not rs.EOF)
Cmdbusnumber.AddItem rs(0)
rs.MoveNext
Wend
rs.Close

Set rs = con.Execute("select RtNo from route")
While (Not rs.EOF)
    cmbRtNum.AddItem rs(0)
    rs.MoveNext
Wend
rs.Close
End Sub


Please help me to convert this code to vb.net! i am really stuck.

如何在vb.net中使用记录集？

Answer 1

由于您使用的是2010，因此无法进行直接（自动）转换。我建议您尝试下载2008 Express的副本，并使用它来执行转换的自动部分。它将转换它可以转换的内容，并生成一个报告，用于标识剩余的不符合要求的编码，然后必须手动解决。其中大部分将成为这两件事之一：1）所有变量必须是定义类型（不再有VARIANT类型），2）所有变量必须在被引用之前初始化为一个值（没有分配默认值）。

另请参阅：https://msdn.microsoft.com/en-us/library/14w905kc%28v=vs.90%29.aspx

从VB6到vb.net的代码转换

1 个答案: