Tự học lập trình cơ sở dữ liệu với Visual Basic 5 trong 21 ngày ấn phẩm 2

Sau khi bạn đặt các điều khiển trên form và đặt lại kích cỡ của chúng, bạn cần đặt đoạn mã 3.10 trong đoạn thông báo của form, đoạn mã này định nghĩa vài biến mà bạn sử dụng trong suốt form.

`

` form-level variables

Dim db As Database

Dim rs As Recordset

`

Dim strDBName As String

Dim strIndex As String

Dim strField As String
Đặt đoạn mã 3.11 vào trong sự kiện Form_Load của form. Đoạn mã này mở cơ sở dữ liệu BOOKS5.MBD và mở bảng Titles.
Đoạn 3.11 :
Private Sub Form_Load()

`

` set vars

strRSName = "Titles"

`

` open database and table

Set rs = db.OpenRecordset(strRSName, dbOpenTable)

`

End Sub
Đặt thủ tục trong đoạn 3.12 vào đoạn khai báo. Đây là thủ tục đặt index của bảng và nạp listbox trong danh sách hợp lý.

`

` load data collection into list box

Dim strLine As String

lstRecordset.Clear

`

rs.Index = strIndex

`

On Error Resume Next ` in case we get null fields

Do While Not rs.EOF

strLine = rs.Fields("Title")

strLine = strLine & " | " & CStr(rs.Fields("YearPub"))

strLine = strLine & " | " & CStr(rs.Fields("ISBN"))

strLine = strLine & " | " & CStr(rs.Fields("PubID"))

lstRecordset.AddItem strLine

rs.MoveNext

Loop

`

lblIndex.Caption = "Titles Table - Indexed by [" & strField & "]"

End Sub
Thủ tục LoadList là một ví dụ của một cách để nạp một list box của Visual Basic với dữ liệu từ một bảng. Thủ tục đầu tiên là dọn những gì không thích hợp trong list box. Sau đó thuộc tính Index của đối tượng table đặt và chuyển đến bản ghi đầu tiên trong bảng.

Private Sub cmdTitle_Click()

`

` set for Title index

strIndex = "Title"

strField = "Title"

LoadList

End Sub
Đặt đoạn mã này trong sự kiện cmdISBN_Click :

`

` set for ISBN index

strIndex = "PrimaryKey"

strField = "ISBN"

LoadList

End Sub
Đặt đoạn mã này trong sự kiện cmdPublisher_Click :

`

` set for PubID index

strIndex = "PubID"

strField = "PubID"

LoadList

End Sub
Thủ tục Seek được xem trong đoạn 3.13 gọi một input box để nhắc người sử dụng cho giá trị tìm kiếm, để thực hiện tìm kiếm và thông báo kết quả của cuộc tìm kiếm. Thủ tục đầu tiên kiểm tra xem có người sử dụng nào đã điền vào listbox bằng cách lựa chọn một index Nếu listbox chứa dữ liệu, thông thường gọi hàm InputBox của Visual Basic để người sử dụng nhập vào và sau đó gọi phương thức Seek của đối tượng table. Nếu bản ghi không được tìm thấy, bạn nhìn thấy một thông điệp Seek Failed. Nếu bạn nhập một bản ghi vào tệp tin,bạn nhìn thấy một thông điệp Record Found.

`

` perform table seek

Dim strSeek As String

`

If lstRecordset.ListCount = 0 Then

Else

rs.Seek "=", strSeek

If rs.NoMatch = True Then

MsgBox strSeek & " not in table", vbCritical, "Seek Failed"

Else

MsgBox rs.Fields("Title"), vbInformation, "Record Found"

End If

End Sub
Tất nhiên mọi đề án nên có một nút Exit. Hãy nhập dòng sau cho nút Exit :

`

