(a).sql查詢『某紀錄』語法.docVIP

VB.NET於SQL Server資料庫存取關鍵程式碼（以DataReader方法查詢資料表） (以SqlClient方法連線) 目錄 1. 顯示全部資料表內容複製程式碼 2 2. 查詢『某紀錄』複製程式碼 3 3. 以關鍵字的方式查詢『某紀錄』複製程式碼 5 //顯示全部資料表內容複製程式碼 Imports System.Data Imports System.Data.SqlClient 連結資料庫 ################################################################## ####### SQL Server 2005 ####################################### ####### 以 Windows 驗證登入帳戶 （3種方法）####################### Dim str As String = Server=localhost;database=資料庫名稱;User Id=;Password=密碼;Integrated Security=SSPI; Dim str As String = Server=(local);database=資料庫名稱;User Id=;Password=密碼;Integrated Security=SSPI; Dim str As String = Server=伺服器名稱;database=資料庫名稱;User Id=;Password=密碼;Integrated Security=SSPI; ################################################################## ####### 以 SQL Server 驗證登入帳戶 （3種方法）################### Dim str As String = Server=localhost;database=資料庫名稱;User Id=;Password=密碼; Dim str As String = Server=伺服器名稱;database=資料庫名稱;User Id=;Password=密碼; Dim str As String = Persist Security Info=False;User ID=帳戶名稱;Password=密碼;Initial Catalog=資料庫名稱;Server=localhost Dim conn As SqlConnection = New SqlConnection(str) conn.Open() Dim str1 As String = select * from 資料表 建立command物件 Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) Dim dreader As OleDbDataReader dreader = cmd.ExecuteReader() 印出欄位名稱：方法要先取得 GetSchemaTable（是一個表格） 第1欄名稱：dtsch.Rows(0)(0).ToString() 第2欄名稱：dtsch.Rows(1)(0).ToString() 第3欄名稱：dtsch.Rows(2)(0).ToString() Dim dtsch As DataTable = dreader.GetSchemaTable TextBox1.Text = dtsch.Rows(1)(0).ToString() vbTab dtsch.Rows(2)(0).ToString() vbTab dtsch.Rows(4)(0).ToString() vbNewLine 使用DataReader取出串流資料，迴圈讀取資料表的每一筆記錄 Do While dreader.Read() TextBox1.Text = dreader.Item(供應商) vbTab dreader.Item(連絡人) vbTab dreader.I