Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Connection String 欄位說明
'Data Source : 伺服器
'Initial Catalog : 要連接的資料庫
'UID : 登入資料庫的帳號
'PWD : 密碼
'注意!! Initial Catalog 要依照你實際建立的資料庫去做修改
Dim _ConnectionString As String = "Data Source=.\SQLExpress;Initial Catalog=MyTestDatabase;UID=MyTestUser;PWD=qqqqqqqq"
Dim _SqlString As String = ""
Dim objCmd As SqlCommand = Nothing
Using objCon As SqlConnection = New SqlConnection(_ConnectionString)
objCon.Open()
'注意!! 資料表名稱(例如 Membershiup_User)應該修改成你自己實際建立的資料表名稱
_SqlString = "select * from Membership_User"
objCmd = New SqlCommand(_SqlString, objCon)
Using objReader As SqlDataReader = objCmd.ExecuteReader
While objReader.Read
'注意!! 欄位名稱(例如 UserName)應該修改成你自己實際建立的欄位名稱
ListBox1.Items.Add(objReader.Item("UserName"))
End While
End Using
End Using
End Sub
End Class
