分類 |
標題 |
大意 |
作者 |
日期 |
| SQL 語法 | 正確的欄位值查詢格式 | 老怪 | 1999/1/31 | |
| SQL 語法 | 兩表合併，剔除重複鍵值欄位。 | 老怪 | 1999/1/31 | |
| SQL 語法 | 產生同結構空白資料表 | 老怪 | 1999/3/7 | |
| SQL 語法 | 日期欄位含時間的查詢 | 老怪 | 1999/3/7 | |
| SQL 語法 | 輸入月份查詢整月所有記錄 | Fumi | 1999/3/7 | |
| SQL 語法 | 用 SQL 做欄位排序 | ORDER BY FieldName | 老怪 | 1999/4/16 |
| SQL 語法 | 動態增減欄位查詢 | 老怪 | 1999/5/22 | |
| Dao 操作 | Database 的開開關關 | 老怪 | 1999/1/31 | |
| Dao 操作 | 文字檔資料庫使用之 Schema.Ini 試作 | 老怪 | 1999/3/12 | |
| Dao 操作 | 在 MDB 資料庫中聯結其他型態資料庫 | 老怪 | 1999/4/10 | |
| Dao 操作 | 把 MDB 的資料表藏起來 | Tabledef 的 Attributes 屬性群 | 老怪 | 1999/4/23 |
| Dao 操作 | 用 TreeView 展現資料庫之階層結構 | 老怪 | 1999/5/8 | |
| Dao 操作 | Index 物件的使用及限制 | 老怪 | 1999/6/7 | |
| Dao 操作 | 取得欄位長度並避免輸入超過長度資料 | Field.Size | 老怪 | 1999/6/29 |
| Dao 操作 | 更改 MDB 資料庫密碼 | 老怪 | 1999/7/1 | |
| DBGrid | 增加 Columns 欄位(DataUnBound 狀況) | Columns.Add 方法 | 老怪 | 1999/5/4 |
| DBGrid | 偵測使用者 Click 的欄位 | Column.DataField 屬性 | 老怪 | 1999/6/25 |
| 資料分析 | MDB 資料表事前關聯與事後關聯 | 老怪 | 1999/3/4 | |
| 資料分析 | MDB 欄位的事前索引與事後索引 | 老怪 | 1999/3/31 | |
| 資料分析 | QueryDef 對 Relation 和 Index 的繼承 | 老怪 | 1999/3/31 |
鐵窗九五之比爾愛滋 撰寫於文章
請問以VB來抓MDB檔，如果以DATA物件方式來擷取資料，在我下了DATA1.RECORDSET.CLOSE及DATA1.DATABASE.CLOSE後，是否還跟資料庫連在一起，而影響到其他USER的使用。
老怪答：
原則上已脫離連結，技術上你卻很可能讓它又連上，此話怎講，請看下例：
Private Sub Command1_Click()
Data1.Recordset.Close
Data1.Database.Close
'**Data1.Refresh**
DBGrid1.Refresh
End Sub
你把打星號的那行先註記讓它失能，那麼你發覺 Command1 Click 後，果然其他程式可以開同一檔案，但如果你把星號那段復能，那你會發覺，Command1 敘述好像一點作用都沒有。其實 Data1 是有關了 Recordset 和 Database ，只是在 Refresh 敘述後，它又把你在設計階段設定的資料重開了一次，結果還是沒關掉。So，知道怎麼回事了嗎。
唉..... 撰寫於文章
我有二個資料庫A,B，A是主電腦上的資料庫,B是另一電腦上的資料庫，現在我想把B合併到A，但是要剔除重覆鍵值的資料，想問一下是否SQL可以做到!
老怪答：
不恥於問 撰寫於文章
請問access的關聯是因為建立查詢(or from)需要時才依需要設定還是,必須將各個關聯全部先接連起來???
老怪答：
想要躺在妳身邊 撰寫於文章
如何建一個和原有資料表欄位相同的空白資料表。
老怪答：
一個最簡單的辦法，用產生資料表 Query 配合條件敘述，來新增一資料表，如：
SQLString="SELECT OldTable.* INTO NewTable FROM [OldTable] " _ &
"WHERE (((OldTable.SomeField)="一個不可能出現的值"));"
廣達新一 撰寫於文章
請問 ~~我要將下列的text檔放進..VB的DBGrid中的話,Schema.ini該如何設ㄋ?
11112222223333333 444444
11112222223333333 444444
11112222223333333 444444
我想要分別將 1111 and 222222 and 3333333 and 444444分別放在DBGrid,我該怎麼做呀?
老怪答：
停下腳步 休息一下 撰寫於文章
有一個table叫 SaleRecord，在SaleRecord中有一個欄位叫 SaleTime，>這個SaleTime的型別是 datetime 記錄著時間和日期，假如我要寫一個SQL指令找出某天某時(例如: 1999年1月12日12:00)以前的資料，請問該怎麼寫?
老怪答：
Dim Db As Database
Dim Rs As Recordset
Dim SQLString As String
Set Db=OpenDatabase("Market")
SQLString="SELECT * FROM SaleRecord " & _
"WHERE SaleRecord.SaleTime < #1999/1/12 12:00:00# ;"
Set Rs =Db.OpenRecordset(SQLSTring)
'宣告的部分如下:
Dim Db As Database
Dim Qd As QueryDef
Dim Rs As Recordset
Dim prmBeginDate As Parameter
Dim prmEndDate As Parameter
Set Db = OpenDatabase("Nwind.mdb")
Set Qd = Db.CreateQueryDef("", _
"PARAMETERS BeginDate DateTime, EndDate DateTime; " & _
"SELECT * FROM Orders " & _
"WHERE ShippedDate>=[BeginDate] AND ShippedDate<[EndDate]")
' Bind Parameter
Set prmBeginDate = Qd.Parameters("BeginDate")
Set prmEndDate = Qd.Parameters("EndDate")
'執行查詢的部分如下:
Dim QueryDate As Date
QueryDate = CDate("1994/08/10")
prmBeginDate = DateSerial(Year(QueryDate), Month(QueryDate), 1)
prmEndDate = DateSerial(Year(QueryDate), Month(QueryDate) + 1, 1)
Set Rs = Qd.OpenRecordset(dbOpenDynaset)
Do Until Rs.EOF
' Do something here
Rs.MoveNext
Loop
以下以 DBF 型態資料庫為例，用 Dao 物件對於大型非 Jet MDB 資料庫可採用先連結再查詢的方式，範例如下：
Dim Db As DataBase
Dim Td As TableDef
Dim Rs As Recordset
Set Db=OpenDatabase("你要與 DBF 檔連接的 MDB 資料庫")
'在要儲存連結的資料庫中建立一個新的 TableDef 物件。
Set Td = Db.CreateTableDef("為連接表取個名字,譬如 [OfficeTd]")
'設定所要連線的資料庫的型態以及資料來源的位置。(要先確定你 DBF 檔格式)
Td.Connect = "dBASE III(or dBASE IV or dBASE 5.0);DATABASE=\\Sales\Regional\Region1"
'將 SourceTableName 設定為想要存取的 DBF 檔名稱。
Td.SourceTableName = "Q1Sales"
'將 TableDef 新增到 TableDefs 集合物件中。
Db.TableDefs.Append Td
'以上完成 MDB 與 DBF Connect
'用 SQL 敘述開啟連結資料表的 Recordset。
Set Rs = Db.OpenRecordset ("SELECT * FROM OfficeTd WHERE Office='你要查詢的
內容';")
'把 Recordset 丟到 DataControl 再利用
Set Data.Recordset=Rs
某 撰寫於文章
我的資料庫中有一個時段的欄位，是文字型態 如00~01， 02~03 各代表一個時段，我在新增到資料表時，如何讓其按時段來排序？
老怪答：
SQLString="SELECT * FROM YourTableName ORDER BY 時段欄位名;"
你大概不知道 MDB 資料庫可以這麼玩，那就是在 Access 中，可以讓整張 Table 藏起來，所以你可以把使用者密碼設定的那張資料表設定它的 Hidden 屬性，讓用 Access 軟體不顯示出來，但在 VB 程式裏仍可以加以操作，範例如下：
Option Explicit
Dim Db As Database
Dim Td As TableDef
Set Db = OpenDatabase("YourDataPath&Name")
Set Td = Db.TableDefs("YourTableName")
Td.Attributes = Td.Attributes Or dbHiddenObject Or dbSystemObject
Db.Close
道貌岸然的已婚男 撰寫於文章 ...
我選用了DBgrid後，他只顯示兩行(column)資料，但是我的資料庫其實有四個不同欄位，找遍了DBgrid的各種屬性都沒辦法改，找到像DBgrid.Columns.count等幾種有關的資料，但都屬於唯讀，請問有人知道如何增加DBgrid的顯示欄位嗎？
老怪答：
用 Columns 集合物件的 Add 方法去增加•範例如下：
Private Sub Form_Load()
DBGrid1.Columns.Add DBGrid1.Columns.Count
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Visible = True
End Sub
其他請參考 Dbgrid.Columns.Add Help。
用心的男人..28歲 撰寫於文章
嗯....假如我的database是以下
id unit up_id
101 A 101
102 B 101
103 C 101
104 D 101
105 AA 102
106 AB 103
107 AC 102
108 AD 104
109 AE 102
110 BB 105
111 BC 106
112 BD 107
113 BE 108
114 BF 109
115 BG 107
116 BH 105
117 BI 108
以上之資料如何利用TREEVIEW產生樹狀結構？
老怪答：
'測試本範例請於表單布置 TreeView
控制項，並引用 Dao 物件。
Option Explicit
Dim Db As Database
Private Sub Command1_Click()
Dim nodX As Node
Dim Rela As Long
Dim RsA As Recordset
Dim RsB As Recordset
Set RsA = Db.OpenRecordset("TabelName",
dbOpenDynaset)
Set RsB = RsA.Clone
RsA.MoveFirst
'重點一：因為頭一筆是根 Node，故
relative 參數不輸，拿到
'迴圈外做另外處理。
'重點二：Key
參數不只不接受數值，連 IsNumeric
的字串也不接受，
'所以只好在後面加個 "A"
字元，跟這個彆扭的 TreeView 妥協一下。
Set nodX = TreeView1.Nodes.Add(, , RsA!ID
& "A", RsA!Unit)
RsA.MoveNext
Do While Not RsA.EOF
RsB.MoveFirst
RsB.FindFirst "ID
= '" & RsA!ID & "'"
'在整個Table ID
欄位裏找找看有無本筆記錄 UpID 值，來決定本記錄是
'變成下一筆或他記錄的子項目。
If RsB.NoMatch Then
Rela = tvwNext
Else
Rela = tvwChild
End If
Set nodX = TreeView1.Nodes.Add(RsA!UpID
& "A", Rela, RsA!ID & "A",RsA!Unit)
RsA.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set Db = OpenDatabase("DataPath&Name")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Db.Close
End Sub
cheng 撰寫於文章
假設在一網頁中用 5 個 checkbox 條件，也就是資料庫的欄位 A,B,C,D,E 給 user 選擇，如選欄位 A,C,E 時為 Select A,C,E From DB，又若選欄位 A,E 時為 Select A,E From DB，該如何做？
老怪答：
Private Sub Command1_Click()
Dim SQLString As String
Dim AddField As String
Dim I As Integer
SQLString = "SELECT "
For I = 0 To Check1.Count - 1
If Check1(I).Value Then
AddField = AddField & "Field" & CStr(I + 1) & ","
End If
Next
If Len(AddField) = 0 Then
MsgBox "沒有選擇任何查詢欄位"
Exit Sub
Else
AddField = Left(AddField, Len(AddField) - 1)
End If
SQLString = SQLString & AddField & " "
SQLString = SQLString & "FROM YourTableName;"
Debug.Print SQLString
End Sub
VB初學者
在 EXCEL 聯結表中，為何 DATA1.Recoderset.index="姓名" 一句通不過?，??需要如何設置？
老怪答：
Data.Recordset.Index 要有作用，要有下列三條件：
- 只能使用在 MDB 型態的資料庫中。
- 要你那 Table 確實有設那樣的 Index Name，你可用下列程式查出該 Table 有那些可用的 Index：
Option Explicit
Dim TD As TableDef
Private Sub Command1_Click()
Dim ID As Index
Set TD = Data1.Database.TableDefs("TableName")
For Each ID In TD.Indexes
Debug.Print ID.Name
Next
End Sub- 必須 Data1.RecordsetType=dbOpenTable(0)，其他 Dynaset 和 Snapshot 型態的Recordset 都不適用。
- 所以 Dao 的 Index 物件是為 MDB 資料庫量身打造的，對其他形態資料庫比較不適用，如果要能存取多種資料庫，還是應該使用 SQL 查詢敘述中的 ORDER BY FieldName 命令比較合適。
要散心,Oh..Ya... 撰寫於文章
如果我有一個DBGrid,我可以知道使用者Click時是按那一個欄位嗎???
老怪答：
Private Sub DBGrid1_Click()
Debug.Print DBGrid1.Columns(DBGrid1.Col).DataField
End Sub
莎呦那啦~新竹 撰寫於文章
請問一下在 SQL Server 的環境下是否有提供函數可以知道某個欄位 的長度限制嗎？
老怪答：
Debug.Print Recordset.Fields(Index).Size
莎呦那啦~新竹
又如果要在程式中檢查使用者輸入的欄位是否超過長度，有沒有什麼 好辦法呢？
老怪答：
'Field.Size 是以 Byte 為單位計算，一個中文兩 Byte。
If LenB(StrConv("a加b加c", vbFromUnicode)) > Recordset.Fields(Index).Size Then
Exit Sub
Else
Recordset.Update
End If
天蠍壞老公 撰寫於文章
如何更改原來在 MDB 資料庫設定的密碼？
老怪答：
Option Explicit
Private Sub Command1_Click()
Dim Db As Database
'資料庫檔案要以獨佔模式開啟，亦即第二個參數要為 True 。
Set Db = OpenDatabase("c:\test\db1.mdb", True, False, ";pwd=NewPassword")
Db.NewPassword "OldPassword", "NewPassword"
Db.Close
End Sub