Imports System.IO

. Access tuy cũng là hệ quản trị cơ sở dữ liệu nhưng nó khác với SQL Server là nó còn cho phép xây dựng thànhphần giao diện gồm chung với dữ liệu + các xử lý khác trong cùng tập tin .mdb. Nó nói chung là không phân biệt xử lýclient server.
Nội dung trích xuất từ tài liệu:
Imports System.IO ImportsSystem.IOPublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimsDBFileAsString=E:\myDB.mdb DimsBackUpFileAsString=E:\myDB_BackUp.mdb Backup *.mdb database IfFile.Exists(sDBFile)Then DimdbAsNewDAO.DBEngine CompactDatabase has two parameters, creates a copy of compact DB at the Destination path db.CompactDatabase(sDBFile,sBackUpFile) EndIf Restore the original file from the compacted file IfFile.Exists(sBackUpFile)Then File.Copy(sBackUpFile,sDBFile,True) EndIf EndSubEndClass.AccesstuycũnglàhệquảntrịcơsởdữliệunhưngnókhácvớiSQLServerlànócònchophépxâydựngthànhphầngiaodiệngồmchungvớidữliệu+cácxửlýkháctrongcùngtậptin.mdb.Nónóichunglàkhôngphânbiệtxửlýclientserver.2.Nếucẩnthậnvàchuyênnghiêphơntacóthểtáchlàm2phần:1tậptinchứadữliệuvàcáctruyvấnmangtínhtiềnxửlývà1tậptinchứathànhthànhgiaodiện+cácxửlýkhác.Vớicáchlàmnàytachỉcầnsaochépdựphòngđốivớitậptinthứnhất.3.SaochépdựphòngđốivớiAccessthậtrachỉlàthaotáccopytậptin.4.TrongVB.Netcóthểviếtđoạnmãlệnhđơngiảnnhưsau(TôivídụminhhoạbằngứngdụngloạiConsolechođơngiảntrìnhbày)ImportsSystem.IOModuleModule1SubMain()DimfAsFileInfo=NewFileInfo(C:\Pro_TamHiep.mdb)f.CopyTo(c:\Pro_TamHiep.bak)EndSubEndModuleAccesskhôngcóchứcnăngrestoređúngnghĩanhưcáchệquảntrịcơsởdữliệucaocấphơnnónhưSQLServer,Oracle....Tuynhiênnócóhỗtrợchứcnăngtựsửa(menu>tools>databaseutilities>compactandrepairdatabase).Nếutựsửavẫnkhôngđượcthìđànhlấybảnđãsaochépthaythếbảnbịhư.1. Tìm hiểu về khái niệm ADO.NetTrong Net (VB.Net và C#) chỉ tồn tại khái niệm ADO.Net chứ ko tồn tại khái niệm cũADO (của VB6.)Các bạn có thể thấy được ADO.Net Model qua hình dưới đây. Có thể diễn đạt theothứ tự làDatabase--> Conection--> Command--> DataAdapter--> Datatable hay Dataset và cácbạn làm việc theo thứ tự này.2. Namespace cần thiết để thao tác với AccessĐể thao tác với Access ta chỉ cần Imports các namespace sau đâyMã: Chọn tất cả 1. Imports System.Data 2. Imports System.Data.OleDb sử dụng với access 3.3. Connect với DatabaseMuốn thao tác với Database dĩ nhiên bước đầu tiên là phải tạo Connect cho nó.Ta tạo như sau:- Connect có tầm vực cục bộ trong Form cần khai báoVí dụ file cần kết nối là SolieuTest.mdb được đặt trong thư mục Debug và cóPassword là 123456.Mã: Chọn tất cả 1. Public Class Form1 Dim con As OleDbConnection Cục bộ trong Form 2. 3. Private Sub Form1_Load(ByVal sender As System.Object, By Val e AsSystem.EventArgs) Handles MyBase.Load 4. Dim str As String = Provider= Microsoft.Jet.OLEDB.4.0; _ 5. & Data Source = & Application.StartupPath & \SolieuTest.mdb;_ 6. & Jet OLEDB:Database Password = 123456 7. con = New OleDbConnection(str) 8. con.Open() 9. End Sub 10. ...................................4. Command ( Lệnh ):- Để cho chương trình biết ta cần làm những gì đối với Database như select.Insert.................- Ví dụ đây là command dùng để Select hết tất cả dữ liệu trong bảng ra.Mã: Chọn tất cả 1. Dim command As New OleDbCommand() command.Connection = con Kết nối 2. command.CommandType = CommandType.Text Loại lệnh 3. sử dụng là Text hay là một query trong access 4. command.CommandText = Select * From DanhsachSV Lệnh cần làm với Database 5.- Để sử dụng commnand được tốt các bạn cần phải nắm vững ngôn ngữ SQL (trongBox ebook có nhiều sách về SQL)- Nạp tham số cho command --> Very very Important. Ví dụMã: Chọn tất cả 1. command.CommandText = Select * From DanhsachSV Where Name = @NameỞ đây ta có @Name là tham số mà ta cần phải điền giá trị cho nó, ta gán giá trị nhưsauMã: Chọn tất cả 1. commandInsert.Parameters.Add(@Name, OleDbType.VarChar).Value = txtName.TextVậy là ta đã gán giá trị từ Textbox txtName vào tham số @Name rồi đó5. DataAdapter và Dataset, DataTable- Chúng ta đã có Connect và commnand rồi, giờ chúng ta cần có một cái máy sửdụng những cái trên để thực thi lệnh mà ta đưa ra --> Đó chính là DataAdapter.- Khai báo một DataAdapter chỉ đơn giản thế nàyMã: Chọn tất cả 1. Dim adapter As New OleDbDataAdapter()Ngoài ra còn các hình thức khởi tạo khác, nhưng chỉ được xài với các loại commandthuộc dạng Select và tùy theo cách mà chúng ta cảm thấy quen thuộc nhấtMã: Chọn tất cả 1. OleDbDataAdapter (OleDbCommand) 2. OleDbDataAdapter (StringSelect, OleDbConnection) 3. OleDbDataAdapter (StringSelect, StringConnect) 4.- Sau khi thực hiện lệnh, chúng ta sẽ có được kết quả trả về và nó được lưu trongDataTable (đại diện cho một table ) và DataSet ( đại diện cho một Table Collection).- Lưu ý: Muốn làm thay đổi dữ liệu nguồn (trên file) thì ta phải tác động vào cácDataTable hay Dataset đồng thời cung cấp thêm các câu SQL tương ứng để thực thisự thay đổi đó. Chúng ta sẽ nói chi tiết về vấn đề này trong phần tới.6. Select dữ liệu- Để cho đơn giản trong quá trình học các đối tượng sau dt và da bạn cho nó có tầmvực cục bộ trong form (nằm chung với vị trí tạo connect)Mã: Chọn tất cả Tạo một đối tượng Datatable nhận dữ liệu trả về 1. 2. Dim dt As New DataTable(DanhsachSV) Tạo bộ máy DataAdapter thực hiện command 3. 4. Dim da As New OleDbDataAdapter()- Để trích xuất một dữ liệu ra chúng ta dùng đoạn code sau- Ở đây chúng ta xét trường hợp là đã có sẵn đoạn cod ...