分類 |
標題 |
大意 |
作者 |
日期 |
| SQL 語法 | 兩欄資料合成一欄 | Alias As 敘述的功能 | 老怪 | 1998/8/1 |
| SQL 語法 | 多欄關聯及索引 | Alias As 敘述的功能 | 老怪 | 1998/7/18 |
| SQL 語法 | 在SQL中使用自訂函數的問題 | 老怪 | 1998/7/18 | |
| SQL 語法 | 總計查詢的 SQL 語法 | GROUP & HAVING | 老怪 | 1998/9/3 |
| DAO 操作 | 判斷某一個TABLE是否存在 | TableDefs 物件的使用 | Rose | 1998/7/3 |
| DAO 操作 | 進入加密資料庫 | WorkSpace.OpenDatabase() | 老怪 | 1998/8/2 |
| DAO 操作 | 部份字串搜尋 | FindFirst & Like | 老怪 | 1998/8/7 |
| DAO 操作 | 取出及回填欄位值 | Field.Value 的使用 | 老怪 | 1998/8/7 |
| DAO 操作 | 判斷是否找到符合的記錄 | EOF & BOF & AbsolutePosition | 老怪 | 1998/8/10 |
| DAO 操作 | 在既存的資料表新增欄位 | TableDef & Field 物件使用 | 老怪 | 1998/8/18 |
| DAO 操作 | Dao 的整批交易動作(Transaction) | WorkSpace 物件的使用 | 老怪 | 1998/8/18 |
| DAO 操作 | 向 MDB 資料庫加二進位資料 | 用 AppendChunk 蠻幹 | 老怪 | 1998/8/21 |
| DAO 操作 | 文字檔資料庫的開啟方式 | 兼論 Text 的 ISAM | 老怪 | 1998/8/30 |
| DAO 操作 | DBGrid中如何得知目前所在的記錄位置 | AbsolutePosition 屬性 | 老怪 | 1998/9/1 |
| DAO 操作 | 將 MDB Table 輸出成文字檔 | Dao 與 File I/O 合作 | 老怪 | 1998/9/1 |
| DAO 操作 | bookmark 如何做邏輯判斷 | ByteArray 的轉換 | JeffLin | 1998/9/2 |
| DAO 操作 | 自製自動編號欄位 | 老怪 | 1998/9/3 | |
| DAO 操作 | 似是而非的 RecNo | AbsolutePosition | 老怪 | 1998/9/5 |
| DAO 操作 | 在 VB 裏壓縮 MDB 資料庫 | CompactDatabase | 老怪 | 1998/9/5 |
| DAO 操作 | 用 VB 開 Excel Sheet 表 | 老怪 | 1998/9/9 | |
| 資料觀念 | 如何規劃 Foreign Key | 資料表的關聯 | 老怪 | 1998/8/5 |
| 資料觀念 | 一對多與左右連接 | 資料表的連接 | 老怪 | 1998/9/11 |
| 資料觀念 | 多表查詢的陷阱 | 四處埋伏的 Null 值 | 老怪 | 1998/9/11 |
Bee 撰寫於文章
我的資料庫中有一欄是總價,等於單價欄*數量欄, 請問那一段讓總價自動算出的程式碼要放在那裡(或那個事件中)> 才可以讓USER在輸入完單價和數量後就得到總價?
老怪答：
其實合計欄位用 SQL 語法取代，會更省磁碟空間，也更方便操作，你參看下列式子看看。
SELECT Good.GoodID, Good.GoodName, Good.Unit, Good.Price, [Unit]*[Price] AS 合計 FROM Good;
說明：
- [運算式] As [欄位名稱] ，就會把運算後的值擺在給定名稱的那個新欄位裏，好像你新增個欄位一般。
- [欄位名稱] As [另一名稱] ，作用等於 Field.Name 對 Field.Caption 的關係，也就是 Name 是固定的，但 Caption 可以依需要隨時改。
Option Explicit
Dim Ws As Workspace
Dim Db As Database
Dim Rs As Recordset
Private Sub Form_Load()
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase("DBName", False, False, ";pwd=SecretString")
Set Rs = Db.OpenRecordset("RecordsetName")
Set Data1.Recordset = Rs
End Sub
寄件者: 加菲
主旨: [Database] 何謂 Foreign Key ?
老怪答：
| SearialID | ForeignId | Date |
|---|---|---|
| I00001 | A20 | #1998/08/01# |
| I00002 | A20 | #1998/08/02# |
| I00003 | A20 | #1998/08/03# |
| I00004 | A23 | #1998/08/01# |
| I00005 | A23 | #1998/08/02# |
| I00006 | A25 | #1998/08/03# |
| SearialID | GoodName | Price |
|---|---|---|
| A20 | 奶油蛋糕 | 300 |
| A23 | 起司麵包 | 20 |
| A25 | 統一大燒包 | 15 |
對錯都是為了愛 撰寫於文章
假如說某一個欄位的內容是：
- 台灣微軟公司
- 英代爾公司
- 台灣 IBM
要如何在搜尋時只打入"微軟"就可以把那一筆資料給抓出來？
老怪答：
YourRecordset.FindFirst "FieldName Like '*微軟*'"
Boring Summer 撰寫於文章
請問如何在VB連到資料庫後，將資料庫中的資料擷取出來運算，也就是把資料讀到變數中，然後對變數作運算！！
老怪答：
Public Function CheckTableExist(tData As Database, TableName As String) As Boolean
Dim I As Integer
CheckTableExist = True
For I = 0 To tData.TableDefs.Count - 1
If UCase(tData.TableDefs(I).Name) = UCase(TableName) Then
CheckTableExist = False
Exit Function
End If
Next I
End Function
輝仔 on July 13, 1998
請問怎樣make Relation between two field but not one field
老怪答：
用三個 QueryDef 來達成
1.Addfield1:
SELECT [Fdate]+[Ftime] AS JoinKey, RD01.Fdate, RD01.Ftime, RD01.Level
FROM RD01
ORDER BY [Fdate]+[Ftime];
2.Addfield2:
SELECT [Fdate]+[Ftime] AS JoinKey, MRD01.Fdate, MRD01.Ftime, MRD01.MLevel
FROM MRD01
ORDER BY [Fdate]+[Ftime];
3.AddAllField:
SELECT AddField1.Fdate,
AddField1.Ftime, AddField1.Level, AddField2.Fdate,
AddField2.Ftime, AddField2.MLevel
FROM AddField1 INNER JOIN AddField2 ON
AddField1.JoinKey = AddField2.JoinKey;
Smith 撰寫於文章
請問如何在一個已存在的table中再加上一個field(欄位)呢
老怪答：
Option Explicit
Dim Db As Database
Dim Tb As TableDef
Dim Fd As Field
Private Sub Form_Load()
Set Db = OpenDatabase("c:\user\mytest.mdb")
Set Tb = Db.TableDefs!Good
Set Fd = Tb.CreateField("YouPut", dbText)
Fd.Size = 20
'加入攔位
Tb.Fields.Append Fd
'刪除欄位
Tb.Fields.Delete "YouPut"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Db.Close
End Sub
linus 撰寫於文章
書上說Jet Engine支援Transaction Management,我用vb5+access 7.0 卻試不出來,(沒有error,但是都沒有發生update及delete)
老怪答：
Option Explicit
Dim DJet As New DBEngine
Dim Wk As Workspace
Dim Db As Database
Dim Rs As Recordset
'完成整批交易
Private Sub Command1_Click()
'如果 Rs 物件不支援整批交易則結束 Sub
If Not Rs.Transactions Then Exit Sub
Rs.MoveFirst
Wk.BeginTrans
Do While Not Rs.EOF
Rs.Edit
Rs.Fields(2).Value = "123"
Rs.Update
Rs.MoveNext
Loop
Wk.CommitTrans
End Sub
'復原整批交易
Private Sub Command2_Click()
'如果 Rs 物件不支援整批交易則結束 Sub
If Not Rs.Transactions Then Exit Sub
Rs.MoveFirst
Wk.BeginTrans
Do While Not Rs.EOF
Rs.Edit
Rs.Fields(2).Value = "456"
Rs.Update
Rs.MoveNext
Loop
Wk.Rollback
End Sub
Private Sub Form_Load()
Command1.Caption = "Commit"
Command2.Caption = "Rollback"
Set Wk = DJet.Workspaces(0)
Set Db = Wk.OpenDatabase("c:\user\mytest.mdb")
Set Rs = Db.OpenRecordset("Good")
'沒有記錄則結束
If Rs.EOF And Rs.BOF Then
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
Wk.Close
End Sub要注意的是在 BeginTrans 之前，Rs 要先 MoveFirst ，否則你的 record 如果在 Eof ，當然沒做就結束了。
凌雲騎 撰寫於文章
有一個自訂函數 backsum()
public function backsum()
.......
end function
假如執行:
sql1="select backsum as BCCT from tablemname"
結果產生 backsum 函數未定義的錯誤，如何才能正確？
老怪答：
sql1="select " & backsum() " as BCCT from tablemname"
powerboy
如何用 VB 向 Access 添加二進制文件，如添加一 Zip 文件到 Access ?
老怪答：
米奇 撰寫於文章
我用Data與DBGrid兩控制項欲直接開啟一文字檔確出現這樣的訊息...."找不到可安裝的ISAM "我看了看說明檔相關的內容....意思好像是要去regedit中做修改...？？ 是嗎？ 那要怎麼做呢？？
老怪答：
走過四方回到原點 撰寫於文章
當我移動Table中箭頭指向其中一個記錄時要如何得知目前此記錄是第幾筆記錄呢？又當我利用搜尋的方法去找符合某種條件的記錄時要怎樣才能將指標指向此一記錄並顯示在以DBGrid作出之table上呢？？
老怪答：
- Option Explicit
'請在 Form 上布置 Command1,Data1,DBGrid1,
'並讓 DBGrid.DataSource=Data1
Dim Db As Database
Dim Rs As Recordset
Private Sub Command1_Click()
'因為在 Form_Load 裏我們用 Set Data1.Recordset=Rs
'使 Data 與 Rs 連動，所以你只要執行 Find 指令，
'DBGrid 指標自己會跳過去
Rs.MoveFirst
Rs.FindFirst "Serial=3"
End Sub
Private Sub Data1_Reposition()
'注意!!只有dbOpenDynaset or dbOpenSnapshot
'才可以使用 Rs.AbsolutePosition 的屬性
'Recordset 的第一筆記錄是 0
'這個敘述能讓 DataControl 顯示總記錄及目前記錄指標
Data1.Caption = CStr(Rs.AbsolutePosition + 1) & "/" & Rs.RecordCount
End Sub
Private Sub Form_Load()
Set Db = OpenDatabase("c:\user\mytest.mdb")
Set Rs = Db.OpenRecordset("Student", dbOpenDynaset)
'把 Rs 記錄指標移到最後一次，做出來的 Rs.RecordCount 才會正確
Rs.MoveLast
Rs.MoveFirst
Set Data1.Recordset = Rs
End Sub- 請依你自己的資料庫狀況修改上例。
小前鋒 撰寫於文章
原先開啟之*.mdb檔中的資料表有何較快速的方法將資料*.mdb轉換成文字檔??因為上述的方法實在是太慢了....如果資料量大（上千筆）>等待時間真是太久了說.....
老怪答：
堅哥 的文章中提到:
我用了classline_head 和classline_tail兩個數設定成Variant然後記錄data1.recordset.bookmark 但是當我寫到了 while not data1.recordset.bookmark=classline_head ........ loop時電腦在執行後就跟我說資料型態不符.......
Jeff Lin 答：
Bookmark的基本型態. 若以variant接收, 一定會收到byte array. 然而byte array是不能直接比較的 (任何array都一樣).建議您定義為string, 接收之後就可以比較了.
老怪插花：
關聯與連接的關係
在此老怪要跟大家談的是資料庫中，關聯與連接的關係，關聯與連接到底有何關係呢？其實是一件事。就是當我們用 Dao CreatRelation 方法建立一個 Relation 物件，或 SQL 敘述中用 Join 敘述連接兩個 Table 時，就產生了這個關聯又稱連接狀態，只不過為了區別方便，我們多把 Relation 的設定叫關聯，而把 SQL JOIN 敘述叫連接。
一對多與左右連接
既然關聯與連接是一件事，那在 Access 97 編輯關聯裏連接類型設定又是什麼意思，也就是一對一關聯和一對多關聯是由 Join 型態決定的嗎？Inner Join 是一對一？Left Join 和 Right Join 才是一對多？其實完全錯了，屬於關聯類型的一對一和一對多，和屬於連接類型的左右連接完全是兩件不同屬性的表現，各管各的，誰也不干涉誰。
一對多與一對一的關聯類型如何設定
答案是沒法設定，因為相關聯的兩張資料表，主關聯資料表的關聯欄位必須是惟一鍵值的索引欄，如果被關聯資料表的關聯欄位也是惟一鍵值的索引欄，那這關聯就是一對一，而如果被關聯欄位並非惟一鍵值，那兩者關聯就是一對多。也就是說關聯類型決定於選用那兩個欄位做關聯之時。
左右連接的作用
你的 JOIN 不管是 INNER 、LEFT or RIGHT ，都不會對一對一或一對多關聯類型產生任何影響，它的作用是只有在主關聯資料表及被關聯資料表中，索引值不成對出現時才有作用。也就是說當主關聯資料表中有些關聯鍵值在被關聯資料表中找不到，或是情況反過來，這時那些缺一邊情形的欄位值是否要呈現，就由 INNER 、LEFT or RIGHT 決定。
範例說明：
主關聯資料表
MasterID Note 1 M_Rec_1 2 M_Rec_2 3 M_Rec_3
被關聯資料表
SuBID MasterNo Note 1 1 S_Rec_1 2 1 S_Rec_2 3 1 S_Rec_3 4 2 S_Rec_4 5 4 S_Rec_5 6 4 S_Rec_6
兩資料表以 MasterID 關聯 MasterNo ，為一對多關聯
INNER JOIN 的呈現(限定成雙成對)
M_Rec_1,S_Rec_1
M_Rec_1,S_Rec_2
M_Rec_1,S_Rec_3
M_Rec_2,S_Rec_4LEFT JOIN 的呈現(主關聯資料表單方許可)
M_Rec_1,S_Rec_1
M_Rec_1,S_Rec_2
M_Rec_1,S_Rec_3
M_Rec_2,S_Rec_4
M_Rec_3,NullRIGHT JOIN 的呈現(被關聯資料表單方許可)
M_Rec_1,S_Rec_1
M_Rec_1,S_Rec_2
M_Rec_1,S_Rec_3
M_Rec_2,S_Rec_4
Null,S_Rec_5
Null,S_Rec_6
最後的嘮叨：
這雖然是 MDB 資料庫很基本的概念，但如果你無法充分掌握它會對你資料錄產生何種影響的話，你就無法踏入關聯資料庫的堂奧，而只能單張資料表在那玩來玩去，至於資料規劃、資料分析更是不可能的了。或許你早就知道這些了，那我恭喜你，我只是祈盼著有些像當時年輕的我的 Program 初學者 ，能在讀了這篇文章後，豁然開朗，嘆道原來這麼回事，是我們自己想的太複雜了。
如果你向來在 VB 裏打轉，少接觸資料庫，你一定很不能理解 Null 的作用，事實上除非你用 Variant = Null 去指派 Null 值到變數裏去，你幾乎沒有機會看到 Null 值的自動產生，IsNull 這函數就好像廢物一般。但資料的欄位資料裏，則會大量產生 Null ，一般文字、日期...... 等欄位，若你不給初值，在資料輸入時又沒向裏面輸入資料，那這些欄位值都是 Null ，Null 型態有個很討厭的特性就是任何值與其做四則運算時，只要其中有一個是 Null ，則最後結果都是 Null ，那麼 Null*10 =Null 我們還可以接受，若 Null +10=Null ，那可就挺煩人的了，因為那會使運算後的顯示結果出乎我們意料之外。
這種由資料庫欄位產出的固定 Null 值還不算太難解決，因為數值型態的欄位初值都是 0 ，而不是 Null，所以比較不會有 Null+10=Null 的情況，至於文字型態欄位，我們用 Null & "ABCD" 而非 Null + "ABCD" 也能避開此困擾，至於 Date 型態，給個預設值=Now 也就解決了。但如果你認為這樣就擺脫了 Null 值的困擾，那可就大錯特錯了。
還記得我在 [一對多與左右連接] 那篇範例中談到左右連接時的資料呈現曾這樣打出資料
M_Rec_1,S_Rec_3
M_Rec_2,S_Rec_4
Null,S_Rec_5
Null,S_Rec_6
聰明如你是否已聯想到，難道跨表查詢會產生 Null 值？一點都沒錯，如果你用 INNER JOIN，那資料錄是成雙出現的，除非你原來欄位是 Null，否則不可能產生 Null。但如果用的是 LEFT JOIN 或 RIGHT JOIN ，那缺席的一邊就是 Null 值，那怕你原來所有欄位都不是 Null ，一樣會產生 Null 值，更糟的是就算這個欄位是數值型態，查詢所得結果一樣是 Null。而如果你要對它做運算，結果當然都是 Null，不管你在資料表欄位設計時怎樣小心，都無法避免。
所以如果你使用了 RIGHT or LEFT ，那在對查詢結果做運算前，請先使用 IsNull 函數做判斷，而對 Null 與非 Null 做不同的處理。你永遠無法預期使用者在建立它自己資料庫時會不會有缺席情況，所以你只有預期他會有這情況，而事先加以防範。
大美女sally 撰寫於文章
item = .dbf 的資料庫 ,資料儲存方式為
=> orderno catologNO quantity ...
======= ======== ======
ex: A0001 aaa 1
A0001 bbb 5
A0001 ccc 4
希望得到的結果是
orderno = 'A0001' 的總數量
老怪答：
SELECT orderno, Sum(quantity) AS 總計
FROM item
GROUP BY orderno
HAVING orderno="A0001";
正在失業中...(man) 撰寫於文章
在database新增一筆資料但訂單序號或是銷貨單序號是固定自動產生的
老怪答：
Option
Explicit
Dim Db As Database
Dim Rs As Recordset
'自動增號變數
Dim AddNo As Long
Private Sub Command1_Click()
Dim FLength As Integer
'取得自動編號欄位長度
FLength = Rs!SerialID.Size
'自動編號加一
AddNo = AddNo + 1
'新增一筆
Rs.AddNew
Rs!Note = Text1.Text
'AddNo 轉成字串，前面補 "0"
Rs!SerialID = Right(String(FLength,
"0") & _
Trim(CStr(AddNo)), FLength)
'資料更新
Rs.Update
End Sub
Private Sub Form_Load()
Set Db = OpenDatabase("c:\user\mytest.mdb")
Set Rs = Db.OpenRecordset("autonum",
dbOpenDynaset)
'Rs.EOF And Rs.BOF=True 表示 autonum
Table 裏尚未加入資料
If Not (Rs.EOF And Rs.BOF) Then
'取得最後一筆記錄的編號
Rs.MoveLast
'假設
SerialID 欄位是自動編號號欄，
'欄位型態
Text
AddNo = Rs!SerialID
End If
'移到第一筆以利顯示
Rs.MoveFirst
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
End Sub
最近常有人問我以前 Dbase 的 DBF 檔都有 RecNo 記錄編號可以配合記錄指標移動，為何 Dao 物件裏不提供咧？其實在 Recordset 物件底下，還是有個類似 RecNo 屬性可以用的，叫 AbsolutePosition ，不過用這屬性有下列限制：
果汁 撰寫於文章
如何撰寫一段程式, 把資料庫壓縮??因為我程式只用到一個資料庫,利用compactdatabase這個功能, 壓縮的新舊檔名不能相同,我覺得很奇怪, 新舊檔名不能相同?? 那我幹嘛要這麼費心的把它壓縮,
老怪答：
DBEngine.CompactDatabase oldmdb, newmdb
FileCopy newmdb,oldmdb
Kill newmdb
(執行此程式需先 Close 資料庫)
jw86 撰寫於文章
請問不用DATA元件,如何OPEN一個XLS檔?set db=OpenDatabase("資料庫")只能開mdb,*.xls檔要如何開啟呢?
老怪答：
Option Explicit
Dim Db As Database
Dim Rs As Recordset
Private Sub Form_Load()
Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")
Set Rs = Db.OpenRecordset("sheet1$")
'(SheetName 後面一定記得要加 "$" 符號)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
End Sub
這是最簡單的辦法，詳細的使用方法及限制請參看 VB OnLineHelp ，資料存取物件手冊、取得外部資料、使用試算表一章。