VBÖи÷ÖÖÊý¾ÝÀàÐÍת»»º¯Êý
1. ¸÷ÖÖ½øÖÆ×ª»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
¸÷ÖÖ½øÖÆ×ª»»º¯Êý
¡¡¡¡Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,Òò¶øÒ²³ÉΪ¼ÆËã»úµÄ³£Óñíʾ·½·¨.
¡¡¡¡VBÖÐÉæ¼°µ½µÄÊý¾Ý½øÖÆÖ®¼äµÄת»»º¯ÊýÖ÷ÒªÓÐÈçϼ¸¸ö:
¡¡¡¡Hex º¯Êý: ·µ»Ø´ú±íÊ®Áù½øÖÆÊýÖµµÄ String;
¡¡¡¡Oct º¯Êý: ·µ»Ø´ú±íÒ»ÊýÖµµÄ°Ë½øÖÆÖµµÄVariant (String);
¡¡¡¡Cintº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³É-32,768 ÖÁ 32,767µÄÕûÐÍ;
¡¡¡¡CLngº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³É-2,147,483,648 ÖÁ 2,147,483,647µÄ³¤ÕûÐÍ;
¡¡¡¡Cdecº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉDecimal Êý¾ÝÀàÐÍ;
¡¡¡¡CDblº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉDouble Êý¾ÝÀàÐÍ;
¡¡¡¡ ÒÔÉÏÕâЩº¯ÊýÊÇ×î»ù±¾µÄ¼¸¸öÊý¾Ý½øÖÆÖ®¼äµÄת»»º¯Êý,ÆäÖÐÒÔǰÈý¸öº¯Êý×î³£ÓÃ,Ò²×îÓÐÓÃ.´ÓÉÏÃæ¼¸¸öº¯ÊýÎÒÃÇ¿ÉÒÔ¿´µ½,VBÖÐûÓÐΪÎÒÃÇÌṩרÃŵĺ¯Êý¹©ÎÒÃǽ«±í´ïʽ»òÊÇÊý¾Ýת»»³ÉÊ®½øÖƺͶþ½øÖÆ,²»¹ýÊ®½øÖƵÄת»»ÎÒÃÇ¿ÉÒÔͨ¹ýCintº¯ÊýÇáËÉÍê³É,¶ø¶þ½øÖƵÄʵÏÖÎÒÃÇ¿ÉÒÔͨ¹ý¶þ½øÖƺͰ˽øÖÆ,Ê®Áù½øÖƵĹØÏµÇáËÉת»».
¡¡¡¡ ÏÂÃæ¼¸¸öÀý×ÓΪHexº¯ÊýºÍOctº¯ÊýÒÔ¼°Cintº¯ÊýµÄʵÀý:
(1).¡¡ A= hex(5)¡¡·µ»Ø5;(2).¡¡ B=hex(10)¡¡·µ»ØA(3).¡¡ C=hex(23)¡¡·µ»Ø17(4).¡¡ D=oct(5)¡¡¡¡·µ»Ø5(5).¡¡ E=oct(10)¡¡·µ»Ø12(6).¡¡ F=oct(23)¡¡ ·µ»Ø27(7).¡¡ G=Cint(&H17)¡¡·µ»Ø23(8) .¡¡ H=Cint(&O12)¡¡·µ»Ø10
¡¡¡¡ ÒÔÉÏÕâЩº¯ÊýµÄÓ¦ÓñȽϼòµ¥,¾Í²»¶à˵ÁË,ÖµµÃÒ»ÌáµÄÊÇHexº¯ÊýºÍOctº¯Êý·µ»ØµÄ¶¼ÊÇ×Ö·û´®,Èç¹ûÊÇÏ뽫ʮÁù½øÖÆ»òÊǰ˽øÖƵÄ×Ö·û´®±äÁ¿×ª»»³ÉÊ®½øÖÆ,¿ÉÒÔ°´ÈçÏ·½·¨½øÐÐ:
¡¡¡¡C=”17”¡¡¡¡¡¡17ΪʮÁù½øÖÆÊýÖµµÄString
¡¡¡¡C=”&H” & C
¡¡¡¡Ic=Cint(C)¡¡¡¡·µ»Ø23
¡¡¡¡2. ×Ö·û´®ºÍÊý×Öת
Ïà¹ØÎĵµ£º
Dim rs As ADODB.Recordset
Dim sqlstr As String
'²éѯ
sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
rs = VScn.Execute("" & SqlSt ......
×Ô¶¨ÒåÊý¾Ý¿âÁ´½ÓÀà(Access)ÊÇÁ´½ÓAccessÊý¾Ý¿âʱʹÓõÄÀà¡£
²¹×㣺Application.StartupPath.ToStringÊÇÖ¸¶¨Éú³É.EXEÎļþµÄ·¾¶£¬°ÑÊý¾Ý¿âºÍÖ´ÐÐÎļþ´æ·Åµ½Ò»Æðʱ£¬²»¹Ü°²×°ºóÔÚʲô·¾¶¶¼ÎÞÐèÌØ¶¨Ö¸¶¨¡£
Imports System.Data.OleDb
#Region "È«¾Ö±äÁ¿"
Private mTimeo ......
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚL ......
SQLDMOÔÚVBÖеÄÓ¦ÓÃ
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 20 ......
Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......