超级菜鸟求助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
