VBÓï·¨¹æ·¶
Ò»¡£Êý¾ÝÀàÐÍ
Byte 1
×Ö½Ú ÎÞ·ûºÅ
Interger 2
×Ö½Ú
Long 4
×Ö½Ú
Float 4
×Ö½Ú
Double 8
×Ö½Ú
String
Date
Boolean
Currency
Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
±ä³¤×Ö·û´®£ºdim str as Strring
¶¨³¤×Ö·û´®:dim str as String*30
×î¶à64K
×Ö·û
3.
Âß¼ÐÍÊý¾Ý
ϵͳĬÈÏΪFalse;
µ±²¼¶ûÐÍתΪÕûÐÎʱ True
Ϊ-1 False
Ϊ0;
ÆäËüÐÍת»¯Îª²¼¶ûÐÍ
·Ç0
ΪTrue 0
ΪFalse;
4.
ÈÕÆÚÐÍÊý¾Ý
ÎÄ×ÖÈÕÆÚ°üº¬ÔÚÒ»¶Ô“#"
Ö®¼ä£¬Èç#4 Sep# #May
23.2002#
µÈ;
ÔÚÈÕÆÚÐÍÊý¾ÝÖУ¬²»ÂÛ½«Äê¡¢Ô¡¢ÈÕÈçºÎÅÅÁУ¬ÓúÎÖÖ·Ö¸ô·û£¬ÏµÍ³»á×Ô¶¯½«Æäת»¯ÎªÓÉÊý×Ö±íʾµÄ”
ÔÂ/
ÈÕ/
Äê“
5
¡£¶ÔÏóÀàÐÍ
ĬÈÏֵΪnothing
£¬ÓÃSET
Óï¾äÖ¸¶¨Ò»¸öÉùÃ÷µÄ¶ÔÏó±äÁ¿È¥ÒýÓöÔÏó¡£
6.
±äÌåÀàÐÍ
ËùÓÐ䶨ÒåµÄ±äÁ¿µÄĬÈÏÀàÐÍ¡£ÓÃVarType
£¨£©·µ»ØµÄÖµ¿ÉÒÔÈ·¶¨¾ßÌåÊý¾ÝÀàÐÍ¡£
¶þ¡£³£Á¿
ÈýÖÖ£ºÖ±½Ó³£Á¿£¨×ÖÃæÖµ£©£¬×Ô¶¨Òå·ûºÅ³£Á¿£¬ÏµÍ³³£Á¿
£¨1
£©×Ô¶¨Òå·ûºÅ³£Á¿
Const
·ûºÅ³£Á¿Ãû£ÛAs <
ÀàÐÍ>
£Ý=<
±í´ïʽ>
Ҫʹ³£Á¿ÔÚÕû¸öÓ¦ÓóÌÐòÖÐÓÐЧ£¬ÔÚ±ê׼ģ¿éÖеØÉùÃ÷¶ÎÖнøÐÐÉùÃ÷£¬²¢ÇÒÔÚConst
֮ǰ¼ÓPublic
¡£¶ÔÓÚ´°ÌåÄ£¿é»òÀàÄ£¿é£¬Ôò²»ÄܼÓ
Public.
Èý¡£±äÁ¿
1.
ÃüÃûÔ¼¶¨
ÒÔ×Öĸ¿ªÊ¼£¬ºó¸úÊý×Ö¡¢×ֶκÍÏ»®Ïß
ͬһ×÷ÓÃÓòÖбäÁ¿Ãû²»ÄÜÖØ¸´
±äÁ¿Ãû²»Çø·Ö´óС¶¨¡£
2.
ÉùÃû±äÁ¿
ÒþʽÉùÃ÷£º¾ÍÊÇÔÚʹÓÃÒ»¸ö±äÁ¿Õâǰ²»×¨ÃÅÉùÃ÷¶øÖ±½ÓʹÓ㬱äÁ¿ÀàÐÍĬÈÏΪ±äÌåÀàÐÍ¡£
ÏÔʾÉùÃ÷£ºÎªÃ¿¸ö±äÁ¿±ØÐëÊÂÏÈÉùÃ÷²ÅÄÜʹÓ᣿ÉÒÔÖ¸¶¨ÀàÐÍÒ²¿É²»Ö¸¶¨£¬Èô²»Ö¸¶¨Ò²ÊDZäÌåÀàÐÍ¡£
3.
±äÁ¿×÷ÓÃÓò
ÆÕͨ¾Ö²¿±äÁ¿£¨¹ý³Ì±äÁ¿£©:
Ö»ÄÜÔÚÉùÃ÷µÄ¹ý³ÌÖÐʹÓ㬹ý³ÌÖ´ÐзÖÅä¿Õ¼ä£¬¹ý³ÌÍê³ÉºóÊͷſռä
Dim
±äÁ¿Ãû£ÛAs
Êý¾ÝÀàÐÍÃû£Ý
¾²Ì¬¾Ö²¿±äÁ¿£¨¹ý³Ì±äÁ¿£©£ºÖ»ÄÜÔÚÉùÃ÷µÄ¹ý³ÌÖÐʹÓã¬Ó¦ÓóÌÐòÆô¶¯Ê±·ÖÅä¿Õ¼ä£¬Ó¦ÓóÌÐò½áÊøÊ±Êͷſռä
Static
±äÁ¿Ãû [As
Êý¾ÝÀàÐÍÃû]
Ä£¿é±äÁ¿£º¸ÃÄ£¿éÖеÄËùÓйý³Ì¶¼¿ÉÒÔ·ÃÎʵıäÁ¿£¬ÆäËüÄ£¿éµÄ¹ý³Ì²»ÄÜ·ÃÎÊ´ËÄ£¿é±äÁ¿£¬Ó¦ÓóÌÐòÆô¶¯Ê±·ÖÅä¿Õ¼ä£¬Ó¦ÓóÌÐò½áÊøÊ±ÊÍ·Å ¿Õ¼ä
Private dim
±äÁ¿Ãû [As
Êý¾ÝÀ
Ïà¹ØÎĵµ£º
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
Imports System.Data.OleDb
Inherits System.Windows.Forms.Form
Dim myconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\student0.mdb") ‘------------------------- Á´½ÓÊý¾Ý¿â
......
ÎÞÒâÖз¢ÏÖVB ForÑ»·µÄÒ»¸öÌØµã£ºÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáǰÍ˳öÑ»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
Dim s(0 To 4) As String
Dim N As Integer, i As Integer
s(0) = "²âÊÔ1"
s(1) = "²âÊÔ2"
s(2) = "²âÊÔ3"
s(3) = "²âÊÔ4"
s(4) = "²âÊÔ5 ......
'´´½¨¿ì½Ý·½Ê½£¬¼æÈÝvista
'Òª°Ñvb6stkit.DLL·Åµ½³ÌÐòĿ¼
'°½Ê¿Î° 09-10-27
'Ö»¶Ô“×ÀÃæ”ºÍ“¿ªÆô”ÓÐЧ£¬ÆäËü»¹Ã»×ö
'=========¿ªÆôÍⲿͬ²½³ÌÐò¶¨Ò忪ʼ
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......