Visual Basic .Net MS SQL Server 資料庫存取範例程式

● 連線

Dim DBconnection As New SqlConnection("Server=localhost\SQLEXPRESS;Database=apex;Trusted_Connection=True;")
DBconnection.Open()

● 新增

Dim cmd As New SqlCommandcmd.CommandText = "INSERT INTO Table1 (qrcode) VALUES ('test')"
cmd.Connection = DBconnection
cmd.ExecuteNonQuery()

● 查詢

Dim rd As SqlDataReader
Dim cmd As New SqlCommand

cmd.CommandText = "SELECT * FROM table1"
cmd.Connection = DBconnection

rd = cmd.ExecuteReader()

rd.Read()

MsgBox(rd.Item("qrcode"))