读出数据库中数据

1. Imports System.Data
2. Imports System.Data.SqlClient   REM 有数据库连接的时候就要写这两行
4. Public Class Form1
7.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
8.         Using mycon As New SqlConnection("Data Source=lty-pc;Initial Catalog=Discuz!;Integrated Security=True")
9.             Dim sql As SqlCommand = New SqlCommand("select * from dnt_forums", mycon)
10.             mycon.Open()
11.             Dim Rs As SqlDataReader = sql.ExecuteReader
12.             If Rs.HasRows = True Then
13.                 While Rs.Read
14.                     Application.DoEvents()
15.                     Label1.Text += Rs("fid").ToString() & vbCrLf
16.                 End While
17.             End If
18.             Rs.Close()
19.             sql.Dispose()
20.             mycon.Close()
21.         End Using
22.     End Sub
23. End Class