` end program

rs.Close

Set rs = Nothing

Set db = Nothing

Unload Me

End Sub
Khi bạn đã hoàn thành đoạn mã, lưu form như TBSEEK.FRM và đề án như TBSEEK.VBP và chạy chương trình. Hãy kích vào nút Title, ISBN, hoặc Publisher để đặt các index và nạp vào listbox. Chú ý rằng mỗi lần bạn lựa chọn một nút khác nhau, danh sách được nạp trong một loại khác nhau. Sau khi danhsachs được nạp, kích vào nút Seek để thực hiện một index tìm kiếm trên bảng dữ liệu. Nếu bạn nhập giá trị trong index, chương trình thông báo đầu đề của cuốn sách trong một message box, không thì, bạn nhìn thấy một thông diệp lỗi. Hãy xem hình 3.7.

`

` form level variables

Dim db As Database

Dim rsDynaset As Recordset

Dim rsSnapshot As Recordset

Dim rsTable As Recordset

`

Dim strDBName As String

Dim varRecords As Variant

Dim intReturned As Integer

Dim intColumns As Integer

`

` main control routine

strDBName = App.Path & "\..\..\Data\books5.mdb"

strRSName = "Titles"

OpenFiles

`

` show title

Me.Print "Comparing Recordset Types (Dynaset, Snapshot, & Table)"

Me.Print

`

` show first compare

CountRecs rsDynaset, "Dynaset"

CountRecs rsSnapshot, "Snapshot"

CountRecs rsTable, "Table"

Me.Print

`

` save rec, delete it, count

DeleteDynasetRec

Me.Print ">After Dynaset Delete"

CountRecs rsDynaset, "Dynaset"

CountRecs rsSnapshot, "Snapshot"

CountRecs rsTable, "Table"

Me.Print

`

` restore rec and count

Me.Print ">After Dynaset Restore"

CountRecs rsDynaset, "Dynaset"

CountRecs rsSnapshot, "Snapshot"

CountRecs rsTable, "Table"

Me.Print

End Sub
Public Sub OpenFiles()

`

` open database and

`

Set db = DBEngine.OpenDatabase(strDBName)

With db

Set rsSnapshot =.OpenRecordset(strRSName, dbOpenSnapshot)

Set rsTable =.OpenRecordset(strRSName, dbOpenTable)

End With

End Sub
Public Sub CountRecs(rsTemp As Recordset, strType As String)

`

` count records in the object

Dim intCount As Integer

`

With rsTemp

.MoveLast

intCount =.RecordCount

End With

Me.Print vbTab, "Total for " & strType & ":"; intCount

`

End Sub
Public Sub SaveDynasetRec()

` save a single record

`

With rsDynaset

varRecords =.GetRows(1)

End With

`

End Sub

`

` remove first record in the collection

With rsDynaset

.MoveFirst

.Delete

`

End Sub

`

` add saved rec back in

Dim intLoop As Integer

`

With rsDynaset

For intLoop = 0 To UBound(varRecords, 1)

.Fields(intLoop).Value = varRecords(intLoop, 0)

Next

End With

End Sub
Mặc dù không có nhiều mã trong ví dụ này, có một vài thứ giá trị được chỉ ra ( point out ) Đầu tiên, bạn nhìn thấy sử dụng cấu trúc With.. End With. Cấu trúc ( construct ) này đã trình bày trong Visual Basic 4.0 và nó rất hữu ích khi làm việc với các đối tượng của Visual Basic. Việc sử dụng cấu trúc With.. End With là nhanh hơn tên các đối tượng tương tự trong đoạn mã.

Các đối tượng Database.

`

` show high-level database objects

Dim tb As TableDef

Dim fl As Field

Dim ix As Index

Data1.Refresh

`

For Each tb In Data1.Database.TableDefs

Print " "; tb.Name

For Each fl In tb.Fields

Print " -"; fl.Name

Next

MsgBox "Press OK to continue"

Next

On Error Resume Next ` in case there's no index

`

For Each tb In Data1.Database.TableDefs

Print " "; tb.Name

For Each ix In tb.Indexes

Print " -"; ix.Name;

Print "[";

Print ix.Fields;

Print "]"

Next

Me.Cls

`

End Sub

Hình 3.9 :