法律信息系統(tǒng)管理資料定義數(shù)據(jù)課件

1、1法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7 在VBA程序中使用SQL命令 2法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.1 定義數(shù)據(jù) 1. 創(chuàng)建數(shù)據(jù)表 CREATE TABLE (字段名 數(shù)據(jù)類型 NULL | NOT NULL | 字段名 AS 計(jì)算表達(dá)式, .n) 例7-11 在SQL模塊中建立如下過程： Sub Create_Table() DoCmd.RunSQL CREATE TABLE Student (姓名姓名 text(6), 年齡年齡 byte, 入學(xué)入學(xué) 日期日期 date) End Sub Sub Create_Table() Dim Sql As String Sql = CRE

2、ATE TABLE Student (姓名姓名 text(6), 年齡年齡 byte, 入學(xué)日入學(xué)日 期期 date) DoCmd.RunSQL Sql End Sub 等價(jià)等價(jià) 3法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.1 定義數(shù)據(jù) 2. 在表中增加字段 例7-12 為Student表增加一個(gè)貨幣型的字段“學(xué)費(fèi)” 3. 改變字段的類型 例7-13 修改Student表中“年齡”字段的類型 Sub Add_Field() DoCmd.RunSQL ALTER TABLE Student ADD 學(xué)費(fèi)學(xué)費(fèi) CURRENCY End Sub Sub Alter_Fields_Type() DoCmd

3、.RunSQL ALTER TABLE Student ALTER 年齡年齡 SmallInt End Sub 如果字段的新類型與原類型不兼容將造成數(shù)據(jù)丟失如果字段的新類型與原類型不兼容將造成數(shù)據(jù)丟失 4法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.1 定義數(shù)據(jù) 4. 改變字段的寬度 例7-14 更改Student表中“姓名”字段的寬度 5. 刪除一個(gè)字段 例7-15 刪除Student表中的“年齡”字段 Sub Delete_Field() DoCmd.RunSQL ALTER TABLE Student DROP 年齡年齡 End Sub Sub Alter_Fields_Width() DoCm

4、d.RunSQL ALTER TABLE Student ALTER 姓名姓名 text(10) End Sub 字段的寬度由大變小，有可能丟失數(shù)據(jù)字段的寬度由大變小，有可能丟失數(shù)據(jù) 5法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.1 定義數(shù)據(jù) 6. 刪除一個(gè)表 例7-16 刪除Student表 7. 修改數(shù)據(jù)表名字 例7-17 將Student表的名字更改成“學(xué)生” Sub Rename_Table() DoCmd.Rename 學(xué)生學(xué)生, acTable, Student End Sub Sub Delete_Table() DoCmd.RunSQL DROP TABLE Student End

5、Sub 6法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.2 編輯數(shù)據(jù) 1. 向表中追加記錄 例7-18 在Student表中添加一條記錄Sub Insert_Table() DoCmd.RunSQL INSERT INTO Student VALUES(李大明李大明, 35, 2003- 1-15) End Sub VALUES后的數(shù)據(jù)與表中字段的順序要一一對應(yīng)后的數(shù)據(jù)與表中字段的順序要一一對應(yīng) 說明：說明： （1）日期型常量可以放在一對單引號(hào)或一對）日期型常量可以放在一對單引號(hào)或一對#中。中。 （2）如果數(shù)據(jù)是通過輸入對話框等途徑獲得，需在）如果數(shù)據(jù)是通過輸入對話框等途徑獲得，需在SQL命命 令中使

