VB.NET於SQL Server資料庫存取關(guān)鍵程式碼_第1頁
VB.NET於SQL Server資料庫存取關(guān)鍵程式碼_第2頁
VB.NET於SQL Server資料庫存取關(guān)鍵程式碼_第3頁
VB.NET於SQL Server資料庫存取關(guān)鍵程式碼_第4頁
VB.NET於SQL Server資料庫存取關(guān)鍵程式碼_第5頁
已閱讀5頁，還剩1頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、VB.NET於SQL Server資料庫存取關(guān)鍵程式碼（以DataReader方法查詢資料表） (以SqlClient方法連線)目錄1.顯示全部資料表內(nèi)容複製程式碼22.查詢某紀(jì)錄複製程式碼33.以關(guān)鍵字的方式查詢某紀(jì)錄複製程式碼51. /顯示全部資料表內(nèi)容複製程式碼Imports System.DataImports System.Data.SqlClient '連結(jié)資料庫 '# '# SQL Server 2005 # '# 以 Windows 驗(yàn)證登入帳戶 （3種方法）# Dim str As String = "Server=localhost

2、;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;

3、" '# '# 以 SQL Server 驗(yàn)證登入帳戶 （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 I

4、D=帳戶名稱;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 =

5、 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(

6、2)(0).ToString() & vbTab & dtsch.Rows(4)(0).ToString() & vbNewLine '使用DataReader取出串流資料，迴圈讀取資料表的每一筆記錄 Do While dreader.Read() TextBox1.Text &= dreader.Item("供應(yīng)商") & vbTab & dreader.Item("連絡(luò)人") & vbTab & dreader.Item("地址") & vbNewLi

7、ne Loop '關(guān)閉資料庫的連結(jié)，以及DataReader物件 conn.Close() dreader.Close()2. /查詢某紀(jì)錄複製程式碼Imports System.DataImports System.Data.SqlClient '連結(jié)資料庫 '# '# SQL Server 2005 # '# 以 Windows 驗(yàn)證登入帳戶 （3種方法）# Dim str As String = "Server=localhost;database=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Sec

8、urity=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 驗(yàn)證登入帳戶 （3種方法）# 'D

9、im 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=localho

10、st" Dim conn As SqlConnection = New SqlConnection(str) conn.Open() '查詢資料 Dim str1 As String = "Select * from 資料表 where name = 'jack'" '建立command物件 Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) Dim dreader As OleDbDataReader dreader = cmd.ExecuteReader() '印

11、出欄位名稱：方法要先取得 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() & vbTa

12、b & dtsch.Rows(4)(0).ToString() & vbNewLine '使用DataReader取出串流資料，迴圈讀取資料表的每一筆記錄 Do While dreader.Read() TextBox1.Text &= dreader.Item("供應(yīng)商") & vbTab & dreader.Item("連絡(luò)人") & vbTab & dreader.Item("地址") & vbNewLine Loop '關(guān)閉資料庫的連結(jié)，以及Dat

13、aReader物件 conn.Close() dreader.Close()注意查詢(a). SQL查詢某紀(jì)錄語法n Select * from 1a where name = jack(b). 當(dāng)有變數(shù)時的SQL查詢語法（C）n “Select * from 1a where name = ” + textBox1.text + “”(c). 當(dāng)有變數(shù)時的SQL查詢語法（VB.NET）n “Select * from 1a where name = ” & textBox1.text & “”3. /以關(guān)鍵字的方式查詢某紀(jì)錄複製程式碼Imports System.DataIm

14、ports System.Data.SqlClient '連結(jié)資料庫 '# '# SQL Server 2005 # '# 以 Windows 驗(yàn)證登入帳戶 （3種方法）# Dim str As String = "Server=localhost;database=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI;" 'Dim str As String = "Server=(local);database=資料庫名稱;User Id=帳戶名稱;Password

15、=密碼;Integrated Security=SSPI;" 'Dim str As String = "Server=伺服器名稱;database=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI;" '# '# 以 SQL Server 驗(yàn)證登入帳戶 （3種方法）# 'Dim str As String = "Server=localhost;database=資料庫名稱;User Id=帳戶名稱;Password=密碼;" 'Dim st

16、r 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

17、 = "Select * from 資料表 where name like '%jack%'" '建立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

18、(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("供應(yīng)商") & vbTab & dreader.Item("連絡(luò)人") & vbTab & dreader.Item("地址") & vbNewLine Loop

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論