資料庫程式設計

資料庫程式設計 VB資料庫設計簡介週次：7 建國科技大學資管系饒瑞佶

在RecordSet中新增欄位 • RecordSet.Fields.Append 欄位名稱, 資料型態,欄位大小 • 不可以在已經開啟的RecordSet中使用Append方法 • 範例8-1, p.8-3

階層式RecordSet • 利用資料表之間的關聯來進行（作者 vs. 書籍資料表） • 可以由父RecordSet查詢子RecordSet的資料 • 圖8-3, p.8-8

階層式RecordSet的製作 • 設定Connection物件的Provider屬性 • cn.Provider=“MS DataShape” • 設定Connection物件的ConnectionString屬性 • cn.ConnectionString=“Dtaa Provider ……..” • 執行Shape Append指令

Shape Append指令 • Shape {父表SQL指令 [[AS] 別名]} • Append({子表SQL指令} [[AS] 別名] • ReLate父表關聯欄位 To子表關聯欄位) • Shape {Select 作者碼,作者名 from 作者} • Append ({Select 作者,書名,分類,售價 from 書籍} AS Authorbook Relate作者名 To 作者)

如何執行Shape Append指令 • Dim rs as ADODB.Recordset • Dim mysql as String • mysql=“Shape {Select 作者碼,作者名 from 作者} • Append ({Select 作者,書名,分類,售價 from 書籍} AS Authorbook Relate 作者名 To 作者)” • Set rs=NEW ADODB.Recordset • Rs.open mysql,Connection • 將原來的資料表名稱或SQL改成Shape Append指令

如何取得階層式RecordSet的欄位 • 取得父表欄位內容 • rs.Fields(0) • rs.fields(“作者碼”) • 取得子表 • rs.fields(子表欄位起始編號) • rs.fields(“AuthorBook”) • 取得子表欄位內容 • rs.fileds(“AuthorBook”).Value(0) • rs.fileds(“AuthorBook”).Value(“書名”) • 有點麻煩，所以 ……

如何取得子表的欄位內容 • 取得子表欄位內容 • rs.fileds(“AuthorBook”).Value(0) • rs.fileds(“AuthorBook”).Value(“書名”) • 有點麻煩，所以 …… • Dim rssub as ADODB.Recordset • Set rssub=New ADODB.Recordset • Set rssub=rs.fileds(“AuthorBook”).Value • 現在可以使用rssub來取得內容 • rssub(“書名”) 範例8-2, 8-3

補充說明DataGrid與Adodc的用法 • Adodc用法補充 • DataGrid補充說明

資料庫程式設計

資料庫程式設計

Presentation Transcript