一个关于C#转VB的有关问题
一个关于C#转VB的问题
前阵子用C#写了个关于公交查询的网站 自己测试过可以运行
最近由于需要必须转成VB代码 但是出现些问题
代码如下
Dim a As String = Request.QueryString("a").ToString()
Dim starstation As ArrayList = New ArrayList() '过A所有车
Dim conn As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\公交车查询系统.mdf;Integrated Security=True;User Instance=True")
conn.Open()
Dim cmd As SqlCommand = New SqlCommand("select 车次 from 公交车线路表 where 站名='" + a + "'", conn)
Dim sdr1 As SqlDataReader = cmd.ExecuteReader()
While sdr1.Read()
starstation.Add(sdr1.GetValue(0))
End While
Dim i As Integer
For i = 0 To starstation.Count
labe.text += starstation(i).ToString()
Next
以上是出错部分代码 提示 labe.text += starstation(i).ToString()
索引超出范围。必须为非负值并小于集合大小。 参数名: index
测试过sdr1可以读取数据 问题估计处在 starstation.Add(sdr1.GetValue(0))
是否vb不适用此语法？
本人初学.net vb更是首次接触 希望知道的前辈不吝赐教 3Q
------解决方案--------------------
For i = 0 To starstation.Count -1
前阵子用C#写了个关于公交查询的网站 自己测试过可以运行
最近由于需要必须转成VB代码 但是出现些问题
代码如下
Dim a As String = Request.QueryString("a").ToString()
Dim starstation As ArrayList = New ArrayList() '过A所有车
Dim conn As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\公交车查询系统.mdf;Integrated Security=True;User Instance=True")
conn.Open()
Dim cmd As SqlCommand = New SqlCommand("select 车次 from 公交车线路表 where 站名='" + a + "'", conn)
Dim sdr1 As SqlDataReader = cmd.ExecuteReader()
While sdr1.Read()
starstation.Add(sdr1.GetValue(0))
End While
Dim i As Integer
For i = 0 To starstation.Count
labe.text += starstation(i).ToString()
Next
以上是出错部分代码 提示 labe.text += starstation(i).ToString()
索引超出范围。必须为非负值并小于集合大小。 参数名: index
测试过sdr1可以读取数据 问题估计处在 starstation.Add(sdr1.GetValue(0))
是否vb不适用此语法？
本人初学.net vb更是首次接触 希望知道的前辈不吝赐教 3Q
------解决方案--------------------
For i = 0 To starstation.Count -1