超级菜鸟求助vs.net中的数据库连接输出问题
前面的程序省略
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLConn As New SqlClient.SqlConnection

SQLConn.ConnectionString = MasterNetConnStr
SQLConn.Open()

Dim strSQL As String = "select webaddress,Webname from websites "
Dim SQLCmd As New SqlClient.SqlCommand

SQLCmd.CommandText = strSQL
SQLCmd.Connection = SQLConn


Dim ObjReader As SqlClient.SqlDataReader = SQLCmd.ExecuteReader()


ObjReader.Read()

XXXXXXXXXXXXXXX

SQLConn.Close()
SQLConn = Nothing
SQLCmd = Nothing

End Sub

我想在程式一开始的时候直接从数库据中读取 "webaddress & Webname "并显示在WebAddlstBox中,但当中的 "XXXXXXXXXXX "不知道怎么写下去才能显示了,查了很多资料都没办法,唯有请高人指点

[解决办法]
Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Int32 = Convert.ToInt32(TextBox1.Text)
Dim s As String = i.ToString & ((i + 1) Mod 10).ToString & ((i + 2) Mod 10).ToString
TextBox4.Text = s
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLConn As New SqlClient.SqlConnection
Dim MasterNetConnStr As String '= " "

SQLConn.ConnectionString = MasterNetConnStr
SQLConn.Open()

Dim strSQL As String = "select webaddress,Webname from websites "
Dim SQLCmd As New SqlClient.SqlCommand

SQLCmd.CommandText = strSQL
SQLCmd.Connection = SQLConn


Dim ObjReader As SqlClient.SqlDataReader = SQLCmd.ExecuteReader()

WebAddlstBox.Items.Clear()

While (ObjReader.Read())

'XXXXXXXXXXXXXXX()

' 将webaddress和Webname合并,添加为WebAddlstBox中一项
WebAddlstBox.Items.Add(ObjReader( "webaddress ").ToString & " " & ObjReader( "Webname ").ToString)
End While


SQLConn.Close()
SQLConn = Nothing
SQLCmd = Nothing

End Sub
End Class