6、用變量，然后用令中使用變量，然后用&運(yùn)算符將變量連接到運(yùn)算符將變量連接到SQL命令中。命令中。 對于字符串變量或日期型變量，要在這些變量的兩側(cè)加上對于字符串變量或日期型變量，要在這些變量的兩側(cè)加上 一對單引號(hào)。一對單引號(hào)。 7法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.2 編輯數(shù)據(jù) 例7-19 通過變量為Student表添加一條記錄 Sub Insert_Table_VBA() Dim S_name As String Dim Age As Byte, S_date As Date S_name = InputBox(輸入學(xué)生姓名：輸入學(xué)生姓名：) S_date = InputBox(入學(xué)日期：入學(xué)

7、日期：) Age = 21 DoCmd.RunSQL INSERT INTO Student VALUES( & S_name & , & Age & , & S_date & ) End Sub 注意單引號(hào)和雙引號(hào)出現(xiàn)的位置注意單引號(hào)和雙引號(hào)出現(xiàn)的位置 8法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.2 編輯數(shù)據(jù) 2. 修改表中記錄 例7-20 將“導(dǎo)師”表中“李向明”的年齡改成40 例7-21 將“導(dǎo)師”表中所有男導(dǎo)師的年齡增加1歲 Sub Update_Table_1() DoCmd.RunSQL UPDATE 導(dǎo)師導(dǎo)師 SET 年齡年齡=40 WHERE 姓名姓名=李向明李向明 End Sub

8、 如果本例用如果本例用ADO技術(shù)編程，代碼會(huì)怎樣技術(shù)編程，代碼會(huì)怎樣 ？ Sub Update_Table_2() DoCmd.RunSQL UPDATE 導(dǎo)師導(dǎo)師 SET 年齡年齡=年齡年齡+1 WHERE 性別性別=男男 End Sub 9法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.2 編輯數(shù)據(jù) 3. 刪除特定記錄 例7-22 將“導(dǎo)師”表中年齡在50歲以下的記錄全部刪除 Sub Delete_Record() DoCmd.RunSQL DELETE FROM 導(dǎo)師導(dǎo)師 WHERE 年齡年齡50 End Sub 思考：思考： （1）如果要求將）如果要求將“導(dǎo)師導(dǎo)師”表中低于年齡平均值的導(dǎo)師表中低

9、于年齡平均值的導(dǎo)師 記錄刪除，例記錄刪除，例7-22應(yīng)怎樣修改？應(yīng)怎樣修改？ （2）如果要?jiǎng)h除小于）如果要?jiǎng)h除小于X歲的所有記錄，歲的所有記錄，X的值通過鍵盤的值通過鍵盤 在程序運(yùn)行時(shí)輸入，程序又該怎樣修改？在程序運(yùn)行時(shí)輸入，程序又該怎樣修改？ 10法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.3 實(shí)現(xiàn)數(shù)據(jù)完整性約束 1. 設(shè)置主鍵 例7-23 為“導(dǎo)師”表和“研究生”表設(shè)置主鍵 （如果這兩個(gè)表已有主鍵和外鍵，請先予以刪除） 例7-24 在創(chuàng)建新表Teacher 的同時(shí)設(shè)定code為主鍵 Sub Create_Primary() DoCmd.RunSQL Alter Table 導(dǎo)師導(dǎo)師 Add Pr

10、imary Key (導(dǎo)師編號(hào)導(dǎo)師編號(hào)) DoCmd.RunSQL Alter Table 研究生研究生 Add Primary Key (學(xué)號(hào)學(xué)號(hào)) End Sub Sub Create_Table_Primary() DoCmd.RunSQL CREATE TABLE Teacher (code text(3) PRIMARY KEY, name text(6), birthday date, salary currency) End Sub 11法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.3 實(shí)現(xiàn)數(shù)據(jù)完整性約束 2. 設(shè)置外鍵 例7-25 將研究生表中的“導(dǎo)師編號(hào)”設(shè)為外鍵，對應(yīng)的參 照表是“

11、導(dǎo)師”表(建立“導(dǎo)師”表和“研究生”表間的 關(guān)系) 例7-26 在創(chuàng)建新表Student1的同時(shí)指定其外鍵和參照表 Sub Create_Foreign() DoCmd.RunSQL Alter Table 研究生研究生 Add Foreign Key (導(dǎo)師編號(hào)導(dǎo)師編號(hào)) References 導(dǎo)師導(dǎo)師) End Sub Sub Create_Table_Foreign() DoCmd.RunSQL Create Table Student1 (code text(4) Primary Key, name text(6), sex bit, t_code text(3), Foreign Key (t_code) References Teacher (code) End Subbit表示表示“是是/否否”型變量型變量 12法律信息系統(tǒng)管理資料定義數(shù)據(jù) 7.7.4 執(zhí)行查詢操作 VBA程序中用S