VB.NET於SQL Server资料库存取关键程式码_第1页
VB.NET於SQL Server资料库存取关键程式码_第2页
VB.NET於SQL Server资料库存取关键程式码_第3页
VB.NET於SQL Server资料库存取关键程式码_第4页
VB.NET於SQL Server资料库存取关键程式码_第5页
已阅读5页，还剩1页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、VB.NET於SQL Server資料庫存取關鍵程式碼（以DataReader方法查詢資料表） (以SqlClient方法連線)目錄1.顯示全部資料表內容複製程式碼22.查詢某紀錄複製程式碼33.以關鍵字的方式查詢某紀錄複製程式碼51. /顯示全部資料表內容複製程式碼Imports System.DataImports System.Data.SqlClient '連結資料庫 '# '# SQL Server 2005 # '# 以 Windows 驗證登入帳戶 （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 驗證登入帳戶 （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("供應商") & vbTab & dreader.Item("連絡人") & vbTab & dreader.Item("地址") & vbNewLi

7、ne Loop '關閉資料庫的連結，以及DataReader物件 conn.Close() dreader.Close()2. /查詢某紀錄複製程式碼Imports System.DataImports System.Data.SqlClient '連結資料庫 '# '# SQL Server 2005 # '# 以 Windows 驗證登入帳戶 （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 驗證登入帳戶 （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("供應商") & vbTab & dreader.Item("連絡人") & vbTab & dreader.Item("地址") & vbNewLine Loop '關閉資料庫的連結，以及Dat

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

14、ports 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

15、=密碼;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 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("供應商") & vbTab & dreader.Item("連絡人") & vbTab & dreader.Item("地址") & vbNewLine Loop

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论