[Visual Basic 6.0] 使用 Adodc 與 DataGrid 完成與 Access 資料庫連結 系列 (二)

摘要: [Visual Basic 6.0] 使用 Adodc 與 DataGrid 完成與 Access 資料庫連結 系列 (二)

 [Visual Basic 6.0] 使用 Adodc 與 DataGrid 完成與 Access 資料庫連結 系列 (二)

 

Dim BoyGirl

Private Sub 下一筆_Click()
If 資料庫控制.Recordset.RecordCount = 0 Then ' 判斷資料是否為 0
Else
資料庫控制.Recordset.MoveNext ' 下移一筆
If 資料庫控制.Recordset.EOF Then 資料庫控制.Recordset.MoveLast: Exit Sub ' 如果已經到最後筆或是超過最後 就卡在最後一筆
End If
End Sub

Private Sub 上一筆_Click()
If 資料庫控制.Recordset.RecordCount = 0 Then
Else
資料庫控制.Recordset.MovePrevious
If 資料庫控制.Recordset.BOF Then 資料庫控制.Recordset.MoveNext: Exit Sub
End If
End Sub

Private Sub 列印_Click()
Set DataReport1.DataSource = 資料庫控制 ' 設定設計師的資料來源為 Adodc物件名稱
DataReport1.Show ' 顯示出來
End Sub

Private Sub 刪除資料_Click()
If 資料庫控制.Recordset.EOF Then
ElseIf 資料庫控制.Recordset.BOF Then
Else
資料庫控制.Recordset.Delete
End If
End Sub

Private Sub 重新整理_Click()
資料庫控制.Refresh
End Sub

Private Sub 第一筆_Click()
If 資料庫控制.Recordset.RecordCount <> 0 Then 資料庫控制.Recordset.MoveFirst
End Sub

Private Sub 最後筆_Click()
If 資料庫控制.Recordset.RecordCount <> 0 Then 資料庫控制.Recordset.MoveLast
End Sub

Private Sub 搜尋姓名_Click()
資料庫控制.Recordset.Filter = "姓名='" & 姓名關鍵字 & "'"
If 資料庫控制.Recordset.RecordCount = 0 Then MsgBox "沒有找到相關資料", , "搜尋結果"
End Sub

Private Sub 搜尋性別_Click()
資料庫控制.Recordset.Filter = "性別='" & 性別關鍵字 & "'"
If 資料庫控制.Recordset.RecordCount = 0 Then MsgBox "沒有找到相關資料", , "搜尋結果"
End Sub

Private Sub 搜尋電話_Click()
資料庫控制.Recordset.Filter = "電話='" & Val(電話關鍵字) & "'"
If 資料庫控制.Recordset.RecordCount = 0 Then MsgBox "沒有找到相關資料", , "搜尋結果"
End Sub

Private Sub 搜尋識別碼_Click()
資料庫控制.Recordset.Filter = "識別碼='" & Val(關鍵字) & "'"
If 資料庫控制.Recordset.RecordCount = 0 Then MsgBox "沒有找到相關資料", , "搜尋結果"
End Sub

Private Sub 輸入資料_Click()
資料庫控制.Recordset.Filter = "識別碼='" & Val(識別碼.Text) & "' " ' 抓相同識別碼有多少
'公式 -> Adodc物件名稱.Recordset.Filter = "欄位名稱='關鍵字'"
'Adodc物件名稱.Recordset.RecordCount = 搜尋到的關鍵字有多少 0 的話表示沒有找到一樣的

If 資料庫控制.Recordset.RecordCount = 0 And Len(識別碼) > 0 Then ' 0個相同的 = 沒重複資料
'↑ 為了避免識別碼重複導致軟體發生錯誤 先抓要新增的識別碼並搜尋有無相同的識別碼 沒重複在新增

            If 男女(0).Value = True Then '判斷為男生女生 並存到變數名稱 BoyGirl
                BoyGirl = "男生"
            Else
                BoyGirl = "女生"
            End If
            
        資料庫控制.Recordset.AddNew '增一筆新資料 Code - > Adodc物件名稱.Recordset.AddNew
        
        資料庫控制.Recordset("識別碼") = 識別碼.Text '新增內容
        資料庫控制.Recordset("姓名") = 姓名.Text '新增內容
        資料庫控制.Recordset("電話") = Val(電話.Text) '新增內容
        資料庫控制.Recordset("性別") = BoyGirl '新增內容
        
        '↑新增內容到欄位公式 Adodc物件名稱.Recordset("欄位名稱") = 內容
        
        識別碼.Text = "" '儲存完畢清空資料
        姓名.Text = "" '儲存完畢清空資料
        電話.Text = "" '儲存完畢清空資料
        
        資料庫控制.Recordset.Update ' 更新資料庫內容

Else ' 有重複識別碼
    MsgBox "識別碼已經重複", , "警告"
    識別碼.Text = ""
End If

資料庫控制.Refresh '重新整理資料庫

End Sub

 

專案下載:

VB Access 資料庫連結與控制.rar

 

※ 系列教學包含著作權,轉載請註明出處 ( 0xDe )。

 

#0xDe 從分享中學習

#Facebook:ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問