<< Chapter < Page Chapter >> Page >

Chẳng hạn ta có thể hiển thị trên lưới thông tin về các mặt hàng cùng với mã loại hàng của nó:

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Form_Load()

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.3.51"

cn.ConnectionString = "F:\Data\DBHH.mdb"

cn.Open

Set rs = new adodb.recordset

rs.Source = "SELECT MaHang, TenHang, DVTinh”&_

“TenLoai FROM THangHoa, TLoaiHang WHERE “&_

“THangHoa.MaLoai = TLoaiHang.MaLoai"

Set rs.ActiveConnection = cn

rs.CursorLocation = adUseClient

rs.Open

Set grdHH.DataSource = rs

End Sub

Kết quả thực thi của chương trình này như sau:

Hình 11.4: Sử dụng Datagrid để hiển thị dữ liêu từ Recordset*

*: Microsoft DataGrid Control 6.0 (OLEDB): Name: grdHH.

Cập nhật và thêm mới mẩu tin

Thêm mới mẩu tin

-Mở Recordset

-Thi hành phương thức AddNew

-Gán giá trị cho các trường trong mẩu tin của Recordset

-Lưu lại mẩu tin bằng cách thi hành phương thức Update (hay UpdateBatch).

Cập nhật mẩu tin

-Mở Recordset

-Thực hiện câu lệnh truy vấn để nhận về các mẩu tin thích hợp.

-Di chuyển đến mẩu tin cần cập nhật lại giá trị.

-Gán lại giá trị cho các trường.

- Thi hành phương thức Update (hay UpdateBatch tùy thuộc vào LockType).

Lưu ý:Chế độ khóa mẩu tin mặc định trong ADO là chỉ đọc, vì vậy ta phải đổi thuộc tính LockType của đối tượng Recordset sang chế độ soạn thảo trước khi thi hành cập nhật hay thêm mới mẩu tin.

Thuộc tính cursorlocation

Xác định tập mẩu tin trả về từ cơ sở dữ liệu được lưu ở đâu (Server hay Client, Server là mặc định). Thuộc tính cũng giống thuộc tính CursorLocation của đối tượng Connection.

Recordset ngắt kết nối

Khi chúng ta dùng con trỏ phía Client, ta có khả năng ngắt kết nối với Server cơ sở dữ liệu mà vẫn tiếp tục làm việc với dữ liệu. Cách này cho phép ứng dụng trở nên linh hoạt hơn bởi vì nhiều người dùng có thể làm việc với cùng một dữ liệu tại một thời điểm nếu như họ không có nối kết với server.

Để ngắt nối kết với Server, ta quy định thuộc tính ActiveConnection của đối tượng Recordset là Nothing.

Ví dụ:

Dim cn As ADODB.Connection

Private Sub Form_Load()

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.3.51"

cn.ConnectionString = "F:\Data\GiangDay.mdb"

cn.Open

End Sub

Public Function GetList (strState As String) _

As ADODB.Recordset

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs.ActiveConnection = cn

rs.CursorLocation = adUseClient

rs.LockType = adLockBatchOptimistic

rs.CursorType = adOpenKeyset

rs.Open strState

Set rs.ActiveConnection = Nothing

Set GetList = rs

Set rs = Nothing

End Function

Để thi hành cùng một hành động trên một mẩu tin, ta sửa đổi lại các thuộc tính của đối tượng Recordset.

rs.LockType = adLockBatchOptimistic

rs.CursorType = adOpenKeyset

Chúng ta thiết lập giá trị các thuộc tính lại như trên để xác nhận rằng Recordset có thể nối kết lại để cập nhật về sau.

Sau đó, ta sẽ thiết lập một hàm nhận Recordset ngắt kết nối làm tham biến để tạo một đối tượng Recordset khác cập nhật dữ liệu.

Public Sub WriteData(rsDis As ADODB.Recordset)

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs.ActiveConnection = cn

Questions & Answers

A golfer on a fairway is 70 m away from the green, which sits below the level of the fairway by 20 m. If the golfer hits the ball at an angle of 40° with an initial speed of 20 m/s, how close to the green does she come?
Aislinn Reply
cm
tijani
what is titration
John Reply
what is physics
Siyaka Reply
A mouse of mass 200 g falls 100 m down a vertical mine shaft and lands at the bottom with a speed of 8.0 m/s. During its fall, how much work is done on the mouse by air resistance
Jude Reply
Can you compute that for me. Ty
Jude
what is the dimension formula of energy?
David Reply
what is viscosity?
David
what is inorganic
emma Reply
what is chemistry
Youesf Reply
what is inorganic
emma
Chemistry is a branch of science that deals with the study of matter,it composition,it structure and the changes it undergoes
Adjei
please, I'm a physics student and I need help in physics
Adjanou
chemistry could also be understood like the sexual attraction/repulsion of the male and female elements. the reaction varies depending on the energy differences of each given gender. + masculine -female.
Pedro
A ball is thrown straight up.it passes a 2.0m high window 7.50 m off the ground on it path up and takes 1.30 s to go past the window.what was the ball initial velocity
Krampah Reply
2. A sled plus passenger with total mass 50 kg is pulled 20 m across the snow (0.20) at constant velocity by a force directed 25° above the horizontal. Calculate (a) the work of the applied force, (b) the work of friction, and (c) the total work.
Sahid Reply
you have been hired as an espert witness in a court case involving an automobile accident. the accident involved car A of mass 1500kg which crashed into stationary car B of mass 1100kg. the driver of car A applied his brakes 15 m before he skidded and crashed into car B. after the collision, car A s
Samuel Reply
can someone explain to me, an ignorant high school student, why the trend of the graph doesn't follow the fact that the higher frequency a sound wave is, the more power it is, hence, making me think the phons output would follow this general trend?
Joseph Reply
Nevermind i just realied that the graph is the phons output for a person with normal hearing and not just the phons output of the sound waves power, I should read the entire thing next time
Joseph
Follow up question, does anyone know where I can find a graph that accuretly depicts the actual relative "power" output of sound over its frequency instead of just humans hearing
Joseph
"Generation of electrical energy from sound energy | IEEE Conference Publication | IEEE Xplore" ***ieeexplore.ieee.org/document/7150687?reload=true
Ryan
what's motion
Maurice Reply
what are the types of wave
Maurice
answer
Magreth
progressive wave
Magreth
hello friend how are you
Muhammad Reply
fine, how about you?
Mohammed
hi
Mujahid
A string is 3.00 m long with a mass of 5.00 g. The string is held taut with a tension of 500.00 N applied to the string. A pulse is sent down the string. How long does it take the pulse to travel the 3.00 m of the string?
yasuo Reply
Who can show me the full solution in this problem?
Reofrir Reply
Got questions? Join the online conversation and get instant answers!
Jobilize.com Reply

Get Jobilize Job Search Mobile App in your pocket Now!

Get it on Google Play Download on the App Store Now




Source:  OpenStax, Giáo trình visual basic. OpenStax CNX. Jul 29, 2009 Download for free at http://cnx.org/content/col10777/1.1
Google Play and the Google Play logo are trademarks of Google Inc.

Notification Switch

Would you like to follow the 'Giáo trình visual basic' conversation and receive update notifications?

Ask