<< 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

Is there any normative that regulates the use of silver nanoparticles?
Damian Reply
what king of growth are you checking .?
Renato
What fields keep nano created devices from performing or assimulating ? Magnetic fields ? Are do they assimilate ?
Stoney Reply
why we need to study biomolecules, molecular biology in nanotechnology?
Adin Reply
?
Kyle
yes I'm doing my masters in nanotechnology, we are being studying all these domains as well..
Adin
why?
Adin
what school?
Kyle
biomolecules are e building blocks of every organics and inorganic materials.
Joe
anyone know any internet site where one can find nanotechnology papers?
Damian Reply
research.net
kanaga
sciencedirect big data base
Ernesto
Introduction about quantum dots in nanotechnology
Praveena Reply
what does nano mean?
Anassong Reply
nano basically means 10^(-9). nanometer is a unit to measure length.
Bharti
do you think it's worthwhile in the long term to study the effects and possibilities of nanotechnology on viral treatment?
Damian Reply
absolutely yes
Daniel
how to know photocatalytic properties of tio2 nanoparticles...what to do now
Akash Reply
it is a goid question and i want to know the answer as well
Maciej
characteristics of micro business
Abigail
for teaching engĺish at school how nano technology help us
Anassong
Do somebody tell me a best nano engineering book for beginners?
s. Reply
there is no specific books for beginners but there is book called principle of nanotechnology
NANO
what is fullerene does it is used to make bukky balls
Devang Reply
are you nano engineer ?
s.
fullerene is a bucky ball aka Carbon 60 molecule. It was name by the architect Fuller. He design the geodesic dome. it resembles a soccer ball.
Tarell
what is the actual application of fullerenes nowadays?
Damian
That is a great question Damian. best way to answer that question is to Google it. there are hundreds of applications for buck minister fullerenes, from medical to aerospace. you can also find plenty of research papers that will give you great detail on the potential applications of fullerenes.
Tarell
what is the Synthesis, properties,and applications of carbon nano chemistry
Abhijith Reply
Mostly, they use nano carbon for electronics and for materials to be strengthened.
Virgil
is Bucky paper clear?
CYNTHIA
carbon nanotubes has various application in fuel cells membrane, current research on cancer drug,and in electronics MEMS and NEMS etc
NANO
so some one know about replacing silicon atom with phosphorous in semiconductors device?
s. Reply
Yeah, it is a pain to say the least. You basically have to heat the substarte up to around 1000 degrees celcius then pass phosphene gas over top of it, which is explosive and toxic by the way, under very low pressure.
Harper
Do you know which machine is used to that process?
s.
how to fabricate graphene ink ?
SUYASH Reply
for screen printed electrodes ?
SUYASH
What is lattice structure?
s. Reply
of graphene you mean?
Ebrahim
or in general
Ebrahim
in general
s.
Graphene has a hexagonal structure
tahir
On having this app for quite a bit time, Haven't realised there's a chat room in it.
Cied
what is biological synthesis of nanoparticles
Sanket Reply
how did you get the value of 2000N.What calculations are needed to arrive at it
Smarajit Reply
Privacy Information Security Software Version 1.1a
Good
Got questions? Join the online conversation and get instant answers!
Jobilize.com Reply

Get the best Algebra and trigonometry course in your pocket!





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