<< Chapter < Page Chapter >> Page >

Dim ObjDb As Object

Set ObjDb = OpenDatabase("d:\tqdinh\thu.mdb")

Khi khai báo biến đối tượng, ta nên chỉ ra tên lớp tường minh, chẳng hạn như TextBox thay vì Control, ứng dụng của ta sẽ chạy nhanh hơn.

Ta có thể xem danh sách các lớp có sẵn trong cửa sổ Object Browser.

Kiểu variant

Biến kiểu Variant có thể chứa mọi kiểu dữ liệu kể cả kiểu mảng, kiểu do người dùng định nghĩa nhưng ngoại trừ kiểu chuỗi có độ dài cố định .

Biến kiểu Variant có thể nhận các giá trị đặc biệt như Empty, Nothing, Error, Null. Ta có thể xác định kiểu dữ liệu của biến Variant bằng các sử dụng hàm VarType hoặc hàm TypeName.

Hàm VarType dùng để kiểm tra kiểu dữ liệu

Hằng Giá trị Diễn giải
vbEmpty 0 Không chứa gì cả
vbNull 1 Dữ liệu không hợp lệ
vbInteger 2 Dữ liệu kiểu Integer chuẩn
vbLong 3 Dữ liệu kiểu Long Integer
vbSingle 4 Dữ liệu kiểu dấu chấm động Single
vbDouble 5 Dữ liệu kiểu dấu chấm động Double
vbCurrency 6 Kiểu Currency
vbDate 7 Kiểu Date
vbString 8 Kiểu String
vbObject 9 Kiểu Object
vbError 10 Có một đối tượng lỗi
vbBoolean 11 Kiểu giá trị Boolean chuẩn
vbVariant 12 Kiểu Variant
vbDataObject 13 Kiểu DAO chuẩn (data access object)
vbDecimal 14 Giá trị thuộc hệ thập phân
vbByte 17 Kiểu Byte
vbUserDefinedType 36 Kiểu do người dùng định nghĩa
vbArray 8192 Kiểu mảng

Một số chú ý khi dùng biến kiểu Variant:

- Nếu muốn thi hành các hàm toán học, Variant phải chứa giá trị kiểu số.

- Nếu muốn nối chuỗi, dùng toán tử&thay vì toán tử +.

Giá trị Empty:

- Đây là giá trị đặc biệt xuất hiện khi một biến chưa được gán trị. Ta dùng hàm IsEmpty để kiểm tra giá trị Empty.

- Giá trị Empty biến mất khi có một giá trị bất kỳ được gán cho biến Variant, để trở về giá trị Empty, ta gán từ khoá Empty cho biến Variant.

Giá trị Null: Biến Variant chứa giá trị Null trong trường hợp những ứng dụng cơ sở dữ liệu thể hiện không có dữ liệu hoặc dữ liệu không xác định.

Giá trị Error: Trong một biến kiểu Variant, Error là một giá trị đặc biệt cho biết đã có một lỗi đã xảy ra bên trong thủ tục.

Ví dụ:

Private Sub cmdShowDataTypes_Click()

Dim sMess As String

Dim vVariant As Variant

vVariant = "Xin chao" 'String

sMess = VarType(vVariant)&vbCrLf ' xuống dòng&về đầu dòng

vVariant = 25 ' Integer

sMess = sMess&VarType(vVariant)&vbCrLf

vVariant = True ' Boolean

sMess = sMess&VarType(vVariant)&vbCrLf


vVariant = #1/1/2001# 'trong cặp dấu #

sMess = sMess&VarType(vVariant)

MsgBox sMess

End Sub

Khi chạy chương trình kết quả là:

Kiểu mảng

Khái niệm

- Mảng là tập hợp các phần tử có cùng một kiểu.

- Dùng mảng sẽ làm cho chương trình đơn giản và gọn hơn vì ta có thể sử dụng vòng lặp. Mảng sẽ có biên trên và biên dưới, trong đó các thành phần của mảng là liên tiếp trong khoảng giữa hai biên này.

- Có hai loại biến mảng: mảng có chiều dài cố định và mảng có chiều dài thay đổi lúc thi hành.

Khai báo

  • Mảng có chiều dài cố định:

Dim<Tên biến mảng>(<Kích thước>) [As<Kiểu>]

Lúc này phần tử đầu tiên có chỉ số là 0&phần tử cuối cùng có chỉ số là<Kích thước>.

Dim<Tên biến mảng>(<Chỉ số đầu>To<Chỉ số cuối>) [As<Kiểu>]

Ví dụ:

' Khai báo một biến mảng 15 phần tử kiểu Integer

Dim Counters(14)As Integer

' Khai báo một biến mảng 21 phần tử kiểu Double

Questions & Answers

Is there any normative that regulates the use of silver nanoparticles?
Damian Reply
what king of growth are you checking .?
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
yes I'm doing my masters in nanotechnology, we are being studying all these domains as well..
what school?
biomolecules are e building blocks of every organics and inorganic materials.
anyone know any internet site where one can find nanotechnology papers?
Damian Reply
sciencedirect big data base
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.
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
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
characteristics of micro business
for teaching engĺish at school how nano technology help us
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
what is fullerene does it is used to make bukky balls
Devang Reply
are you nano engineer ?
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.
what is the actual application of fullerenes nowadays?
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.
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.
is Bucky paper clear?
carbon nanotubes has various application in fuel cells membrane, current research on cancer drug,and in electronics MEMS and NEMS etc
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.
Do you know which machine is used to that process?
how to fabricate graphene ink ?
for screen printed electrodes ?
What is lattice structure?
s. Reply
of graphene you mean?
or in general
in general
Graphene has a hexagonal structure
On having this app for quite a bit time, Haven't realised there's a chat room in it.
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
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?