第五章 VB 資料庫處理指令
5.1 VB200X序列資料庫物件關聯圖 2
5.2 引入資料處理類別 3
5.3 建立連線 3
5.4 資料處理 3
5.4.1 執行SQL指令 3
5.4.2 讀取資料表紀錄 4
5.4.3 使用ADODB類別與方法讀取紀錄 4
5.4.4 表列紀錄 6
5.4.5 DataGridView常用屬性 8
5.4.6 動態設定DataGridView表格及加入資料 9
5.4.7 取出 DataGridView表格資料 11
5.4.8 排序 11
5.4.9 過濾紀錄 11
5.4.10 關聯查詢 11
5.4.11 逐筆處理資料 11
5.4.12 動態產生記憶體資料表 15
5.5 匯出檔案 16
5.5.1 資料表紀錄匯出為XML格式 16
5.6 常用SQL指令格式 17
5.6.1 選取查詢 17
5.6.1.1 基本敘述 17
5.6.1.2 篩選資料 17
5.6.1.3 資料排序 17
5.6.2 在VB環境執行SQL查詢之三種方法 18
5.6.3 動作查詢 18
5.6.3.1 更新查詢 18
5.6.3.2 刪除查詢 18
5.6.3.3 新增查詢 19
5.6.4 產生資料表查詢 19
5.6.5 其他SQL指令 19
5.6.5.1 資料統計 19
5.6.5.2 顯示唯一資料 20
5.6.5.3 選取前數筆資料 20
5.6.5.4 資料小計處理 20
5.6.6 結合兩個資料表 20
5.6.7 結合VB函數 21
第五章 VB 資料庫處理指令
本章介紹以 VB 程式語言來開發 Access 資料庫應用系統之技巧，此外也將 詳細解說各種資料處理物件之相關屬性和方法。
5.1 VB200X 序列資料庫物件關聯圖
Database
Connection
Command DataReader
Windows 控制項 TextBox
SQL Command
DataAdapter
DataSet DataTable
DataView
Windows 控制項 TextBox BindingSource BindingNavigator CommandBuilder DataGridView ADODB
ODBC Driver Database
Database
Connection
Command DataReader
Windows 控制項 TextBox
SQL Command
DataAdapter
DataSet DataTable
DataView
Windows 控制項 TextBox BindingSource BindingNavigator CommandBuilder DataGridView ADODB
ODBC Driver
圖 5.1 資料庫物件關聯圖
上圖說明資料庫處理使用到的類別及相關物件之關係，引用物件時，須按照 上圖連線之箭頭方向依序引用。
類別：System.Data.OleDB 物件：
OleDBConnection：資料庫連接器，用途為與伺服端資料庫之連線。
OleDBCommand：SQL 指令處理器，將主控端 SQL 指令送往伺服端處理。
OleDBDataReader：前導型資料讀取器，逐筆讀取開啟之資料表紀錄。
OleDBDataAdapter：資料表橋接器，透過開啟之連線，建立資料表在伺服端 與主控端之橋接機制，並將取得的資料表加入記憶體資料 庫。
OleDBCommandBuilder：資料表更新處理器，建立橋接資料表資料更新機制，
諸如新增、修改及刪除等作業。
ADODB：使用 ADO 類別與方法處理紀錄集。
通用型資料處理物件：
DataSet：記憶體資料庫，用於存放以橋接器連接之資料表。
DataTable：記憶體資料表，將記憶體資料表轉成可前後移動紀錄指標之資料 表，此資料表可用於新增、修改及刪除等用途。
DataView：視界型資料表，將DataTable轉成視界，視界型資料表可排 ↑H
序及設定過濾條件，並與 DataGridView 控制項結合，使得資料瀏 覽更加方便。
BindingSource：資料來源，將記憶體資料庫轉成可與其它控制項結合之資料 來源。
BindingNavigator：紀錄導覽器，建立來源資料之紀錄導覽按鈕。
OLEDB Driver：作為應用系統在 Windows 平台與 MySQL 間之溝通驅動程式。
5.2 引入資料處理類別
在表單程序區前端加入下述指令，引入資料處理類別後，才可以在表單程序 內叫用相關物件及方法。
Imports System.Data.OleDB Imports System
Imports Microsoft.VisualBasic 5.3 建立連線
可在模組區建立公用連線方法，開啟表單時，可叫用此方法來開啟連線。本 書將其命名為openCon，程式內容如下：
Public Sub openCon(ByVal WDB As String) Try
Dim opValue As Long Dim str As String
opValue = 1 + 2 + 8 + 32 + 16384，說明：通用型選項參數值 str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & WDB
‘//WDB 表欲開啟之資料庫全名（含路徑名）
acCon= New OleDBConnection(str)
If Not acCon.State = ConnectionState.Open Then acCon.Open() Catch ex As Exception
MsgBox(ex.Message) End Try
End Sub 5.4 資料處理
5.4.1 執行 SQL 指令
使用OleDBCommand物件來執行SQL指令，此物件可與伺服端紀錄集連線，
但是不取出結果。
acCmd = New OleDBCommand(strSQL, acCon)
acCmd.ExecuteNonQuery() ↑H
相關語法
建立處理物件：New OleDBCommand(strSQL, acCon) 引數一：SQL指令，範例: Select * From acTable;
引數二：連線物件
說明：以下 acTable代表要處理之資料表名稱 執行SQL指令：SQL指令物件.ExecuteNonQuery() 5.4.2 讀取資料表紀錄
使用OleDBDataReader物件來讀取紀錄。
建立OleDBDataReader物件
Dim tblReader As OleDBDataReader 建立SQL指令物件
strSQL = "Select * From acTable;"
acCmd = New OleDBCommand(strSQL, acCon) 建立紀錄讀取物件
tblReader = acCmd.ExecuteReader() 逐筆讀取紀錄
While tblReader.Read
For i = 0 To tblReader.FieldCount -1
vl = tblReader.Item(i).ToString，說明：取出第 i 欄資料 Nest i
End While 關閉物件
tblReader.Close()
說明：OleDBDataReade.Read 方法只能往前讀取紀錄。
取出之 vl 可轉存至其它控制項或與記憶體變數進行運算，例如：
txtName.text = tblReader.Item(1).ToString
OleDBDataReader 可使用 HasRows 屬性來判斷取得的資料表有無紀錄，
若包含紀錄則傳回 True。
5.4.3 使用 ADODB 類別與方法讀取紀錄
ADODB類別與方法可使用程式碼來處理資料表之新增、修改、刪除及轉檔 工作。下述程式示範連線、開啟紀錄集，以及逐筆處理紀錄。
宣告連線物件
Dim con As New ADODB.Connection ↑H
宣告紀錄集物件
Dim rs As New ADODB.Recordset 定義連線屬性
Dim acSQLSTR As String
acSQLSTR = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & WDB設定 連線屬性
acCon.ConnectionString = acSQLSTR 開啟連線
acCon.Open() 設定SQL指令
Dim strSQL As String
strSQL = "Select * from acTable"
開啟紀錄集
rs.Open(strSQL, acCon, 2, 4) 逐筆讀取全部紀錄
Do While Not rs.EOF
vl = rs(0).Value ，說明：取出欄位資料 rs.MoveNext()
Loop rs.Close 說明：
ADODB類別事前須先引入專案才可使用，引入步驟如下：
z 啟動表單在設計模式
z 下拉專案功能表，然後點擊【加入參考】功能，當開啟【加入參考】對 話表單後，點選【COM】及捲動清單至【MicroSoft Active Data Objects 2.8 Library】，按下【確定】，即可加入此類別。
RecordSet相關方法與屬性使用說明：
Open 方法傳入引數說明 引數一：SQL 指令，
引數二：開啟之 OLEDB 連線，
引數三：紀錄集開啟模式，代表值如下：，
0: adOpenForwardOnly, 1: adOpenKeySet,
2: adOpenDynamic,
3: adOpenStatic ↑H
引數四：紀錄集鎖定模式，代表值如下：，
1: adLockReadOnly, 2: adLockPessimistic, 3: adLockOptimistic, 4: adLockBatchOptimistic EOF：判斷是否已至檔案末端，
BOF：判斷是否已至檔案頂端，
Close：關閉紀錄集，
AddNew：新增一筆空紀錄，
Delete：刪除紀錄，
Update：更新紀錄，使用時機為修改紀錄或新增紀錄後；Delete方法不須搭 配Update方法。
取值：可使用下列方法：
傳入欄位註標（從0開始起算）：rs(i).Value 傳入欄位名稱： rs(“欄名”).Value。
給值：可使用下列方法 rs(i).Value = 值
rs(“欄名”).Value = 值。
移動紀錄指標：
首筆：rs.MoveFirst 次筆：rs.MoveNext 前筆：rs.MovePrevious 次筆：rs.MoveLast
過濾紀錄：rs.Filter =“欄名 = 欄值 [And | Or ….]”。
釋放過濾條件：rs.Filter = “”。
5.4.4 表列紀錄
下述範例是以視界形式顯示紀錄，可搭配DaGridView來展示多筆紀錄。
Dim ds As New DataSet
Dim da As New OleDBDataAdapter(SQL, acCon) Dim daView As DataView
Dim tbl As DataTable da.Fill(ds, "qryTable")
說明：將連線資料表加入記憶體資料庫，並將資廖表取明為qryTable。
tbl = ds.Tables("qryTable")
說明：將記憶體資料表轉為DataTable物件。 ↑H
daView = tbl.DefaultView
說明：將 DataTable 物件轉為視界型資料表。
DataGridView1.DataSource = daView1 說明：將視界型資料表連結至表格物件。
語法說明
OleDBDataAdapter（資料表橋接器）引數說明：
引數一：SQL指令 引數二：連線物件
OleDBDataAdapter須使用Fill方法將所取得的伺服端資料表加入記憶體資料庫，
語法如下：
da.Fill(ds, "qryTable")
記憶體資料庫可使用下述指令轉成記憶體資料表：
tbl = ds.Tables("qryTable")
記憶體資料表可使用下述指令取得相關資料：
取得紀錄筆數: rn = tbl.Rows.Count 取得欄位個數: fln = tbl.Columns.Count
取得欄位名稱: na = tbl.Columns(i).ColumnName 取得第 i 筆第 j 欄值：vl = tbl.Rows(i).Item(j)
若使用 ADODB 之 RecordSet 取得來源資料，可使用下述指令加入記憶體資料庫。
da.Fill(ds, myRs, "qryTable")，說明：myRs為ADODB之RecordSet 5.4.4.1 取出資料錄
下述程式示範如何取出資料表紀錄。
Dim dRow As DataRow dRow = tbl.Rows(n)
說明：n表第幾筆紀錄，從0起算
Me.BK_BLNO.Text = dRow("BK_BLNO")
說明：取值並存入文字方塊，dRow引數可使用註標變數或使用欄名。
vl = dRow.Item(0).ToString()
說明：取出欄值並存入記憶體變數，0表第一欄 5.4.4.2 取出視界資料表紀錄
視界資料表可使用下述指令取得相關資料：
daView(n).Item(j) .ToString
說明：傳入欄位註標，n為紀錄序，j為欄序。
daView(n).Item(“欄名”) .ToString ↑H
說明：傳入欄位名稱。
5.4.4.3 取得欄位資料型態
下述程式示範如何取出資料表欄位型態，以SQL指令新增或修改資料時，必 須依欄位型態來組合SQL。
daType = tbl.Rows(0).Item(i).GetType.ToString 傳回結果：
System.Char/ System.String：字元型 System.Boolean：布林型
System.Byte/ System.SByte：位元組型 System.DateTime：日期時間
System.Decimal/ System.Double/ System.Single：實數型 System.Int16/ System.Int32/ System.Int64：整數型
System.Uint16/ System.Uint32/ System.Uint64：無號整數型
組合SQL時，日期及字元型欄位必須在取得的控制項資料前後加上引號，製 作過濾條件時亦同。
範例：strFilter = "BK_BLNO =’" & txtNo.Text & "’"
5.4.5 DataGridView常用屬性
下述程式示範DataGridView控制項之用法。
DataGridView1.DataSource = Nothing，說明：釋放原資料來源 DataGridView1.Refresh()
DataGridView1.DataSource = daView，說明：設定連結資料來源 5.4.5.1 語法說明
ColumnIndex：取得目前游標位置欄註標
curCI = DataGridView1.CurrentCell.ColumnIndex CurrentRow.Index：取得目前游標位置列註標
curRI = DataGridView1.CurrentRow.Index Cells(ci).Value：取得目前游標位置欄值
VL =DataGridView1.CurrentRow.Cells(ci).Value Name：取得目前游標位置之欄名
NA = DataGridView1.Columns(ci).Name Frozen：凍結欄位
DataGridView1.Columns(1).Frozen = True ↑H
DefaultCellStyle.Format：格式化資料
DataGridView1.Columns(i).DefaultCellStyle.Format = "yyyy/M/d H:mm:ss"
HeaderText：設定欄位抬頭
DataGridView1.Columns(i).HeaderText = “欄位抬頭”
ValueType.：取得欄位型態
ftp = DataGridView1.Columns(i).ValueType.ToString DefaultCellStyle.Alignment：設定欄位對齊方式
DataGridView1.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
5.4.5.2 應用範例
DataGridView控制項應用範例如下圖。
圖 5.2 DataGridView 控制項應用範例 5.4.6 動態設定 DataGridView 表格及加入資料
下述程式示範以動態方式（在執行階段）將資料加入 DataGridView 控制項，
請預先在表單內加入 DataGridView 控制項並取名為 dataGridView1。
Private Sub CreateDataGridView()
dataGridView1.ColumnCount = 4 ，說明：設定欄數
dataGridView1.ColumnHeadersVisible = True ，說明：設為可見 設定欄位抬頭樣式.
Dim columnHeaderStyle As New DataGridViewCellStyle() columnHeaderStyle.BackColor = Color.Beige
columnHeaderStyle.Font = New Font("Verdana", 10, FontStyle.Bold) dataGridView1.ColumnHeadersDefaultCellStyle = columnHeaderStyle 設定欄名.
dataGridView1.Columns(0).Name = "Recipe dataGridView1.Columns(1).Name = "Category"
dataGridView1.Columns(2).Name = "Main Ingredients" ↑H
dataGridView1.Columns(3).Name = "Rating"
加入紀錄.
Dim row1() As String = {"Meatloaf", "Main Dish", "ground beef", "**"}
Dim row2() As String = _
{"Key Lime Pie", "Dessert", "lime juice, evaporated milk", "****"}
Dim row3() As String = {"Orange-Salsa Pork Chops", "Main Dish", _ "pork chops, salsa, orange juice", "****"}
Dim row4() As String = {"Black Bean and Rice Salad", "Salad", _ "black beans, brown rice", "****"}
Dim rows() As Object = {row1, row2, row3, row4 } Dim rowArray As String()
For Each rowArray In rows
dataGridView1.Rows.Add(rowArray) Next rowArray
End Sub
5.4.7 取出 DataGridView表格資料
以下程式為點擊DataGridView1控制項時，取出當筆紀錄內含鍵值欄資料。
Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
Try
Dim fi As Integer
If DataGridView1.CurrentRow.Index >= rn Then Exit Sub 說明：rn， 事先取得之紀錄總數
curCI = DataGridView1.CurrentCell.ColumnIndex curRI = Me.DataGridView1.CurrentRow.Index If curCI = 0 Then
For fi = 0 To UBound(tbl.Columns.Count-1) If tbl.Columns(fi).Name = keyField1 Then 說明：取出第一鍵值
KVL1 = Me.DataGridView1.CurrentRow.Cells(fi).Value End If
If tbl.Columns(fi).Name = keyField2 Then 說明：取出第二鍵值（若有兩個主鍵時）
KVL2 = Me.DataGridView1.CurrentRow.Cells(fi).Value End If
Next ↑H
End If
Catch ex As Exception MsgBox(ex.Message) End Try
End Sub
此範例程式可應用於全螢幕編修紀錄，修改紀錄前，先點擊DataGridView鍵 值欄控制項來取得鍵值。修改紀錄後，再搭配下列方法來組合SQL指令，然後執 行該指令以修改紀錄。
strSQL = "Update 資料表名 Set "
For fi = 0 To UBound(tbl.Columns.Count-1)
strSQL= strSQL & tbl.Columns(fi).Name & "= " &
DataGridView1.CurrentRow.Cells(fi).Value & ","
Next
strSQL = Mid(strSQL, 1, Len(strSQL)-1) & " Where 過濾條件; "
acCmd = New OleDBCommand(strSQL, acCon) acCmd.ExecuteNonQuery()
5.4.8 排序
可搭配視界資料表將紀錄排序。
daView1.Sort = "欄名 ASC | DESC [, 第二排序欄位] "。
5.4.9 過濾紀錄
可搭配視界資料表來過濾紀錄。
daView.RowFilter = "欄名 = 欄值 [And | Or ….] "。
5.4.10 關聯查詢
進階應用－以關聯方式查詢兩個資料表，當主資料表紀錄變更時，可同步顯 示子資料表之關聯紀錄。處理方法如下：
¾ 主表以逐筆方式顯示，當紀錄指標移動時，同步取出鍵值並置入表單對應之 文字方塊內。
¾ 設定文字方塊資料變更事件程序 (TextChanged 事件)，當資料變更時，將子 資料表之 DataView 重設為 daView.RowFilter = "過濾字串"。
¾ 將連結子資料表之 DataGridView.DataSource 重新設為 daView。
5.4.11 逐筆處理資料
5.4.11.1 搭配紀錄導覽器及控制項
下述程式示範以紀錄導覽器來移動紀錄指標，須在表單內加入紀錄導↑H
覽器控制項，並取名為BindingNavigator1。
宣告物件
Dim bindSRC As BindingSource Dim bindADP As OleDBDataAdapter Dim bindTBL As DataTable
Dim ds As DataSet
Dim builder As OleDBCommandBuilder Dim daView1 As DataView
Dim tbl As DataTable, mKey(0) as DataColumn ds = New DataSet("ds")
定義SQL
strSQL =以 Select 前導之SQL 指令 mKey(0) = 主鍵
建立資料物件
bindADP = New OleDBDataAdapter(strSQL, acCon) 說明：建立資料庫橋接器
bindSRC = New BindingSource 說明：建立表單連結資料來源物件 bindADP.Fill(ds, “給定資料表名”)
說明：資料表填入資料庫橋接器 bindTBL = ds.Tables(“給定資料表名”)
說明：建立連結資料表物件 bindSRC.DataSource = ds
說明：建立資料來源物件
bindSRC.DataMember = “給定資料表名”
說明：設定表單連結資料來源 bindTBL.PrimaryKey = mKey
說明：設定連結資料表主鍵
BindingNavigator1.BindingSource = bindSRC 說明：設定紀錄導覽器資料來源
tbl = ds.Tables(“給定資料表名”) fln = tbl.Columns.Count
說明：取得連結資料表之欄位數 定義輸入法
Dim ime1, ime2, ime3 As ImeMode ime1 = Windows.Forms.ImeMode.Alpha
說明：英數 ↑H
ime2 = Windows.Forms.ImeMode.Off 說明：關閉輸入法
ime3 = Windows.Forms.ImeMode.On 說明：中文半形
設定控制項屬性並連結資料來源 控制項.ImeMode = ime1
說明：設定控制項輸入法 控制項.Name = 連結資料表欄名
說明：設定控制項名稱
控制項名.DataBindings.Add(New Binding("Text", bindSRC, 欄名, True)
說明：連結控制項來源資料，若為日期型欄位，引數"Text"須改為"Value"。
紀錄導覽器及控制項應用範例 應用範例如下圖。
紀錄導覽器
文字方塊
DataGridView：關聯查詢 紀錄導覽器
文字方塊
DataGridView：關聯查詢 紀錄導覽器
文字方塊
DataGridView：關聯查詢
圖 5.3 紀錄導覽器控制項 5.4.11.2 搭配 DataTable
下述程式示範以DataTable物件來增修紀錄。
宣告及建立物件
ds = New DataSet("ds")
strSQL : Select 前導之SQL 指令
bindADP = New OleDBDataAdapter(strSQL, acCon) 說明：建立資料庫連接器
bindADP.Fill(ds, “給定資料表名”) 說明：資料表填入資料庫連接器 bindTBL = ds.Tables(“給定資料表名”)
說明：建立連結資料表物件 rn = bindTBL.Rows.Count
說明：取得紀錄筆數 ↑H
fn = bindTBL.Columns.Count 逐筆處理紀錄
For i =0 To rn -1 說明：逐筆
For j = 0 To fn -1 說明：逐欄
vl = bindTBL.Rows(i).Item(j).ToString 說明：取得欄位資料‘
Next j Next i
5.4.11.3 新增、修改及刪除紀錄
以DataTable物件來增修紀錄時，須搭配OleDBCommandBuilder物件。
builder1 = New OleDBCommandBuilder(da1) bindSRC.DataSource = dsT
bindSRC.DataMember = wkTBL tbl = dsT.Tables(wkTBL)
daView = New DataView(tbl) 過濾紀錄
daView.RowFilter = ""
說明：釋放過濾條件 daView.RowFilter = keyVL
說明：過濾紀錄 刪除紀錄指令
daView.Delete
說明：刪除紀錄前，須使用 RowFilter 過濾指定鍵值之紀錄。
新增紀錄指令
Dim row As DataRowView = daView.AddNew 說明：新增紀錄
row.BeginEdit()
說明：開啟編輯功能 For j = 0 To fn -1 row(j) = 資料 Next j
row.EndEdit()
說明：結束編輯功能 ↑H
修改紀錄指令
Dim row As DataRowView For Each row In daView
row.BeginEdit()
說明：開啟編輯功能 vl = row(fi)
說明：取值，fi表欄位序號 row(fi) = vl
說明：給值 row.EndEdit()
說明：結束編輯功能 Next
將修改紀錄存回資料庫 Me.Validate()
bindSRC.EndEdit() bindADP.Update(tbl)
5.4.11.4 設定控制項連結資料來源欄位
設定控制項連結資料來源欄位之語法如下：
控制項.DataBindings.Add(New Binding("Text", bindSRC, 欄名, True)) 5.4.11.5 批次更新連結資料表紀錄
開啟表單時, 須先建立紀錄更新物件 OleDBCommandBuilder，指令如下：
builder = New OleDBCommandBuilder(bindADP)
然後使用指令按鈕來執行下述指令，也可以將下述指令放在 FormClosed 事 件內。
Me.Validate() bindSRC.EndEdit()
bindADP.Update(bindTBL) 5.4.12 動態產生記憶體資料表
下述程式示範以動態方式產生記憶體資料表、加入資料及顯示。
Dim staTbl As DataTable = New DataTable("StaTable") Dim daview As DataView
Dim column As DataColumn
Dim row As DataRow ↑H
定義欄位屬性
column = New DataColumn()
column.DataType = System.Type.GetType("System.String") 'System.Single column.ColumnName = "Item"
將欄位加入資料表
staTbl.Columns.Add(column) column = New DataColumn()
column.DataType = System.Type.GetType("System.Single") column.ColumnName = "Value"
staTbl.Columns.Add(column) 新增紀錄
row = staTbl.NewRow() row(0) = "筆數"
row(1) = st.RecNo 紀錄加入資料表
staTbl.Rows.Add(row) 定義第二筆紀錄
row = staTbl.NewRow() row(0) = "合計"
row(1) = st.Sum 紀錄加入資料表
staTbl.Rows.Add(row) 連結資料表至 DataGridView
daView = staTbl.DefaultView
DataGridView1.DataSource = daView 5.5 匯出檔案
5.5.1 資料表紀錄匯出為 XML 格式
下述程式用於匯出資料表紀錄為 XML 格式。
宣告及建立物件
Dim ds As New DataSet, daTable As DataTable da = New OleDBDataAdapter(strSQL, acCon) da.Fill(ds, 資料表名)
daTable = ds.Tables(資料表名L) ↑H
Dim mode As XmlWriteMode = XmlWriteMode.WriteSchema ds = daTable.DataSet
匯出紀錄
If fld = False Then '//不寫入欄位結構 ds.WriteXml(存檔檔名)
Else
ds.WriteXml(存檔檔名, mode) '//寫入欄位結構 End If
5.6 常用 SQL 指令格式
5.6.1 選取查詢 5.6.1.1 基本敘述
語法：SELECT [欄位串列] FROM [資料表名];
範例：
SELECT 顧客名冊.顧客 ID, 顧客名冊.顧客名稱 FROM 顧客名冊;
SELECT 顧客 ID, 顧客名稱 FROM 顧客名冊;
SELECT * FROM 顧客名冊;
5.6.1.2 篩選資料
語法：SELECT [欄位串列]
FROM [資料表名]
WHERE [篩選條件];
範例：
SELECT 顧客名冊.顧客 ID, 顧客名冊.顧客名稱 FROM 顧客名冊
WHERE 縣市 = “台北市”;
[WHERE 單價 >= 1000;]
[WHERE 建檔日期 = #99/03/01#;]
[WHERE 顧客名 LIKE “%股份有限%”;]
[WHERE 建檔日期 BETWEEN #99/03/01# AND #99/12/31#;]
5.6.1.3 資料排序
語法：SELECT [欄位串列]
FROM [資料表名]
ORDER BY [排序準則];
範例：
SELECT 顧客名冊.顧客 ID, 顧客名冊.顧客名稱
FROM顧客名冊 ↑H
ORDER BY 顧客名 ASC [DESC];
[ORDER BY 顧客名 ASC, 建檔日期 DESC;]
5.6.2 在 VB 環境執行 SQL 查詢之三種方法 9 使用 Recordset 物件之 Open 方法 9 使用 Connection 物件的 Execute 方法 9 使用 Command 物件的 Execute 方法 範例：
Public Sub SQLSelect()
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset
Dim mySQL As String 'SQL 敘述 '//連接
Set cn = CurrentProject.Connection '//篩選
mySQL = "SELECT * FROM 顧客名冊" _ & " WHERE 縣市 = '台北市';"
Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenKeyset, adLockReadOnly '//確認
Do Until rs.EOF
Debug.Print rs!顧客 ID, rs!顧客名, rs!縣市 rs.MoveNext
Loop '//結束
rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub
5.6.3 動作查詢
只可使用 Connection 或 Command 物件。
5.6.3.1 更新查詢
語法：UPDATE [資料表名] SET [欄位名稱] = [新值]
範例：UPDATE 顧客名冊 SET 顧客名 = 顧客名 & “敬啟”, 電話號碼 = TEL” & 電話號碼;
5.6.3.2 刪除查詢 ↑H
語法：DELETE [資料表名.*] FROM [資料表名]
範例：DELETE * FROM 顧客名冊 WHERE 建檔日期 = #99/03/01#;
5.6.3.3 新增查詢 9 新增紀錄
語法：INSERT INTO [資料表名] (欄位串列名稱) VALUE(待填入新值串列) 範例：INSERT INTO 員工名冊 (員工 ID, 姓名, 起聘日期)
VALUE (901, “黃大千”, #2001/3/1#);
9 自其他資料表取得資料
語法：INSERT INTO [目的資料表名] (欄位串列名稱) SELECT [欄位串列名稱]
FROM [來源資料表名]
範例：INSERT INTO [商品一覽表] (商品 ID, 商品名稱, 單價) SELECT 商品 ID, 商品名稱, 單價
FROM 新商品;
5.6.4 產生資料表查詢
語法：SELECT [欄位串列名稱] INTO [新資料表名]
FROM [來源資料表名]
WHERE [篩選準則]
範例：SELECT * INTO 北區顧客 FROM 顧客名冊 WHERE 區位 = “北區”;
5.6.5 其他 SQL 指令 5.6.5.1 資料統計
常用指令：
AVG：傳回某欄位所有值之平均
COUNT：傳回某欄位個數(計算資料筆數) SUM：傳回某欄位所有值之總和
MAX：傳回某欄位所有值之最大值 MIN：傳回某欄位所有值之最小值
範例：SELECT COUNT(Units) AS UnitCount, AVG(Units) AS UnitAvg,
SUM(Units) AS UnitSum, MIN (Units) AS UnitMin, MAX(Units) AS UnitMax,
FROM BookSales; ↑H
5.6.5.2 顯示唯一資料 9 單一欄位
語法：SELECT DISTINCT AUID FROM Titles;
9 複合欄位
語法：SELECT DISTINCT Title, Units FROM Titles;
9 部分欄位不同之紀錄
語法：SELECT DISTINCTROW * FROM Titles;
5.6.5.3 選取前數筆資料 9 前 n 筆記錄
語法：SELECT TOP 5 * FROM Titles;
9 前 n%記錄
語法：SELECT TOP 5 PERCENT * FROM Titles;
5.6.5.4 資料小計處理
語法：SELECT SUM(Units) AS UnitSum FROM BookSales GROUP BY Title;
小計配合篩選條件
語法：SELECT SUM(Units) AS UnitSum FROM BookSales GROUP BY Title
HAVING SUM(UNits) > 100;
5.6.6 結合兩個資料表 INNER JOIN
兩個資料表結合欄位資料必須完全吻合 語法：SELECT [資料表名].[欄名], … FROM [表一] INNER JOIN [表二]
ON [表一].[鍵值欄一] = [表二].[ 鍵值欄二];
LEFT JOIN
左表之全部記錄及右表結合欄位資料吻合之記錄 語法：SELECT [資料表名].[欄名], …
FROM [表一] LEFT JOIN [表二]
ON [表一].[鍵值欄一] = [表二].[ 鍵值欄二];
RIGHT JOIN
右表之全部記錄及左表結合欄位資料吻合之記錄 ↑H
語法：SELECT [資料表名].[欄名], … FROM [表一] RIGHT JOIN [表二]
ON [表一].[鍵值欄一] = [表二].[ 鍵值欄二];
兩個查詢表之 UNION
語法：SELECT [欄位串列]
FROM [表一] WHERE [準則]
UNION
SELECT [欄位串列]
FROM [表二] WHERE [準則]
ORDER BY [排序欄名];
註：以表一之欄位為基準，兩個表必須有相同之欄位數 巢狀式查詢
語法：SELECT [欄位串列] FROM [表一] WHERE [欄名一] IN ( SELECT [欄名二] FROM [表二] WHERE [準則]);
5.6.7 結合 VB 函數 應用範例
1.SELECT Left$(Name,3) AS 姓, Name FROM Authors;
2.SELECT Name, City+”,”+State+” “+Zip AS Address FROM Publishers;
3.SELECT Name FROM Publishers WHERE Mid$(Name,2,1) = “a”;
註：只在 VB 的環境下適用。
↑H
