Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

£¨×ª£©VBÇ¿ÖÆÀàÐÍת»»º¯Êý

ת×Ô£ºhttp://tieba.baidu.com/f?kz=139765011
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌØ¶¨Êý¾ÝÀàÐÍ¡£
Óï·¨
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
±ØÒªµÄ expression ²ÎÊý¿ÉÒÔÊÇÈκÎ×Ö·û´®±í´ïʽ»òÊýÖµ±í´ïʽ¡£
·µ»ØÀàÐÍ
º¯ÊýÃû³Æ¾ö¶¨·µ»ØÀàÐÍ£¬ÈçÏÂËùʾ£º
º¯Êý ·µ»ØÀàÐÍ expression ²ÎÊý·¶Î§ 
CBool  Boolean ÈκÎÓÐЧµÄ×Ö·û´®»òÊýÖµ±í´ïʽ¡£ 
CByte  Byte 0 ÖÁ 255¡£ 
CCur Currency -922,337,203,685,477.5808 ÖÁ922,337,203,685,477.5807¡£ 
CDate Date ÈκÎÓÐЧµÄÈÕÆÚ±í´ïʽ¡£ 
CDbl Double  ¸ºÊý´Ó -1.79769313486232E308 ÖÁ -4.94065645841247E-324£»ÕýÊý´Ó 4.94065645841247E-324 ÖÁ 1.79769313486232E308¡£ 
CDec Decimal Áã±ä±ÈÊýÖµ£¬¼´ÎÞСÊýλÊýÖµ£¬Îª 
+/-79,228,162,514,264,337,593,543,950,335¡£¶ÔÓÚ 28 Î»Ð¡ÊýµÄÊýÖµ£¬·¶Î§ÔòΪ 
+/-7.9228162514264337593543950335£»×îСµÄ¿ÉÄÜ·ÇÁãÖµÊÇ 0.0000000000000000000000000001¡£ 
CInt Integer -32,768 ÖÁ 32,767£¬Ð¡Êý²¿·ÖËÄÉáÎåÈë¡£ 
CLng Long -2,147,483,648 ÖÁ 2,147,483,647£¬Ð¡Êý²¿·ÖËÄÉáÎåÈë¡£ 
CSng Single ¸ºÊýΪ -3.402823E38 ÖÁ -1.401298E-45£»ÕýÊýΪ 1.401298E-45 ÖÁ 3.402823E38¡£ 
CStr String ÒÀ¾Ý expression ²ÎÊý·µ»Ø Cstr¡£ 
CVar Variant ÈôΪÊýÖµ£¬Ôò·¶Î§Óë Double Ïàͬ£»Èô²»ÎªÊýÖµ£¬Ôò·¶Î§Óë String Ïàͬ¡£ 
˵Ã÷
Èç¹û´«µÝ¸øº¯ÊýµÄ expression ³¬¹ýת»»Ä¿±êÊý¾ÝÀàÐ͵ķ¶Î§£¬½«·¢Éú´íÎó¡£
ͨ³££¬ÔÚ±àÂëʱ¿ÉÒÔʹÓÃÊý¾ÝÀàÐÍת»»º¯Êý£¬À´ÌåÏÖijЩ²Ù×÷µÄ½á¹ûÓ¦¸Ã±íÊ¾ÎªÌØ¶¨µÄÊý¾ÝÀàÐÍ£¬¶ø²»ÊÇȱʡµÄÊý¾ÝÀàÐÍ¡£ÀýÈ磬µ±µ¥¾«¶È¡¢Ë«¾«¶È»òÕûÊýÔËËã·¢ÉúµÄÇé¿öÏ£¬Ê¹ÓàCCur À´Ç¿ÖÆÖ´Ðлõ±ÒÔËËã¡£
Ó¦


Ïà¹ØÎĵµ£º

VB+SQL 2000 ʵÏÖÊý¾Ý¿âµÄ±¸·ÝºÍ»Ö¸´

 
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
 
ÌâÍâ»°£º
 
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
 
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......

ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)

¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......

VB 5·1µÚÒ»Ìì

ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
 
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
 
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó&rdquo ......

VB²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode

Private Function Utf8ToUni(B() As Byte) As String
   '²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
   Dim BU As Long
  
   On Error Resume Next
   BU = -1: BU = UBound(B)
   If BU = -1 Then Exit Function
   On Error GoTo 0
 &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